From 63133d16ea22239d51b6c29c74d0817c97a61686 Mon Sep 17 00:00:00 2001
From: Melkiades <Melkiades@users.noreply.github.com>
Date: Thu, 4 Apr 2024 15:50:11 +0000
Subject: [PATCH] deploy: 1f882f34eb2ae3db85ff6b9fec3cf5b7454acd2b

---
 main/coverage-report/index.html | 29554 +++++++++++++++---------------
 1 file changed, 14777 insertions(+), 14777 deletions(-)

diff --git a/main/coverage-report/index.html b/main/coverage-report/index.html
index bc293643..7054f2ef 100644
--- a/main/coverage-report/index.html
+++ b/main/coverage-report/index.html
@@ -94,7 +94,7 @@
   font-size: 11px;
 }</style>
   <div class="col-md-8 col-md-offset-2">
-    <h2>random.cdisc.data coverage - 98.86%</h2>
+    <h2>random.cdisc.data coverage - 98.80%</h2>
     <div class="tabbable">
       <ul class="nav nav-tabs" data-tabsetid="covr">
         <li class="active">
@@ -106,19 +106,19 @@ <h2>random.cdisc.data coverage - 98.86%</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-daa2426d327f1b249327" style="width:100%;height:500px;"></div>
-          <script type="application/json" data-for="htmlwidget-daa2426d327f1b249327">{"x":{"filter":"none","vertical":false,"fillContainer":false,"data":[["<a href=\"#\">R/utils.R<\/a>","<a href=\"#\">R/radrs.R<\/a>","<a href=\"#\">R/radmh.R<\/a>","<a href=\"#\">R/raddv.R<\/a>","<a href=\"#\">R/radaette.R<\/a>","<a href=\"#\">R/radtte.R<\/a>","<a href=\"#\">R/radae.R<\/a>","<a href=\"#\">R/radsub.R<\/a>","<a href=\"#\">R/radcm.R<\/a>","<a href=\"#\">R/radpp.R<\/a>","<a href=\"#\">R/radpc.R<\/a>","<a href=\"#\">R/radqs.R<\/a>","<a href=\"#\">R/radhy.R<\/a>","<a href=\"#\">R/radqlqc.R<\/a>","<a href=\"#\">R/radvs.R<\/a>","<a href=\"#\">R/radsl.R<\/a>","<a href=\"#\">R/radex.R<\/a>","<a href=\"#\">R/radeg.R<\/a>","<a href=\"#\">R/radab.R<\/a>","<a href=\"#\">R/radlb.R<\/a>","<a href=\"#\">R/radtr.R<\/a>","<a href=\"#\">R/radsaftte.R<\/a>"],[460,190,141,144,267,286,291,242,211,158,139,192,245,1271,258,268,330,377,394,434,175,24],[136,105,80,82,170,170,170,119,133,74,75,101,116,856,155,155,198,221,254,279,109,1],[127,102,78,80,166,166,167,117,131,73,74,100,115,850,154,154,197,220,253,278,109,1],[9,3,2,2,4,4,3,2,2,1,1,1,1,6,1,1,1,1,1,1,0,0],["549","30","5","5","43","15","4","3","23","3","6","6","3","123","5","26","21","4","3","4","3","2"],["93.38%","97.14%","97.50%","97.56%","97.65%","97.65%","98.24%","98.32%","98.50%","98.65%","98.67%","99.01%","99.14%","99.30%","99.35%","99.35%","99.49%","99.55%","99.61%","99.64%","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-cfc33a519962fefacb96" style="width:100%;height:500px;"></div>
+          <script type="application/json" data-for="htmlwidget-cfc33a519962fefacb96">{"x":{"filter":"none","vertical":false,"fillContainer":false,"data":[["<a href=\"#\">R/utils.R<\/a>","<a href=\"#\">R/radrs.R<\/a>","<a href=\"#\">R/radmh.R<\/a>","<a href=\"#\">R/raddv.R<\/a>","<a href=\"#\">R/radaette.R<\/a>","<a href=\"#\">R/radtte.R<\/a>","<a href=\"#\">R/radae.R<\/a>","<a href=\"#\">R/radsub.R<\/a>","<a href=\"#\">R/radcm.R<\/a>","<a href=\"#\">R/radpp.R<\/a>","<a href=\"#\">R/radpc.R<\/a>","<a href=\"#\">R/radqs.R<\/a>","<a href=\"#\">R/radhy.R<\/a>","<a href=\"#\">R/radqlqc.R<\/a>","<a href=\"#\">R/radsl.R<\/a>","<a href=\"#\">R/radvs.R<\/a>","<a href=\"#\">R/radex.R<\/a>","<a href=\"#\">R/radeg.R<\/a>","<a href=\"#\">R/radab.R<\/a>","<a href=\"#\">R/radlb.R<\/a>","<a href=\"#\">R/radtr.R<\/a>","<a href=\"#\">R/radsaftte.R<\/a>"],[464,190,141,144,267,286,291,242,211,158,139,192,245,1271,268,258,330,373,394,434,175,24],[143,105,80,82,170,170,170,119,133,74,75,101,116,856,155,155,198,218,254,279,109,1],[131,102,78,80,166,166,167,117,131,73,74,100,115,850,154,154,197,217,253,278,109,1],[12,3,2,2,4,4,3,2,2,1,1,1,1,6,1,1,1,1,1,1,0,0],["524","30","5","5","43","15","4","3","23","3","6","6","3","123","26","5","21","4","3","4","3","2"],["91.61%","97.14%","97.50%","97.56%","97.65%","97.65%","98.24%","98.32%","98.50%","98.65%","98.67%","99.01%","99.14%","99.30%","99.35%","99.35%","99.49%","99.54%","99.61%","99.64%","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/radlb.R" class="hidden">
+            <div id="R/utils.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">#' Laboratory Data Analysis Dataset (ADLB)</pre>
+                      <pre class="language-r">#' Load Cached Data</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -132,7 +132,7 @@ <h2>random.cdisc.data coverage - 98.86%</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">#' Return data attached to package.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -146,105 +146,105 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function for generating a random Laboratory Data Analysis Dataset for a given</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Subject-Level Analysis Dataset.</pre>
+                      <pre class="language-r">#' @noRd</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">get_cached_data &lt;- function(dataname) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">8</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details One record per subject per parameter per analysis visit per analysis date.</pre>
+                      <pre class="language-r">  checkmate::assert_string(dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">9</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">  if (!("package:random.cdisc.data" %in% search())) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">10</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `PARAMCD`, `BASETYPE`, `AVISITN`, `ATPTN`, `DTYPE`, `ADTM`, `LBSEQ`, `ASPID`</pre>
+                      <pre class="language-r">    stop("cached data can only be loaded if the random.cdisc.data package is attached.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">11</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">      "Please run library(random.cdisc.data) before loading cached data.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">12</td>
-                    <td class="coverage"></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">      call. = FALSE</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 lbcat (`character vector`)\cr LB category values.</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 max_n_lbs (`integer`)\cr Maximum number of labs per patient. Defaults to 10.</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">15</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @template param_cached</pre>
+                      <pre class="language-r">    get(dataname, envir = asNamespace("random.cdisc.data"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @templateVar data adlb</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">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `data.frame`</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">#' @export</pre>
+                      <pre class="language-r">#' Create a Factor with Random Elements of x</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -258,7 +258,7 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @author tomlinsj, npaszty, Xuefeng Hou</pre>
+                      <pre class="language-r">#' Sample elements from `x` with replacement to build a factor.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -272,644 +272,644 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @param x (`character vector` or `factor`)\cr If character vector then it is also used</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</pre>
+                      <pre class="language-r">#'   as levels of the returned factor. If factor then the levels are used as the new levels.</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">#' @param N (`numeric`)\cr Number of items to choose.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb &lt;- radlb(adsl, visit_format = "WEEK", n_assessments = 7L, seed = 2)</pre>
+                      <pre class="language-r">#' @param ... Additional arguments to be passed to `sample`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</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">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return A factor of length `N`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb &lt;- radlb(adsl, visit_format = "CYCLE", n_assessments = 2L, seed = 2)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</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">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">radlb &lt;- function(adsl,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  lbcat = c("CHEMISTRY", "CHEMISTRY", "IMMUNOLOGY"),</pre>
+                      <pre class="language-r">#' sample_fct(letters[1:3], 10)</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 = c(</pre>
+                      <pre class="language-r">#' sample_fct(iris$Species, 10)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "Alanine Aminotransferase Measurement",</pre>
+                      <pre class="language-r">sample_fct &lt;- function(x, N, ...) { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">35</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">296<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "C-Reactive Protein Measurement",</pre>
+                      <pre class="language-r">  checkmate::assert_number(N)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "Immunoglobulin A Measurement"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">37</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">296<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ),</pre>
+                      <pre class="language-r">  factor(sample(x, N, replace = TRUE, ...), levels = if (is.factor(x)) levels(x) else x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  paramcd = c("ALT", "CRP", "IGA"),</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">                  paramu = c("U/L", "mg/L", "g/L"),</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">                  aval_mean = c(18, 9, 2.9),</pre>
+                      <pre class="language-r">#' Related Variables: Initialize</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  visit_format = "WEEK",</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">                  n_assessments = 5L,</pre>
+                      <pre class="language-r">#' Verify and initialize related variable values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  n_days = 5L,</pre>
+                      <pre class="language-r">#' For example, `relvar_init("Alanine Aminotransferase Measurement", "ALT")`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  max_n_lbs = 10L,</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">                  lookup = NULL,</pre>
+                      <pre class="language-r">#' @param relvar1 (`list` of `character`)\cr List of n elements.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  seed = NULL,</pre>
+                      <pre class="language-r">#' @param relvar2 (`list` of `character`)\cr List of n elements.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  na_percentage = 0,</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">                  na_vars = list(</pre>
+                      <pre class="language-r">#' @return A vector of n elements.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    LOQFL = c(NA, 0.1), ABLFL2 = c(1234, 0.1), ABLFL = c(1235, 0.1),</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">                    BASE2 = c(NA, 0.1), BASE = c(NA, 0.1),</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    CHG2 = c(1235, 0.1), PCHG2 = c(1235, 0.1), CHG = c(1234, 0.1), PCHG = c(1234, 0.1)</pre>
+                      <pre class="language-r">relvar_init &lt;- function(relvar1, relvar2) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">52</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">  checkmate::assert_character(relvar1, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">53</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  cached = FALSE) {</pre>
+                      <pre class="language-r">  checkmate::assert_character(relvar2, min.len = 1, any.missing = FALSE)</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_flag(cached)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">55</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">  if (cached) {</pre>
+                      <pre class="language-r">  if (length(relvar1) != length(relvar2)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">56</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(get_cached_data("cadlb"))</pre>
+                      <pre class="language-r">    message(simpleError(</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">      "The argument value length of relvar1 and relvar2 differ. They must contain the same number of elements."</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="missed">
                     <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">  checkmate::assert_data_frame(adsl)</pre>
+                      <pre class="language-r">    return(NA)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">60</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(param, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">63<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(paramcd, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  return(list("relvar1" = relvar1, "relvar2" = relvar2))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">62</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(paramu, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">63</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(lbcat, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">64</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(visit_format)</pre>
+                      <pre class="language-r">#' Related Variables: Assign</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">65</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(n_assessments, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">66</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(n_days, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">#' Assign values to a related variable within a domain.</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">  checkmate::assert_integer(max_n_lbs, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">68</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(lookup, null.ok = TRUE)</pre>
+                      <pre class="language-r">#' @param df (`data.frame`)\cr Data frame containing the related variables.</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">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
+                      <pre class="language-r">#' @param var_name (`character`)\cr Name of variable related to `rel_var` to add to `df`.</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">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">#' @param var_values (`any`)\cr Vector of values related to values of `related_var`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">71</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
+                      <pre class="language-r">#' @param related_var (`character`)\cr Name of variable within `df` with values to which values</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">#' of `var_name` must relate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # validate and initialize related variables</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">  lbcat_init_list &lt;- relvar_init(param, lbcat)</pre>
+                      <pre class="language-r">#' @return `df` with added factor variable `var_name` containing `var_values` corresponding to `related_var`.</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">  param_init_list &lt;- relvar_init(param, paramcd)</pre>
+                      <pre class="language-r">#' @export</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">  unit_init_list &lt;- relvar_init(param, paramu)</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">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">78</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(seed)) {</pre>
+                      <pre class="language-r">#' # Example with data.frame.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">79</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set.seed(seed)</pre>
+                      <pre class="language-r">#' params &lt;- c("Level A", "Level B", "Level C")</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">#' adlb_df &lt;- data.frame(</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">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</pre>
+                      <pre class="language-r">#'   ID = 1:9,</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">#'   PARAM = factor(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">83</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- expand.grid(</pre>
+                      <pre class="language-r">#'     rep(c("Level A", "Level B", "Level C"), 3),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">84</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID = unique(adsl$STUDYID),</pre>
+                      <pre class="language-r">#'     levels = params</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <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">    USUBJID = adsl$USUBJID,</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <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">    PARAM = as.factor(param_init_list$relvar1),</pre>
+                      <pre class="language-r">#' )</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">    AVISIT = visit_schedule(visit_format = visit_format, n_assessments = n_assessments, n_days = n_days),</pre>
+                      <pre class="language-r">#' rel_var(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <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">    stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">#'   df = adlb_df,</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">#'   var_name = "PARAMCD",</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">#'   var_values = c("A", "B", "C"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # assign AVAL based on different tests</pre>
+                      <pre class="language-r">#'   related_var = "PARAM"</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">  adlb &lt;- adlb %&gt;% mutate(AVAL = case_when(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">93</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAM == param[1] ~ abs(stats::rnorm(nrow(adlb), mean = aval_mean[1], sd = 10)),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">94</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAM == param[2] ~ abs(stats::rnorm(nrow(adlb), mean = aval_mean[2], sd = 1)),</pre>
+                      <pre class="language-r">#' # Example with tibble.</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">    PARAM == param[3] ~ abs(stats::rnorm(nrow(adlb), mean = aval_mean[3], sd = 0.1))</pre>
+                      <pre class="language-r">#' adlb_tbl &lt;- tibble::tibble(</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">#'   ID = 1:9,</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 = factor(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # assign related variable values: PARAMxLBCAT are related</pre>
+                      <pre class="language-r">#'     rep(c("Level A", "Level B", "Level C"), 3),</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">  adlb &lt;- adlb %&gt;% rel_var(</pre>
+                      <pre class="language-r">#'     levels = params</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">    var_name = "LBCAT",</pre>
+                      <pre class="language-r">#'   )</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">    related_var = "PARAM",</pre>
+                      <pre class="language-r">#' )</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">    var_values = lbcat_init_list$relvar2</pre>
+                      <pre class="language-r">#' rel_var(</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">#'   df = adlb_tbl,</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">#'   var_name = "PARAMCD",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # assign related variable values: PARAMxPARAMCD are related</pre>
+                      <pre class="language-r">#'   var_values = c("A", "B", "C"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">106</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- adlb %&gt;% rel_var(</pre>
+                      <pre class="language-r">#'   related_var = "PARAM"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">107</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_name = "PARAMCD",</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">108</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    related_var = "PARAM",</pre>
+                      <pre class="language-r">rel_var &lt;- function(df, var_name, related_var, var_values = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">109</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_values = param_init_list$relvar2</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">110</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">  checkmate::assert_string(var_name)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">111</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">  checkmate::assert_string(related_var)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">112</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- adlb %&gt;%</pre>
+                      <pre class="language-r">  n_relvar1 &lt;- length(unique(df[, related_var, drop = TRUE]))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">113</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(LBTESTCD = PARAMCD) %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_vector(var_values, null.ok = TRUE, len = n_relvar1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">114</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">    dplyr::mutate(LBTEST = PARAM)</pre>
+                      <pre class="language-r">  if (is.null(var_values)) var_values &lt;- rep(NA, n_relvar1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -921,1304 +921,1304 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                   </tr>
                   <tr class="covered">
                     <td class="num">116</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- adlb %&gt;% dplyr::mutate(AVISITN = dplyr::case_when(</pre>
+                      <pre class="language-r">  relvar1 &lt;- unique(df[, related_var, drop = TRUE])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">117</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVISIT == "SCREENING" ~ -1,</pre>
+                      <pre class="language-r">  relvar2_values &lt;- rep(NA, nrow(df))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">118</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVISIT == "BASELINE" ~ 0,</pre>
+                      <pre class="language-r">  for (r in seq_len(n_relvar1)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">119</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">538<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    (grepl("^WEEK", AVISIT) | grepl("^CYCLE", AVISIT)) ~ as.numeric(AVISIT) - 2,</pre>
+                      <pre class="language-r">    matched &lt;- which(df[, related_var, drop = TRUE] == relvar1[r])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">120</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">538<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    TRUE ~ NA_real_</pre>
+                      <pre class="language-r">    relvar2_values[matched] &lt;- var_values[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">  ))</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">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  df[[var_name]] &lt;- factor(relvar2_values)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">123</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- adlb %&gt;% rel_var(</pre>
+                      <pre class="language-r">  return(df)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">124</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_name = "AVALU",</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">125</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    related_var = "PARAM",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">126</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_values = unit_init_list$relvar2</pre>
+                      <pre class="language-r">#' Create Visit Schedule</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">#'</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">#' Create a visit schedule as a factor.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">129</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- adlb %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">130</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(AVISITN = dplyr::case_when(</pre>
+                      <pre class="language-r">#' X number of visits, or X number of cycles and Y number of days.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">131</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISIT == "SCREENING" ~ -1,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">132</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISIT == "BASELINE" ~ 0,</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">133</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      (grepl("^WEEK", AVISIT) | grepl("^CYCLE", AVISIT)) ~ as.numeric(AVISIT) - 2,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">134</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ NA_real_</pre>
+                      <pre class="language-r">#' @return A factor of length `n_assessments`.</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">#' @export</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">  # order to prepare for change from screening and baseline values</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">138</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- adlb[order(adlb$STUDYID, adlb$USUBJID, adlb$PARAMCD, adlb$AVISITN), ]</pre>
+                      <pre class="language-r">#' visit_schedule(visit_format = "WEeK", n_assessments = 10L)</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">#' visit_schedule(visit_format = "CyCLE", n_assessments = 5L, n_days = 2L)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">140</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- Reduce(rbind, lapply(split(adlb, adlb$USUBJID), function(x) {</pre>
+                      <pre class="language-r">visit_schedule &lt;- function(visit_format = "WEEK",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">141</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x$STUDYID &lt;- adsl$STUDYID[which(adsl$USUBJID == x$USUBJID[1])]</pre>
+                      <pre class="language-r">                           n_assessments = 10L,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">142</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x$ABLFL2 &lt;- ifelse(x$AVISIT == "SCREENING", "Y", "")</pre>
+                      <pre class="language-r">                           n_days = 5L) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">143</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x$ABLFL &lt;- ifelse(toupper(visit_format) == "WEEK" &amp; x$AVISIT == "BASELINE",</pre>
+                      <pre class="language-r">  checkmate::assert_string(visit_format, pattern = "^WEEK$|^CYCLE$", ignore.case = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">144</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Y",</pre>
+                      <pre class="language-r">  checkmate::assert_integer(n_assessments, len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">145</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ifelse(toupper(visit_format) == "CYCLE" &amp; x$AVISIT == "CYCLE 1 DAY 1", "Y", "")</pre>
+                      <pre class="language-r">  checkmate::assert_integer(n_days, len = 1, any.missing = FALSE)</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="covered">
                     <td class="num">147</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x</pre>
+                      <pre class="language-r">  if (toupper(visit_format) == "WEEK") {</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">    # numeric vector of n assessments/cycles/days</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">149</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">    assessments &lt;- 1:n_assessments</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">150</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb$BASE2 &lt;- retain(adlb, adlb$AVAL, adlb$ABLFL2 == "Y")</pre>
+                      <pre class="language-r">    # numeric vector for ordering including screening (-1) and baseline (0) place holders</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">151</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb$BASE &lt;- ifelse(adlb$ABLFL2 != "Y", retain(adlb, adlb$AVAL, adlb$ABLFL == "Y"), NA)</pre>
+                      <pre class="language-r">    assessments_ord &lt;- -1:n_assessments</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">    # character vector of nominal visit values</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">153</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- adlb %&gt;%</pre>
+                      <pre class="language-r">    visit_values &lt;- c("SCREENING", "BASELINE", paste(toupper(visit_format), assessments, "DAY", (assessments * 7) + 1))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">154</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">    dplyr::mutate(CHG2 = AVAL - BASE2) %&gt;%</pre>
+                      <pre class="language-r">  } else if (toupper(visit_format) == "CYCLE") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">155</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">    dplyr::mutate(PCHG2 = 100 * (CHG2 / BASE2)) %&gt;%</pre>
+                      <pre class="language-r">    cycles &lt;- sort(rep(1:n_assessments, times = 1, each = n_days))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">156</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">    dplyr::mutate(CHG = AVAL - BASE) %&gt;%</pre>
+                      <pre class="language-r">    days &lt;- rep(seq(1:n_days), times = n_assessments, each = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">157</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">    dplyr::mutate(PCHG = 100 * (CHG / BASE)) %&gt;%</pre>
+                      <pre class="language-r">    assessments_ord &lt;- 0:(n_assessments * n_days)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">158</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">    dplyr::mutate(BASETYPE = "LAST") %&gt;%</pre>
+                      <pre class="language-r">    visit_values &lt;- c("SCREENING", paste(toupper(visit_format), cycles, "DAY", days))</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">    dplyr::mutate(ANRLO = dplyr::case_when(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">160</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "ALT" ~ 7,</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">      PARAMCD == "CRP" ~ 8,</pre>
+                      <pre class="language-r">  # create and order factor variable to return from function</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">162</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "IGA" ~ 0.8</pre>
+                      <pre class="language-r">  visit_values &lt;- stats::reorder(factor(visit_values), assessments_ord)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">163</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">
+                  <tr class="never">
                     <td class="num">164</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ANRHI = dplyr::case_when(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">165</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "ALT" ~ 55,</pre>
+                      <pre class="language-r">#' Primary Keys: Retain Values</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">166</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "CRP" ~ 10,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">167</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "IGA" ~ 3</pre>
+                      <pre class="language-r">#' Retain values within primary keys.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">168</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">
+                  <tr class="never">
                     <td class="num">169</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ANRIND = factor(dplyr::case_when(</pre>
+                      <pre class="language-r">#' @param df (`data.frame`)\cr Data frame in which to apply the retain.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">170</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL &lt; ANRLO ~ "LOW",</pre>
+                      <pre class="language-r">#' @param value_var (`any`)\cr Variable in `df` containing the value to be retained.</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">      AVAL &gt; ANRHI ~ "HIGH",</pre>
+                      <pre class="language-r">#' @param event (`expression`)\cr Expression returning a logical value to trigger the retain.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">172</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ "NORMAL"</pre>
+                      <pre class="language-r">#' @param outside (`any`)\cr Additional value to retain. Defaults to `NA`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))) %&gt;%</pre>
+                      <pre class="language-r">#' @return A vector of values where expression is true.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">174</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(LBSTRESC = factor(dplyr::case_when(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">175</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "ALT" ~ "&lt;7",</pre>
+                      <pre class="language-r">retain &lt;- function(df, value_var, event, outside = NA) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">176</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "CRP" ~ "&lt;8",</pre>
+                      <pre class="language-r">  indices &lt;- c(1, which(event == TRUE), nrow(df) + 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">177</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "IGA" ~ "&gt;3"</pre>
+                      <pre class="language-r">  values &lt;- c(outside, value_var[event == TRUE])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">178</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))) %&gt;%</pre>
+                      <pre class="language-r">  rep(values, diff(indices))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">179</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::rowwise() %&gt;%</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">180</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(LOQFL = factor(</pre>
+                      <pre class="language-r"></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">      ifelse(eval(parse(text = paste(AVAL, LBSTRESC))), "Y", "N")</pre>
+                      <pre class="language-r">#' Primary Keys: Labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">182</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">
+                  <tr class="never">
                     <td class="num">183</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">#' @description Shallow copy of `formatters::var_relabel()`. Used mainly internally to</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">184</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID, PARAMCD, BASETYPE) %&gt;%</pre>
+                      <pre class="language-r">#'   relabel a subset of variables in a data set.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">185</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(BNRIND = ANRIND[ABLFL == "Y"]) %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">186</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">#' @param x (`data.frame`)\cr Data frame containing variables to which labels are applied.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">187</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(SHIFT1 = factor(ifelse(</pre>
+                      <pre class="language-r">#' @param ... (`named character`)\cr Name-Value pairs, where name corresponds to a variable</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">188</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISITN &gt; 0,</pre>
+                      <pre class="language-r">#'   name in `x` and the value to the new variable label.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">189</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste(</pre>
+                      <pre class="language-r">#' @return x (`data.frame`)\cr Data frame with labels applied.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">190</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        retain(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">191</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          adlb, as.character(BNRIND),</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">192</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          AVISITN == 0</pre>
+                      <pre class="language-r">rcd_var_relabel &lt;- function(x, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">193</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">  stopifnot(is.data.frame(x))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">194</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ANRIND,</pre>
+                      <pre class="language-r">  if (missing(...)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">195</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sep = " to "</pre>
+                      <pre class="language-r">    return(x)</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="never">
+                  <tr class="covered">
                     <td class="num">197</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">  dots &lt;- list(...)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">198</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))) %&gt;%</pre>
+                      <pre class="language-r">  varnames &lt;- names(dots)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">199</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ATOXGR = factor(dplyr::case_when(</pre>
+                      <pre class="language-r">  if (is.null(varnames)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">200</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">      ANRIND == "LOW" ~ sample(</pre>
+                      <pre class="language-r">    stop("missing variable declarations")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">201</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c("-1", "-2", "-3", "-4", "-5"),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">202</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nrow(adlb),</pre>
+                      <pre class="language-r">  map_varnames &lt;- match(varnames, colnames(x))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">203</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        replace = TRUE,</pre>
+                      <pre class="language-r">  if (any(is.na(map_varnames))) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">204</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        prob = c(0.30, 0.25, 0.20, 0.15, 0)</pre>
+                      <pre class="language-r">    stop("variables: ", paste(varnames[is.na(map_varnames)], collapse = ", "), " not found")</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">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">206</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANRIND == "HIGH" ~ sample(</pre>
+                      <pre class="language-r">  if (any(vapply(dots, Negate(is.character), logical(1)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">207</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c("1", "2", "3", "4", "5"),</pre>
+                      <pre class="language-r">    stop("all variable labels must be of type character")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">208</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nrow(adlb),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">209</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        replace = TRUE,</pre>
+                      <pre class="language-r">  for (i in seq_along(map_varnames)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">210</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">155<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        prob = c(0.30, 0.25, 0.20, 0.15, 0)</pre>
+                      <pre class="language-r">    attr(x[[map_varnames[[i]]]], "label") &lt;- dots[[i]]</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">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">212</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANRIND == "NORMAL" ~ "0"</pre>
+                      <pre class="language-r">  x</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">213</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">
+                  <tr class="never">
                     <td class="num">214</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID, PARAMCD, BASETYPE) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">215</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(BTOXGR = ATOXGR[ABLFL == "Y"]) %&gt;%</pre>
+                      <pre class="language-r">#' Apply Metadata</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">216</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">217</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ATPTN = 1) %&gt;%</pre>
+                      <pre class="language-r">#' Apply label and variable ordering attributes to domains.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">218</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(DTYPE = NA) %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">219</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(BTOXGRL = factor(dplyr::case_when(</pre>
+                      <pre class="language-r">#' @param df (`data.frame`)\cr Data frame to which metadata is applied.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">220</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BTOXGR == "0" ~ "0",</pre>
+                      <pre class="language-r">#' @param filename (`yaml`)\cr File containing domain metadata.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">221</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BTOXGR == "-1" ~ "1",</pre>
+                      <pre class="language-r">#' @param add_adsl (`logical`)\cr Should ADSL data be merged to domain.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">222</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BTOXGR == "-2" ~ "2",</pre>
+                      <pre class="language-r">#' @param adsl_filename (`yaml`)\cr File containing ADSL metadata.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">223</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BTOXGR == "-3" ~ "3",</pre>
+                      <pre class="language-r">#' @return Data frame with metadata applied.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">224</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BTOXGR == "-4" ~ "4",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">225</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BTOXGR == "1" ~ "&lt;Missing&gt;",</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">226</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BTOXGR == "2" ~ "&lt;Missing&gt;",</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">227</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BTOXGR == "3" ~ "&lt;Missing&gt;",</pre>
+                      <pre class="language-r">#' seed &lt;- 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">228</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BTOXGR == "4" ~ "&lt;Missing&gt;"</pre>
+                      <pre class="language-r">#' adsl &lt;- radsl(seed = seed)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))) %&gt;%</pre>
+                      <pre class="language-r">#' adsub &lt;- radsub(adsl, seed = seed)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">230</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(BTOXGRH = factor(dplyr::case_when(</pre>
+                      <pre class="language-r">#' yaml_path &lt;- file.path(path.package("random.cdisc.data"), "inst", "metadata")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">231</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BTOXGR == "0" ~ "0",</pre>
+                      <pre class="language-r">#' adsl &lt;- apply_metadata(adsl, file.path(yaml_path, "ADSL.yml"), FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">232</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BTOXGR == "1" ~ "1",</pre>
+                      <pre class="language-r">#' adsub &lt;- apply_metadata(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">233</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BTOXGR == "2" ~ "2",</pre>
+                      <pre class="language-r">#'   adsub, file.path(yaml_path, "ADSUB.yml"), TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">234</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BTOXGR == "3" ~ "3",</pre>
+                      <pre class="language-r">#'   file.path(yaml_path, "ADSL.yml")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">235</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BTOXGR == "4" ~ "4",</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">236</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BTOXGR == "-1" ~ "&lt;Missing&gt;",</pre>
+                      <pre class="language-r">apply_metadata &lt;- function(df, filename, add_adsl = TRUE, adsl_filename = "metadata/ADSL.yml") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">237</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BTOXGR == "-2" ~ "&lt;Missing&gt;",</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">238</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BTOXGR == "-3" ~ "&lt;Missing&gt;",</pre>
+                      <pre class="language-r">  checkmate::assert_string(filename)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">239</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BTOXGR == "-4" ~ "&lt;Missing&gt;",</pre>
+                      <pre class="language-r">  checkmate::assert_flag(add_adsl)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">240</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))) %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_string(adsl_filename)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">241</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ATOXGRL = factor(dplyr::case_when(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">242</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ATOXGR == "0" ~ "0",</pre>
+                      <pre class="language-r">  apply_type &lt;- function(df, var, type) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">243</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">5986<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ATOXGR == "-1" ~ "1",</pre>
+                      <pre class="language-r">    if (is.null(type)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">244</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ATOXGR == "-2" ~ "2",</pre>
+                      <pre class="language-r">      return()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">245</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ATOXGR == "-3" ~ "3",</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">246</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ATOXGR == "-4" ~ "4",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">247</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">5986<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ATOXGR == "1" ~ "&lt;Missing&gt;",</pre>
+                      <pre class="language-r">    if (type == "character" &amp;&amp; !is.character(df[[var]])) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">248</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ATOXGR == "2" ~ "&lt;Missing&gt;",</pre>
+                      <pre class="language-r">      df[[var]] &lt;- as.character(df[[var]])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">249</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">5974<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ATOXGR == "3" ~ "&lt;Missing&gt;",</pre>
+                      <pre class="language-r">    } else if (type == "factor" &amp;&amp; !is.factor(df[[var]])) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">250</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">730<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ATOXGR == "4" ~ "&lt;Missing&gt;",</pre>
+                      <pre class="language-r">      df[[var]] &lt;- as.factor(df[[var]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">251</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5244<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))) %&gt;%</pre>
+                      <pre class="language-r">    } else if (type == "integer" &amp;&amp; !is.integer(df[[var]])) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">252</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">225<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ATOXGRH = factor(dplyr::case_when(</pre>
+                      <pre class="language-r">      df[[var]] &lt;- as.integer(df[[var]])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">253</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">5019<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ATOXGR == "0" ~ "0",</pre>
+                      <pre class="language-r">    } else if (type == "numeric" &amp;&amp; !is.numeric(df[[var]])) {</pre>
                     </td>
                   </tr>
                   <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">      ATOXGR == "1" ~ "1",</pre>
+                      <pre class="language-r">      df[[var]] &lt;- as.numeric(df[[var]])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">255</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">5016<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ATOXGR == "2" ~ "2",</pre>
+                      <pre class="language-r">    } else if (type == "logical" &amp;&amp; !is.logical(df[[var]])) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">256</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ATOXGR == "3" ~ "3",</pre>
+                      <pre class="language-r">      df[[var]] &lt;- as.logical(df[[var]])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">257</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">5016<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ATOXGR == "4" ~ "4",</pre>
+                      <pre class="language-r">    } else if (type == "datetime" &amp;&amp; !lubridate::is.POSIXct(df[[var]])) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">258</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ATOXGR == "-1" ~ "&lt;Missing&gt;",</pre>
+                      <pre class="language-r">      df[[var]] &lt;- as.POSIXct(df[[var]])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">259</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">5007<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ATOXGR == "-2" ~ "&lt;Missing&gt;",</pre>
+                      <pre class="language-r">    } else if (type == "date" &amp;&amp; !lubridate::is.Date(df[[var]])) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">260</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ATOXGR == "-3" ~ "&lt;Missing&gt;",</pre>
+                      <pre class="language-r">      df[[var]] &lt;- as.Date(df[[var]])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">261</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ATOXGR == "-4" ~ "&lt;Missing&gt;",</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">262</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5986<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))) %&gt;%</pre>
+                      <pre class="language-r">    return(df)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">263</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_relabel(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">264</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID = attr(adsl$STUDYID, "label"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <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">      USUBJID = attr(adsl$USUBJID, "label")</pre>
+                      <pre class="language-r">  # remove existing attributes</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">266</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  for (i in base::setdiff(names(attributes(df)), names(attributes(data.frame())))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">267</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(df, i) &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # High and low descriptions of the different PARAMCD values</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">  # This is currently hard coded as the GDSR does not have these descriptions yet</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">270</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grade_lookup &lt;- tibble::tribble(</pre>
+                      <pre class="language-r">  # get metadata</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">271</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ~PARAMCD, ~ATOXDSCL, ~ATOXDSCH,</pre>
+                      <pre class="language-r">  metadata &lt;- yaml::yaml.load_file(system.file(filename, package = "random.cdisc.data"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">272</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "ALB", "Hypoalbuminemia", NA_character_,</pre>
+                      <pre class="language-r">  adsl_metadata &lt;- if (add_adsl) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">273</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "ALKPH", NA_character_, "Alkaline phosphatase increased",</pre>
+                      <pre class="language-r">    yaml::yaml.load_file(system.file(adsl_filename, package = "random.cdisc.data"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">274</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "ALT", NA_character_, "Alanine aminotransferase increased",</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">275</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "AST", NA_character_, "Aspartate aminotransferase increased",</pre>
+                      <pre class="language-r">    NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">276</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "BILI", NA_character_, "Blood bilirubin increased",</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="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "CA", "Hypocalcemia", "Hypercalcemia",</pre>
+                      <pre class="language-r">  metadata_variables &lt;- append(adsl_metadata$variables, metadata$variables)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">278</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "CHOLES", NA_character_, "Cholesterol high",</pre>
+                      <pre class="language-r">  metadata_varnames &lt;- names(metadata_variables)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">279</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "CK", NA_character_, "CPK increased",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">280</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "CREAT", NA_character_, "Creatinine increased",</pre>
+                      <pre class="language-r">  # find variables that does not have labels and are not it metadata</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">281</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "CRP", NA_character_, "C reactive protein increased",</pre>
+                      <pre class="language-r">  missing_vars_map &lt;- vapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">282</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "GGT", NA_character_, "GGT increased",</pre>
+                      <pre class="language-r">    names(df),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">283</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "GLUC", "Hypoglycemia", "Hyperglycemia",</pre>
+                      <pre class="language-r">    function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">284</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">5986<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "HGB", "Anemia", "Hemoglobin increased",</pre>
+                      <pre class="language-r">      !(x %in% c("STUDYID", "USUBJID", metadata_varnames)) &amp;&amp; is.null(attr(df[[x]], "label"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">285</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "IGA", NA_character_, "Immunoglobulin A increased",</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">286</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "POTAS", "Hypokalemia", "Hyperkalemia",</pre>
+                      <pre class="language-r">    logical(1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">287</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "LYMPH", "CD4 lymphocytes decreased", NA_character_,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">288</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "PHOS", "Hypophosphatemia", NA_character_,</pre>
+                      <pre class="language-r">  missing_vars &lt;- names(df)[missing_vars_map]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">289</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "PLAT", "Platelet count decreased", NA_character_,</pre>
+                      <pre class="language-r">  if (length(missing_vars) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">290</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "SODIUM", "Hyponatremia", "Hypernatremia",</pre>
+                      <pre class="language-r">    msg &lt;- paste0(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">291</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "WBC", "White blood cell decreased", "Leukocytosis",</pre>
+                      <pre class="language-r">      "Following variables does not have label or are not found in ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">292</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      filename,</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">      ": ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">294</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # merge grade_lookup onto adlb</pre>
+                      <pre class="language-r">      paste0(missing_vars, collapse = ", ")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">295</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- dplyr::left_join(adlb, grade_lookup, by = "PARAMCD")</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">296</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    warning(msg)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">297</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- var_relabel(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">298</td>
-                    <td class="coverage">3<em>x</em></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="covered">
                     <td class="num">299</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
+                      <pre class="language-r">  if (!all(metadata_varnames %in% names(df))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">300</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</pre>
+                      <pre class="language-r">    metadata_varnames &lt;- metadata_varnames[metadata_varnames %in% names(df)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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="never">
@@ -2232,12275 +2232,12393 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # merge ADSL to be able to add LB date and study day variables</pre>
+                      <pre class="language-r">  # assign labels to variables</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">304</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- dplyr::inner_join(</pre>
+                      <pre class="language-r">  for (var in metadata_varnames) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">305</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">5986<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb,</pre>
+                      <pre class="language-r">    df &lt;- apply_type(df, var, metadata_variables[[var]]$type)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">306</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">5986<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl,</pre>
+                      <pre class="language-r">    attr(df[[var]], "label") &lt;- metadata_variables[[var]]$label</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">307</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    by = c("STUDYID", "USUBJID")</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">308</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">
+                  <tr class="never">
                     <td class="num">309</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::rowwise() %&gt;%</pre>
+                      <pre class="language-r">  # reorder data frame columns to expected BDS order</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">310</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(TRTENDT = lubridate::date(dplyr::case_when(</pre>
+                      <pre class="language-r">  df &lt;- df[, unique(c("STUDYID", "USUBJID", metadata_varnames, names(df)))]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">311</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      is.na(TRTEDTM) ~ lubridate::floor_date(lubridate::date(TRTSDTM) + study_duration_secs, unit = "day"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ TRTEDTM</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))) %&gt;%</pre>
+                      <pre class="language-r">  # assign label to data frame</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">314</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">313</td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup()</pre>
+                      <pre class="language-r">  attr(df, "label") &lt;- metadata$domain$label</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
+                    <td class="num">315</td>
+                    <td class="coverage">90<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  df</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
                     <td class="num">316</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- adlb %&gt;%</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">317</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">318</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(USUBJID, AVISITN) %&gt;%</pre>
+                      <pre class="language-r">#' Replace Values in a Vector by NA</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">319</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ADTM = rep(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">320</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sort(sample(</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">321</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        seq(lubridate::as_datetime(TRTSDTM[1]), lubridate::as_datetime(TRTENDT[1]), by = "day"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">322</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        size = nlevels(AVISIT)</pre>
+                      <pre class="language-r">#' Randomized replacement of values by `NA`.</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>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">324</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      each = n() / nlevels(AVISIT)</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) %&gt;%</pre>
+                      <pre class="language-r">#' @param v (`any`)\cr Vector of any type.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">326</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">#' @param percentage (`proportion`)\cr Value between 0 and 1 defining</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">327</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ADY = ceiling(difftime(ADTM, TRTSDTM, units = "days"))) %&gt;%</pre>
+                      <pre class="language-r">#'   how much of the vector shall be replaced by `NA`. This number</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">328</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(-TRTENDT) %&gt;%</pre>
+                      <pre class="language-r">#'   is randomized by +/- 5% to have full randomization.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">329</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(STUDYID, USUBJID, ADTM)</pre>
+                      <pre class="language-r">#'</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">#' @return The input vector `v` where a certain number of values are replaced by `NA`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">331</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- adlb %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">332</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ASPID = sample(seq_len(dplyr::n()))) %&gt;%</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">333</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">replace_na &lt;- function(v, percentage = 0.05, seed = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">334</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(LBSEQ = seq_len(dplyr::n())) %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_number(percentage, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">335</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ASEQ = LBSEQ) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">336</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">  if (percentage == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">337</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">    dplyr::arrange(</pre>
+                      <pre class="language-r">    return(v)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">338</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">339</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">340</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD,</pre>
+                      <pre class="language-r">  if (!is.null(seed) &amp;&amp; !is.na(seed)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">341</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BASETYPE,</pre>
+                      <pre class="language-r">    set.seed(seed)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">342</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISITN,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">343</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ATPTN,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">344</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      DTYPE,</pre>
+                      <pre class="language-r">  # randomize the percentage</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">345</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ADTM,</pre>
+                      <pre class="language-r">  ind &lt;- sample(seq_along(v), round(length(v) * percentage))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">346</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      LBSEQ,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">347</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ASPID</pre>
+                      <pre class="language-r">  v[ind] &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">348</td>
                     <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">349</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">  return(v)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">350</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- adlb %&gt;% dplyr::mutate(ONTRTFL = factor(dplyr::case_when(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">351</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    !AVISIT %in% c("SCREENING", "BASELINE") ~ "Y",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">352</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    TRUE ~ ""</pre>
+                      <pre class="language-r">#' Replace Values with NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">354</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">355</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  flag_variables &lt;- function(data,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">356</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             apply_grouping,</pre>
+                      <pre class="language-r">#' Replace column values with `NA`s.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">357</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             apply_filter,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">358</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             apply_mutate) {</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">359</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_compare &lt;- data %&gt;%</pre>
+                      <pre class="language-r">#' @param ds (`data.frame`)\cr Any data set.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">360</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::mutate(row_check = seq_len(nrow(data)))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">361</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return dataframe without `NA` values.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">362</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data &lt;- data_compare %&gt;%</pre>
+                      <pre class="language-r">#'</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>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">364</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (apply_grouping == TRUE) {</pre>
+                      <pre class="language-r">mutate_na &lt;- function(ds, na_vars = NULL, na_percentage = 0.05) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">365</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">          dplyr::group_by(., USUBJID, PARAMCD, BASETYPE, AVISIT)</pre>
+                      <pre class="language-r">  if (!is.null(na_vars)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">366</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">    stopifnot(is.list(na_vars)) # any list is OK; as values can be left NA</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">367</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dplyr::group_by(., USUBJID, PARAMCD, BASETYPE)</pre>
+                      <pre class="language-r">    stopifnot(length(names(na_vars)) == length(na_vars)) # names for all elements</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">368</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">369</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } %&gt;%</pre>
+                      <pre class="language-r">    na_vars &lt;- names(ds)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">370</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::arrange(ADTM, ASPID, LBSEQ) %&gt;%</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">      {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">372</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (apply_filter == TRUE) {</pre>
+                      <pre class="language-r">  stopifnot(is.numeric(na_percentage))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">373</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dplyr::filter(</pre>
+                      <pre class="language-r">  stopifnot(na_percentage &gt;= 0 &amp;&amp; na_percentage &lt; 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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="covered">
                     <td class="num">375</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            (AVISIT != "BASELINE" &amp; AVISIT != "SCREENING") &amp;</pre>
+                      <pre class="language-r">  for (na_var in names(na_vars)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">376</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              (ONTRTFL == "Y" | ADTM &lt;= TRTSDTM)</pre>
+                      <pre class="language-r">    if (!is.na(na_var)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">377</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ) %&gt;%</pre>
+                      <pre class="language-r">      if (!na_var %in% names(ds)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">378</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">            dplyr::filter(ATOXGR == max(as.numeric(as.character(ATOXGR))))</pre>
+                      <pre class="language-r">        warning(paste(na_var, "not in column names"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">379</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (apply_filter == FALSE) {</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">380</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dplyr::filter(</pre>
+                      <pre class="language-r">        ds &lt;- ds %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">381</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">          ungroup_rowwise_df() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">382</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            (AVISIT != "BASELINE" &amp; AVISIT != "SCREENING") &amp;</pre>
+                      <pre class="language-r">          dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">383</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              (ONTRTFL == "Y" | ADTM &lt;= TRTSDTM)</pre>
+                      <pre class="language-r">            !!na_var := ds[[na_var]] %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">384</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ) %&gt;%</pre>
+                      <pre class="language-r">              replace_na(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">385</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::filter(ATOXGR == min(as.numeric(as.character(ATOXGR))))</pre>
+                      <pre class="language-r">                percentage = ifelse(is.na(na_vars[[na_var]][2]), na_percentage, na_vars[[na_var]][2]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">386</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">                seed = na_vars[[na_var]][1]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">387</td>
-                    <td class="coverage">3<em>x</em></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">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">
+                  <tr class="never">
                     <td class="num">389</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            AVAL == min(AVAL) &amp;</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">390</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              (AVISIT != "BASELINE" &amp; AVISIT != "SCREENING") &amp;</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">391</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              (ONTRTFL == "Y" | ADTM &lt;= TRTSDTM)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">392</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">  return(ds)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">394</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">
+                  <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">      dplyr::slice(1) %&gt;%</pre>
+                      <pre class="language-r">ungroup_rowwise_df &lt;- function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">396</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">  class(x) &lt;- c("tbl", "tbl_df", "data.frame")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">397</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (apply_mutate == TRUE) {</pre>
+                      <pre class="language-r">  return(x)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">398</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dplyr::mutate(., new_var = ifelse(is.na(DTYPE), "Y", ""))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">399</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">400</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dplyr::mutate(., new_var = ifelse(is.na(AVAL) == FALSE &amp; is.na(DTYPE), "Y", ""))</pre>
+                      <pre class="language-r">#' Zero-Truncated Poisson Distribution</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">401</td>
                     <td class="coverage"></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="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } %&gt;%</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">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::ungroup()</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' This generates random numbers from a zero-truncated Poisson distribution,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">405</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_compare$new_var &lt;- ifelse(data_compare$row_check %in% data$row_check, "Y", "")</pre>
+                      <pre class="language-r">#' i.e. from `X | X &gt; 0` when `X ~ Poisson(lambda)`. The advantage here is that</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">#' we guarantee to return exactly `n` numbers and without using a loop internally.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">407</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_compare &lt;- data_compare[, -which(names(data_compare) %in% c("row_check"))]</pre>
+                      <pre class="language-r">#' This solution was provided in a post by</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">408</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' [Peter Dalgaard](https://stat.ethz.ch/pipermail/r-help/2005-May/070680.html).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">409</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(data_compare)</pre>
+                      <pre class="language-r">#'</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">#' @param n (`numeric`)\cr Number of random numbers.</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">#' @param lambda (`numeric`)\cr Non-negative mean(s).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">412</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- flag_variables(adlb, TRUE, "ELSE", FALSE) %&gt;% dplyr::rename(WORS01FL = "new_var")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">413</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- flag_variables(adlb, FALSE, TRUE, TRUE) %&gt;% dplyr::rename(WGRHIFL = "new_var")</pre>
+                      <pre class="language-r">#' @return The random numbers.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">414</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- flag_variables(adlb, FALSE, FALSE, TRUE) %&gt;% dplyr::rename(WGRLOFL = "new_var")</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">415</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- flag_variables(adlb, TRUE, TRUE, TRUE) %&gt;% dplyr::rename(WGRHIVFL = "new_var")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">416</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- flag_variables(adlb, TRUE, FALSE, TRUE) %&gt;% dplyr::rename(WGRLOVFL = "new_var")</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">417</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' x &lt;- rpois(1e6, lambda = 5)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">418</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- adlb %&gt;% dplyr::mutate(ANL01FL = ifelse(</pre>
+                      <pre class="language-r">#' x &lt;- x[x &gt; 0]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">419</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    (ABLFL == "Y" | (WORS01FL == "Y" &amp; is.na(DTYPE))) &amp;</pre>
+                      <pre class="language-r">#' hist(x)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">420</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      (AVISIT != "SCREENING"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">421</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Y",</pre>
+                      <pre class="language-r">#' y &lt;- rtpois(1e6, lambda = 5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">422</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ""</pre>
+                      <pre class="language-r">#' hist(y)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r">rtpois &lt;- function(n, lambda) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">424</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">121<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  stats::qpois(stats::runif(n, stats::dpois(0, lambda), 1), lambda)</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">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">426</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb &lt;- mutate_na(ds = adlb, na_vars = na_vars, na_percentage = na_percentage)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">427</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' Truncated Exponential Distribution</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # apply metadata</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</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="covered">
+                  <tr class="never">
                     <td class="num">431</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb &lt;- apply_metadata(adlb, "metadata/ADLB.yml")</pre>
+                      <pre class="language-r">#' This generates random numbers from a truncated Exponential distribution,</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">#' i.e. from `X | X &gt; l` or `X | X &lt; r` when `X ~ Exp(rate)`. The advantage here is that</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">433</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(adlb)</pre>
+                      <pre class="language-r">#' we guarantee to return exactly `n` numbers and without using a loop internally.</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">#' This can be derived from the quantile functions of the left- and right-truncated</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/radqlqc.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">435</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' EORTC QLQ-C30 V3 Analysis Dataset (ADQLQC)</pre>
+                      <pre class="language-r">#' Exponential distributions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</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">3</td>
+                    <td class="num">437</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 n (`numeric`)\cr Number of random numbers.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">438</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param rate (`numeric`)\cr Non-negative rate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">439</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function for generating a random EORTC QLQ-C30 V3 Analysis Dataset for a given</pre>
+                      <pre class="language-r">#' @param l (`numeric`)\cr Positive left-hand truncation parameter.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">440</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Subject-Level Analysis Dataset.</pre>
+                      <pre class="language-r">#' @param r (`numeric`)\cr Positive right-hand truncation parameter.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</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">8</td>
+                    <td class="num">442</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">#' @return The random numbers. If neither `l` nor `r` are provided then the usual Exponential</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">443</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'  distribution is used.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `PARCAT1N`, `PARAMCD`, `BASETYPE`, `AVISITN`, `ATPTN`, `ADTM`, `QSSEQ`</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">445</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">#' @inheritParams argument_convention</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">446</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param percent (`numeric`)\cr Completion - Completed at least y percent of questions, 1 record per visit</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">447</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param number (`numeric`)\cr Completion - Completed at least x question(s), 1 record per visit</pre>
+                      <pre class="language-r">#' x &lt;- stats::rexp(1e6, rate = 5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">448</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @template param_cached</pre>
+                      <pre class="language-r">#' x &lt;- x[x &gt; 0.5]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">449</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @templateVar data adqlqc</pre>
+                      <pre class="language-r">#' hist(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">450</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">451</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `data.frame`</pre>
+                      <pre class="language-r">#' y &lt;- rtexp(1e6, rate = 5, l = 0.5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">452</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' hist(y)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</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">21</td>
+                    <td class="num">454</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' z &lt;- rtexp(1e6, rate = 5, r = 0.5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">455</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, study_duration = 2, seed = 1)</pre>
+                      <pre class="language-r">#' hist(z)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">456</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">rtexp &lt;- function(n, rate, l = NULL, r = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">457</td>
+                    <td class="coverage">123<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adqlqc &lt;- radqlqc(adsl, seed = 1, percent = 80, number = 2)</pre>
+                      <pre class="language-r">  if (!is.null(l)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">458</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adqlqc</pre>
+                      <pre class="language-r">    l - log(1 - stats::runif(n)) / rate</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">459</td>
+                    <td class="coverage">122<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">radqlqc &lt;- function(adsl,</pre>
+                      <pre class="language-r">  } else if (!is.null(r)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">460</td>
+                    <td class="coverage">121<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    percent,</pre>
+                      <pre class="language-r">    -log(1 - stats::runif(n) * (1 - exp(-r * rate))) / rate</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">461</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    number,</pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <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">    stats::rexp(n, rate)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">463</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</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>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/radmh.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">#' Medical History Analysis Dataset (ADMH)</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">#' Function for generating a random Medical History Analysis Dataset for a given</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' Subject-Level Analysis Dataset.</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">#' @details One record per each record in the corresponding SDTM domain.</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">10</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `ASTDTM`, `MHSEQ`</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">#' @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 max_n_mhs (`integer`)\cr Maximum number of MHs per patient. Defaults to 10.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @template param_cached</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @templateVar data admh</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="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @return `data.frame`</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <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">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <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">#' adsl &lt;- radsl(N = 10, study_duration = 2, seed = 1)</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="col-sm-12">
+                      <pre class="language-r">#' admh &lt;- radmh(adsl, seed = 2)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' admh</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">radmh &lt;- function(adsl,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  max_n_mhs = 10L,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  lookup = NULL,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  seed = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    seed = NULL,</pre>
+                      <pre class="language-r">                  na_percentage = 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    cached = FALSE) {</pre>
+                      <pre class="language-r">                  na_vars = list(MHBODSYS = c(NA, 0.1), MHDECOD = c(1234, 0.1)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">31</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
+                      <pre class="language-r">                  cached = FALSE) {</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">  if (cached) {</pre>
+                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">33</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">    return(get_cached_data("cadqlqc"))</pre>
+                      <pre class="language-r">  if (cached) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">34</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(get_cached_data("cadmh"))</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="covered">
+                  <tr class="never">
                     <td class="num">36</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">37</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(percent, lower = 1, upper = 100)</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">38</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(number, lower = 1)</pre>
+                      <pre class="language-r">  checkmate::assert_integer(max_n_mhs, len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">39</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_number(seed, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">40</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(seed)) {</pre>
+                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">41</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set.seed(seed)</pre>
+                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 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">
+                  <tr class="covered">
                     <td class="num">43</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_data_frame(lookup, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">44</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # ADQLQC data -------------------------------------------------------------</pre>
+                      <pre class="language-r">  lookup_mh &lt;- if (!is.null(lookup)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">45</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  qs &lt;- get_qs_data(adsl, n_assessments = 5L, seed = seed, na_percentage = 0.1)</pre>
+                      <pre class="language-r">    lookup</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # prepare ADaM ADQLQC data</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">47</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqlqc1 &lt;- prep_adqlqc(df = qs)</pre>
+                      <pre class="language-r">    tibble::tribble(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">48</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # derive AVAL and AVALC</pre>
+                      <pre class="language-r">      ~MHBODSYS, ~MHDECOD, ~MHSOC,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">49</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqlqc1 &lt;- mutate(</pre>
+                      <pre class="language-r">      "cl A", "trm A_1/2", "cl A",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">50</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adqlqc1,</pre>
+                      <pre class="language-r">      "cl A", "trm A_2/2", "cl A",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">51</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVAL = as.numeric(QSSTRESC),</pre>
+                      <pre class="language-r">      "cl B", "trm B_1/3", "cl B",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">52</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVALC = case_when(</pre>
+                      <pre class="language-r">      "cl B", "trm B_2/3", "cl B",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">53</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "QSALL" ~ QSREASND,</pre>
+                      <pre class="language-r">      "cl B", "trm B_3/3", "cl B",</pre>
                     </td>
                   </tr>
                   <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">      TRUE ~ QSORRES</pre>
+                      <pre class="language-r">      "cl C", "trm C_1/2", "cl C",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">55</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">      "cl C", "trm C_2/2", "cl C",</pre>
                     </td>
                   </tr>
                   <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">    AVISIT = VISIT,</pre>
+                      <pre class="language-r">      "cl D", "trm D_1/3", "cl D",</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">    AVISITN = VISITNUM,</pre>
+                      <pre class="language-r">      "cl D", "trm D_2/3", "cl D",</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">    ADTM = QSDTC</pre>
+                      <pre class="language-r">      "cl D", "trm D_3/3", "cl D"</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">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # include scale calculation</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">61</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqlqc_tmp &lt;- calc_scales(adqlqc1)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">62</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # order to prepare for change from screening and baseline values</pre>
+                      <pre class="language-r">  if (!is.null(seed)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">63</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqlqc_tmp &lt;- adqlqc_tmp[order(adqlqc_tmp$STUDYID, adqlqc_tmp$USUBJID, adqlqc_tmp$PARAMCD, adqlqc_tmp$AVISITN), ]</pre>
+                      <pre class="language-r">    set.seed(seed)</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">
                     <td class="num">65</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqlqc_tmp &lt;- Reduce(</pre>
+                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">66</td>
-                    <td class="coverage">3<em>x</em></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">67</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(</pre>
+                      <pre class="language-r">  admh &lt;- Map(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">68</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      split(adqlqc_tmp, adqlqc_tmp$USUBJID),</pre>
+                      <pre class="language-r">    function(id, sid) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(x) {</pre>
+                      <pre class="language-r">      n_mhs &lt;- sample(0:max_n_mhs, 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">70</td>
                     <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x$STUDYID &lt;- adsl$STUDYID[which(adsl$USUBJID == x$USUBJID[1])]</pre>
+                      <pre class="language-r">      i &lt;- sample(seq_len(nrow(lookup_mh)), n_mhs, TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">71</td>
                     <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x$ABLFL2 &lt;- ifelse(x$AVISIT == "SCREENING", "Y", "")</pre>
+                      <pre class="language-r">      dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">72</td>
                     <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x$ABLFL &lt;- ifelse(</pre>
+                      <pre class="language-r">        lookup_mh[i, ],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">73</td>
                     <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x$AVISIT == "BASELINE" &amp;</pre>
+                      <pre class="language-r">        USUBJID = id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">74</td>
                     <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x$PARAMCD != "EX028",</pre>
+                      <pre class="language-r">        STUDYID = sid</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">75</td>
-                    <td class="coverage">30<em>x</em></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">
+                  <tr class="never">
                     <td class="num">76</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ifelse(</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">77</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x$AVISIT == "CYCLE 1 DAY 1" &amp;</pre>
+                      <pre class="language-r">    adsl$USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">78</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              x$PARAMCD != "EX028",</pre>
+                      <pre class="language-r">    adsl$STUDYID</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">79</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Y",</pre>
+                      <pre class="language-r">  ) %&gt;%</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">            ""</pre>
+                      <pre class="language-r">    Reduce(rbind, .) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">81</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">    `[`(c(4, 5, 1, 2, 3)) %&gt;%</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">        )</pre>
+                      <pre class="language-r">    dplyr::mutate(MHTERM = MHDECOD)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">83</td>
-                    <td class="coverage">30<em>x</em></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">
+                  <tr class="covered">
                     <td class="num">84</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">  admh &lt;- rcd_var_relabel(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">85</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">    admh,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">86</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">    STUDYID = "Study Identifier",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">87</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">    USUBJID = "Unique Subject Identifier"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <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">  adqlqc_tmp$BASE2 &lt;- ifelse(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <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">    str_detect(adqlqc_tmp$PARCAT2, "Completion", negate = TRUE),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">90</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    retain(</pre>
+                      <pre class="language-r">  # merge ADSL to be able to add MH date and study day variables</pre>
                     </td>
                   </tr>
                   <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">      df = adqlqc_tmp,</pre>
+                      <pre class="language-r">  admh &lt;- dplyr::inner_join(</pre>
                     </td>
                   </tr>
                   <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">      value_var = adqlqc_tmp$AVAL,</pre>
+                      <pre class="language-r">    admh,</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">      event = adqlqc_tmp$ABLFL2 == "Y"</pre>
+                      <pre class="language-r">    adsl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">94</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">    by = c("STUDYID", "USUBJID")</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">    NA</pre>
+                      <pre class="language-r">  ) %&gt;%</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">  )</pre>
+                      <pre class="language-r">    dplyr::rowwise() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">97</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">    dplyr::mutate(TRTENDT = lubridate::date(dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <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">  adqlqc_tmp$BASE &lt;- ifelse(</pre>
+                      <pre class="language-r">      is.na(TRTEDTM) ~ lubridate::floor_date(lubridate::date(TRTSDTM) + study_duration_secs, unit = "day"),</pre>
                     </td>
                   </tr>
                   <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">    adqlqc_tmp$ABLFL2 != "Y" &amp;</pre>
+                      <pre class="language-r">      TRUE ~ TRTEDTM</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">      str_detect(adqlqc_tmp$PARCAT2, "Completion", negate = TRUE),</pre>
+                      <pre class="language-r">    ))) %&gt;%</pre>
                     </td>
                   </tr>
                   <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">    retain(</pre>
+                      <pre class="language-r">    dplyr::mutate(ASTDTM = sample(</pre>
                     </td>
                   </tr>
                   <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">      adqlqc_tmp,</pre>
+                      <pre class="language-r">      seq(lubridate::as_datetime(TRTSDTM), lubridate::as_datetime(TRTENDT), by = "day"),</pre>
                     </td>
                   </tr>
                   <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">      adqlqc_tmp$AVAL,</pre>
+                      <pre class="language-r">      size = 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">104</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      adqlqc_tmp$ABLFL == "Y"</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">105</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">    dplyr::mutate(ASTDY = ceiling(difftime(ASTDTM, TRTSDTM, units = "days"))) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">106</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NA</pre>
+                      <pre class="language-r">    # add 1 to end of range incase both values passed to sample() are the same</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">107</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">    dplyr::mutate(AENDTM = sample(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">108</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">      seq(lubridate::as_datetime(ASTDTM), lubridate::as_datetime(TRTENDT + 1), by = "day"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">109</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqlqc_tmp &lt;- adqlqc_tmp %&gt;%</pre>
+                      <pre class="language-r">      size = 1</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">    dplyr::mutate(CHG2 = AVAL - BASE2) %&gt;%</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">111</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(PCHG2 = 100 * (CHG2 / BASE2)) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(AENDY = ceiling(difftime(AENDTM, TRTSDTM, units = "days"))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">112</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(CHG = AVAL - BASE) %&gt;%</pre>
+                      <pre class="language-r">    select(-TRTENDT) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">113</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(PCHG = 100 * (CHG / BASE)) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">114</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_relabel(</pre>
+                      <pre class="language-r">    dplyr::arrange(STUDYID, USUBJID, ASTDTM, MHTERM) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">115</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID = attr(adsl$STUDYID, "label"),</pre>
+                      <pre class="language-r">    dplyr::mutate(MHDISTAT = sample(</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">      USUBJID = attr(adsl$USUBJID, "label")</pre>
+                      <pre class="language-r">      x = c("Resolved", "Ongoing with treatment", "Ongoing without treatment"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">117</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">      prob = c(0.6, 0.2, 0.2),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">118</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # derive CHGCAT1 ----------------------------------------------------------</pre>
+                      <pre class="language-r">      size = dplyr::n(),</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">  adqlqc_tmp &lt;- derv_chgcat1(dataset = adqlqc_tmp)</pre>
+                      <pre class="language-r">      replace = TRUE</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">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">121</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqlqc_tmp &lt;- var_relabel(</pre>
+                      <pre class="language-r">    dplyr::mutate(ATIREL = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">122</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adqlqc_tmp,</pre>
+                      <pre class="language-r">      (AENDTM &lt; TRTSDTM | (is.na(AENDTM) &amp; MHDISTAT == "Resolved")) ~ "PRIOR",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">123</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
+                      <pre class="language-r">      (AENDTM &gt;= TRTSDTM | (is.na(AENDTM) &amp; grepl("Ongoing", MHDISTAT))) ~ "PRIOR_CONCOMITANT"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">124</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</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="never">
+                  <tr class="covered">
                     <td class="num">126</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">  admh &lt;- admh %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">127</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqlqc_tmp &lt;- arrange(</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</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">    adqlqc_tmp,</pre>
+                      <pre class="language-r">    dplyr::mutate(MHSEQ = seq_len(dplyr::n())) %&gt;%</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">    USUBJID,</pre>
+                      <pre class="language-r">    dplyr::mutate(ASEQ = MHSEQ) %&gt;%</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">    AVISITN</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">131</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">    dplyr::arrange(STUDYID, USUBJID, ASTDTM, MHSEQ)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Merge ADSL --------------------------------------------------------------</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">133</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # ADSL variables needed for ADQLQC</pre>
+                      <pre class="language-r">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0 &amp;&amp; na_percentage &lt;= 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">134</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adsl_vars &lt;- c(</pre>
+                      <pre class="language-r">    admh &lt;- mutate_na(ds = admh, na_vars = na_vars, na_percentage = na_percentage)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">135</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "STUDYID", "USUBJID", "SUBJID", "SITEID", "REGION1", "COUNTRY", "ETHNIC", "AGE",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">136</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "AGEU", "AAGE", "AAGEU", "AGEGR1", "AGEGR2", "AGEGR3", "STRATwNM", "STRATw", "STRATwV",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">137</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "SEX", "RACE", "ITTFL", "SAFFL", "PPROTFL", "TRT01P", "TRT01A",</pre>
+                      <pre class="language-r">  # apply metadata</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">    "TRTSEQP", "TRTSEQA", "TRTSDTM", "TRTSDT", "TRTEDTM", "TRTEDT", "DCUTDT"</pre>
+                      <pre class="language-r">  admh &lt;- apply_metadata(admh, "metadata/ADMH.yml")</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="covered">
                     <td class="num">140</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adsl &lt;- select(</pre>
+                      <pre class="language-r">  return(admh)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">141</td>
-                    <td class="coverage">3<em>x</em></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="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">3<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/radtr.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">    any_of(adsl_vars)</pre>
+                      <pre class="language-r">#' Tumor Response Analysis Dataset (ADTR)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</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">144</td>
-                    <td class="coverage">3<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">  adqlqc &lt;- dplyr::inner_join(</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</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">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adqlqc_tmp,</pre>
+                      <pre class="language-r">#'</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">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl,</pre>
+                      <pre class="language-r">#' Function for generating a random Tumor Response Analysis Dataset for a given</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">3<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">    by = c("STUDYID", "USUBJID")</pre>
+                      <pre class="language-r">#' Subject-Level Analysis Dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">7</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">149</td>
-                    <td class="coverage">3<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">    dplyr::mutate(</pre>
+                      <pre class="language-r">#' @details One record per subject per parameter per analysis visit per analysis date.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">3<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">      ADY_der = ceiling(difftime(ADTM, TRTSDTM, units = "days")),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">3<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">      ADY = case_when(</pre>
+                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `PARAMCD`, `BASETYPE`, `AVISITN`, `DTYPE`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">3<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">        ADY_der &gt;= 0 ~ ADY_der + 1,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">3<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">        TRUE ~ ADY_der</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</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 ... Additional arguments to be passed to `radrs`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) %&gt;%</pre>
+                      <pre class="language-r">#' @template param_cached</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</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">    select(-ADY_der)</pre>
+                      <pre class="language-r">#' @templateVar data adtr</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</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">158</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # get compliance data ---------------------------------------------------</pre>
+                      <pre class="language-r">#' @return `data.frame`</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">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  compliance_data &lt;- comp_derv(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">160</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">    dataset = adqlqc,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</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">    percent = percent,</pre>
+                      <pre class="language-r">#' @author tomlinsj, npaszty, Xuefeng Hou, dipietrc</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</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">    number = number</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">22</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">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # add ADSL variables</pre>
+                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</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">  compliance_data &lt;- left_join(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">3<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">    compliance_data,</pre>
+                      <pre class="language-r">#' adtr &lt;- radtr(adsl, seed = 2)</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">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl,</pre>
+                      <pre class="language-r">#' adtr</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">3<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">    by = c("STUDYID", "USUBJID")</pre>
+                      <pre class="language-r">radtr &lt;- function(adsl,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</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 = c("Sum of Longest Diameter by Investigator"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # add completion to ADQLQC</pre>
+                      <pre class="language-r">                  paramcd = c("SLDINV"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  seed = 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">                  cached = FALSE,</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>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">33</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqlqc &lt;- bind_rows(</pre>
+                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">34</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adqlqc,</pre>
+                      <pre class="language-r">  if (cached) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">35</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    compliance_data</pre>
+                      <pre class="language-r">    return(get_cached_data("cadtr"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <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="covered">
-                    <td class="num">175</td>
+                    <td class="num">37</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    arrange(</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">176</td>
+                    <td class="num">38</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID,</pre>
+                      <pre class="language-r">  checkmate::assert_character(param, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">177</td>
+                    <td class="num">39</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISITN,</pre>
+                      <pre class="language-r">  checkmate::assert_character(paramcd, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">178</td>
+                    <td class="num">40</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD</pre>
+                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">41</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  stopifnot(length(param) == length(paramcd))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  # validate and initialize related variables</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # find first set of questionnaire observations</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">181</td>
+                    <td class="num">44</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqlqc_x &lt;- arrange(</pre>
+                      <pre class="language-r">  if (!is.null(seed)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">182</td>
+                    <td class="num">45</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adqlqc,</pre>
+                      <pre class="language-r">    set.seed(seed)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">3<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">    USUBJID,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">3<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">    ADTM</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
+                      <pre class="language-r">  # Make times consistent with ADRS at ADY and ADTM.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">186</td>
+                    <td class="num">49</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filter(</pre>
+                      <pre class="language-r">  adrs &lt;- radrs(adsl, seed = seed, ...) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">187</td>
+                    <td class="num">50</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD != "QSALL" &amp;</pre>
+                      <pre class="language-r">    dplyr::filter(PARAMCD == "OVRINV") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">188</td>
+                    <td class="num">51</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        !str_detect(AVISIT, "SCREENING|UNSCHEDULED")</pre>
+                      <pre class="language-r">    dplyr::select(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) %&gt;%</pre>
+                      <pre class="language-r">      "STUDYID",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
+                    <td class="num">53</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    group_by(</pre>
+                      <pre class="language-r">      "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">191</td>
+                    <td class="num">54</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID,</pre>
+                      <pre class="language-r">      "AVISIT",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">192</td>
+                    <td class="num">55</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ADTM</pre>
+                      <pre class="language-r">      "AVISITN",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</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">    ) %&gt;%</pre>
+                      <pre class="language-r">      "ADTM",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">194</td>
+                    <td class="num">57</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    summarise(first_date = first(ADTM), .groups = "drop")</pre>
+                      <pre class="language-r">      "ADY"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <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>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">196</td>
+                    <td class="num">60</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqlqc &lt;- left_join(</pre>
+                      <pre class="language-r">  adtr &lt;- Map(function(parcd, par) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">197</td>
+                    <td class="num">61</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adqlqc,</pre>
+                      <pre class="language-r">    df &lt;- adrs</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">198</td>
+                    <td class="num">62</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adqlqc_x,</pre>
+                      <pre class="language-r">    df$AVAL &lt;- stats::rnorm(nrow(df), mean = 150, sd = 30)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">199</td>
+                    <td class="num">63</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    by = c("USUBJID", "ADTM")</pre>
+                      <pre class="language-r">    df$PARAMCD &lt;- parcd</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">200</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">64</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
+                      <pre class="language-r">    df$PARAM &lt;- par</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">201</td>
+                    <td class="num">65</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mutate(</pre>
+                      <pre class="language-r">    df</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
+                    <td class="num">66</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL01FL = case_when(</pre>
+                      <pre class="language-r">  }, paramcd, param) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">203</td>
+                    <td class="num">67</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        PARAMCD != "QSALL" &amp; ABLFL == "Y" ~ "Y",</pre>
+                      <pre class="language-r">    Reduce(rbind, .)</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">68</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        PARAMCD != "QSALL" &amp;</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">205</td>
+                    <td class="num">69</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          !str_detect(AVISIT, "UNSCHEDULED") &amp;</pre>
+                      <pre class="language-r">  adtr_base &lt;- adtr %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">206</td>
+                    <td class="num">70</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          !is.na(first_date) ~ "Y"</pre>
+                      <pre class="language-r">    dplyr::filter(AVISITN == 0) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">207</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID, PARAMCD) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">208</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(BASE = AVAL) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">209</td>
+                    <td class="num">73</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    select(-first_date)</pre>
+                      <pre class="language-r">    dplyr::select("STUDYID", "USUBJID", "BASE", "PARAMCD")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</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">211</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # final dataset -----------------------------------------------------------</pre>
+                      <pre class="language-r">  adtr_postbase &lt;- adtr %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">212</td>
+                    <td class="num">76</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqlqc_final &lt;- adqlqc %&gt;%</pre>
+                      <pre class="language-r">    dplyr::filter(AVISITN &gt; 0) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">213</td>
+                    <td class="num">77</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::filter(!is.na(AVAL)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">214</td>
+                    <td class="num">78</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ASEQ = row_number()) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID, PARAMCD) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">215</td>
+                    <td class="num">79</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">    dplyr::filter(AVAL == min(AVAL)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">216</td>
+                    <td class="num">80</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(</pre>
+                      <pre class="language-r">    dplyr::slice(1) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">217</td>
+                    <td class="num">81</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID,</pre>
+                      <pre class="language-r">    dplyr::mutate(AVISIT = "POST-BASELINE MINIMUM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">218</td>
+                    <td class="num">82</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID,</pre>
+                      <pre class="language-r">    dplyr::mutate(DTYPE = "MINIMUM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">219</td>
+                    <td class="num">83</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISITN</pre>
+                      <pre class="language-r">    dplyr::ungroup()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">84</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">221</td>
+                    <td class="num">85</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    select(</pre>
+                      <pre class="language-r">  adtr_lastobs &lt;- adtr %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">222</td>
+                    <td class="num">86</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      -c("BASE2", "CHG2", "PCHG2", "ABLFL2")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">223</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::filter(AVISITN &gt; 0) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
+                    <td class="num">87</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ungroup()</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">    dplyr::filter(!is.na(AVAL)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
+                    <td class="num">88</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adam_vars &lt;- c(</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID, PARAMCD) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
+                    <td class="num">89</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl_vars, "QSSEQ", "QSCAT", "QSSCAT", "QSDTC", "QSSPID", "QSSTAT", "QSSTRESN",</pre>
+                      <pre class="language-r">    dplyr::filter(ADTM == max(ADTM, na.rm = TRUE)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">228</td>
+                    <td class="num">90</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "QSSTRESC", "QSSTRESU", "QSORRES", "QSORRESU", "QSTEST", "QSTESTCD", "QSTPT",</pre>
+                      <pre class="language-r">    dplyr::slice(1) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">229</td>
+                    <td class="num">91</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "QSTPTNUM", "QSTPTREF", "QSDY", "QSREASND", "QSTSTDTL", "QSEVAL", "VISIT", "VISITNUM",</pre>
+                      <pre class="language-r">    dplyr::mutate(LAST_VISIT = AVISIT) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">230</td>
+                    <td class="num">92</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "PARAM", "PARAMCD", "PARCAT1", "PARCAT1N", "PARCAT2", "AVAL", "AVALC", "AREASND",</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
+                    <td class="num">93</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "BASE", "BASETYPE", "ABLFL", "CHG", "PCHG", "CHGCAT1", "CRIT1", "CRIT1FL", "DTYPE",</pre>
+                      <pre class="language-r">    dplyr::select(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">232</td>
+                    <td class="num">94</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "ADTM", "ADT", "ADY", "ADTF", "ATMF", "ATPT", "ATPTN", "AVISIT", "AVISITN", "APHASE",</pre>
+                      <pre class="language-r">      "STUDYID",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">233</td>
+                    <td class="num">95</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "APHASEN", "APERIOD", "APERIODC", "APERIODC", "ASPER", "ASPERC", "PERADY", "TRTP",</pre>
+                      <pre class="language-r">      "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">234</td>
+                    <td class="num">96</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "TRTA", "ONTRTFL", "LAST02FL", "FIRS02FL", "ANL01FL", "ANL02FL", "ANL03FL",</pre>
+                      <pre class="language-r">      "PARAMCD",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">235</td>
+                    <td class="num">97</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "ANL04FL", "CGCAT1NX"</pre>
+                      <pre class="language-r">      "LAST_VISIT"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</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">237</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # order variables in mapped qs by variables in adam_vars</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
+                    <td class="num">100</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqlqc_name_ordered &lt;- names(adqlqc_final)[order(match(names(adqlqc_final), adam_vars))]</pre>
+                      <pre class="language-r">  adtr &lt;- rbind(adtr %&gt;% dplyr::mutate(DTYPE = ""), adtr_postbase)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # adqlqc with variables ordered per gdsr</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">240</td>
+                    <td class="num">102</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqlqc_final &lt;- adqlqc_final %&gt;%</pre>
+                      <pre class="language-r">  adtr &lt;- merge(adtr, adtr_base, by = c("STUDYID", "USUBJID", "PARAMCD")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">241</td>
+                    <td class="num">103</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    select(</pre>
+                      <pre class="language-r">    dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">242</td>
+                    <td class="num">104</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      any_of(adqlqc_name_ordered)</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="never">
-                    <td class="num">244</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ABLFL = dplyr::case_when(AVISIT == "BASELINE" ~ "Y", TRUE ~ ""),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">245</td>
+                    <td class="num">105</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqlqc_final &lt;- relocate(adqlqc_final, "QSEVLINT", .after = "QSTESTCD") %&gt;%</pre>
+                      <pre class="language-r">      AVAL = dplyr::case_when(AVISIT == "BASELINE" ~ NA_real_, TRUE ~ AVAL),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">246</td>
+                    <td class="num">106</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    arrange(</pre>
+                      <pre class="language-r">      CHG = dplyr::case_when(AVISITN &gt; 0 ~ AVAL - BASE, TRUE ~ NA_real_),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">247</td>
+                    <td class="num">107</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID,</pre>
+                      <pre class="language-r">      PCHG = dplyr::case_when(AVISITN &gt; 0 ~ CHG / BASE * 100, TRUE ~ NA_real_),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">248</td>
+                    <td class="num">108</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISITN,</pre>
+                      <pre class="language-r">      AVALC = as.character(AVAL),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">249</td>
+                    <td class="num">109</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ASEQ,</pre>
+                      <pre class="language-r">      AVALU = "mm"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">3<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">      QSTESTCD</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</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">252</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # apply metadata</pre>
+                      <pre class="language-r">  # ensure PCHG does not exceed 200%, nor go below -100% (double in size, or complete remission of tumor).</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">253</td>
+                    <td class="num">113</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqlqc_final &lt;- apply_metadata(adqlqc_final, "metadata/ADQLQC.yml")</pre>
+                      <pre class="language-r">  adtr &lt;- adtr %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">254</td>
+                    <td class="num">114</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(adqlqc_final)</pre>
+                      <pre class="language-r">    dplyr::mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">255</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      PCHG_DUM = PCHG,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">256</td>
-                    <td class="coverage"></td>
+                  <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"></pre>
+                      <pre class="language-r">      PCHG = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">257</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">117</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper Functions for Constructing ADQLQC</pre>
+                      <pre class="language-r">        PCHG_DUM &gt; 200 ~ 200,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">258</td>
-                    <td class="coverage"></td>
+                  <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">#'</pre>
+                      <pre class="language-r">        PCHG_DUM &lt; -100 ~ -100,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">259</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">#' Internal functions used by `radqlqc`.</pre>
+                      <pre class="language-r">        TRUE ~ PCHG</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</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">261</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">121</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">      AVAL = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">262</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">122</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams radqlqc</pre>
+                      <pre class="language-r">        PCHG_DUM &gt; 200 ~ 3 * BASE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">263</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        PCHG_DUM &lt; -100 ~ 0,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">264</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">#' @examples</pre>
+                      <pre class="language-r">        TRUE ~ AVAL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, study_duration = 2, seed = 1)</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">126</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adqlqc &lt;- radqlqc(adsl, seed = 1, percent = 80, number = 2)</pre>
+                      <pre class="language-r">      CHG = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">267</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        PCHG_DUM &gt; 200 ~ 2 * BASE,</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">        PCHG_DUM &lt; -100 ~ -BASE,</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">        TRUE ~ CHG</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name h_adqlqc</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">    ) %&gt;%</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">    dplyr::select(-"PCHG_DUM")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</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">271</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">#' @describeIn h_adqlqc Questionnaires EORTC QLQ-C30 V3.0 SDTM (QS)</pre>
+                      <pre class="language-r">  adtr &lt;- merge(adsl, adtr, by = c("STUDYID", "USUBJID")) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">272</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID, PARAMCD) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">273</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function for generating random Questionnaires SDTM domain</pre>
+                      <pre class="language-r">    dplyr::mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">274</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">#'</pre>
+                      <pre class="language-r">      ONTRTFL = factor(dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">275</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">#' @return a dataframe with SDTM questionnaire data</pre>
+                      <pre class="language-r">        !AVISIT %in% c("SCREENING", "BASELINE", "FOLLOW UP") ~ "Y",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">276</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">#' @keywords internal</pre>
+                      <pre class="language-r">        TRUE ~ ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_qs_data &lt;- function(adsl,</pre>
+                      <pre class="language-r">      )),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">278</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">                        visit_format = "CYCLE",</pre>
+                      <pre class="language-r">      ANL01FL = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">279</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">                        n_assessments = 5L,</pre>
+                      <pre class="language-r">        DTYPE == "" &amp; AVISITN &gt; 0 ~ "Y",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">280</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">                        n_days = 1L,</pre>
+                      <pre class="language-r">        TRUE ~ ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        lookup = NULL,</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">282</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">                        seed = NULL,</pre>
+                      <pre class="language-r">      ANL03FL = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">283</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">                        na_percentage = 0,</pre>
+                      <pre class="language-r">        DTYPE == "MINIMUM" ~ "Y",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">284</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">                        na_vars = list(</pre>
+                      <pre class="language-r">        ABLFL == "Y" ~ "Y",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">285</td>
-                    <td class="coverage"></td>
+                  <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">                          QSORRES = c(1234, 0.2),</pre>
+                      <pre class="language-r">        TRUE ~ ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          QSSTRESC = c(1234, 0.2)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">150</td>
                     <td class="coverage"></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="num">151</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  load(system.file("sysdata.rda", package = "random.cdisc.data"))</pre>
+                      <pre class="language-r">  adtr &lt;- merge(adtr, adtr_lastobs, by = c("STUDYID", "USUBJID", "PARAMCD")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">289</td>
+                    <td class="num">152</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(visit_format)</pre>
+                      <pre class="language-r">    dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">290</td>
+                    <td class="num">153</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(n_assessments, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">      ANL02FL = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">291</td>
+                    <td class="num">154</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(n_days, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">        as.character(AVISIT) == as.character(LAST_VISIT) ~ "Y",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">292</td>
+                    <td class="num">155</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
+                      <pre class="language-r">        ABLFL == "Y" ~ "Y",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">293</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1, na.ok = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">294</td>
+                    <td class="num">156</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">        TRUE ~ ""</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">295</td>
-                    <td class="coverage">3<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_true(na_percentage &lt; 1)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">158</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">297</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # get subjects for QS data from ADSL</pre>
+                      <pre class="language-r">    dplyr::select(-"LAST_VISIT")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # get studyid, subject for QS generation</pre>
+                      <pre class="language-r">  # Adding variables that are in ADTR osprey but not RCD.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">299</td>
+                    <td class="num">161</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  qs &lt;- select(</pre>
+                      <pre class="language-r">  adtr &lt;- adtr %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">300</td>
+                    <td class="num">162</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl,</pre>
+                      <pre class="language-r">    dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">301</td>
+                    <td class="num">163</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID,</pre>
+                      <pre class="language-r">      DCSREAS_GRP = ifelse(DCSREAS == "ADVERSE EVENT", "Safety", "Non-Safety"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">302</td>
+                    <td class="num">164</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID</pre>
+                      <pre class="language-r">      TRTDURD = ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">303</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
+                      <pre class="language-r">        is.na(TRTSDTM) | is.na(TRTEDTM),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">304</td>
+                    <td class="num">166</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mutate(</pre>
+                      <pre class="language-r">        NA,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">305</td>
+                    <td class="num">167</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      DOMAIN = "QS"</pre>
+                      <pre class="language-r">        TRTEDTM - (TRTSDTM + lubridate::days(1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</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">307</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"></pre>
+                      <pre class="language-r">      AGEGR1 = ifelse(AGE &lt; 65, "&lt;65", "&gt;=65")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # QS prep -----------------------------------------------------------------</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # get questionnaire function for QS</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # QSTESTCD: EOR0101 to EOR0130</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">311</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  eortc_qlq_c30_sub &lt;- filter(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    eortc_qlq_c30,</pre>
+                      <pre class="language-r">  # apply metadata</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">313</td>
+                    <td class="num">173</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    as.numeric(str_extract(QSTESTCD, "\\d+$")) &gt;= 101 &amp;</pre>
+                      <pre class="language-r">  adtr &lt;- apply_metadata(adtr, "metadata/ADTR.yml")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">314</td>
+                    <td class="num">174</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      as.numeric(str_extract(QSTESTCD, "\\d+$")) &lt;= 130</pre>
+                      <pre class="language-r">  return(adtr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">316</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    select(-publication_name)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/radqlqc.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' EORTC QLQ-C30 V3 Analysis Dataset (ADQLQC)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # validate and initialize QSTEST vectors</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  qstest_init_list &lt;- relvar_init(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">3<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">    unique(eortc_qlq_c30_sub$QSTEST),</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">321</td>
-                    <td class="coverage">3<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">    unique(eortc_qlq_c30_sub$QSTESTCD)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' Function for generating a random EORTC QLQ-C30 V3 Analysis Dataset for a given</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Subject-Level Analysis Dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">324</td>
-                    <td class="coverage">3<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(seed)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">325</td>
-                    <td class="coverage">3<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">    set.seed(seed)</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `PARCAT1N`, `PARAMCD`, `BASETYPE`, `AVISITN`, `ATPTN`, `ADTM`, `QSSEQ`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">328</td>
-                    <td class="coverage">3<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_data_frame(lookup, null.ok = TRUE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</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 argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">330</td>
-                    <td class="coverage">3<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">  lookup_qs &lt;- if (!is.null(lookup)) {</pre>
+                      <pre class="language-r">#' @param percent (`numeric`)\cr Completion - Completed at least y percent of questions, 1 record per visit</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">331</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lookup</pre>
+                      <pre class="language-r">#' @param number (`numeric`)\cr Completion - Completed at least x question(s), 1 record per visit</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' @template param_cached</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">333</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">    expand.grid(</pre>
+                      <pre class="language-r">#' @templateVar data adqlqc</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">334</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">      STUDYID = unique(qs$STUDYID),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">335</td>
-                    <td class="coverage">3<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">      USUBJID = qs$USUBJID,</pre>
+                      <pre class="language-r">#' @return `data.frame`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">336</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">      QSTEST = qstest_init_list$relvar1,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">337</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">      VISIT = visit_schedule(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">338</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">        visit_format = visit_format,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">339</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">        n_assessments = n_assessments,</pre>
+                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, study_duration = 2, seed = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">340</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">        n_days = n_days</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">#' adqlqc &lt;- radqlqc(adsl, seed = 1, percent = 80, number = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">342</td>
-                    <td class="coverage">3<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">      stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">#' adqlqc</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">radqlqc &lt;- function(adsl,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">344</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                    percent,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                    number,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # assign related variable values: QSTESTxQSTESTCD are related</pre>
+                      <pre class="language-r">                    seed = NULL,</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">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lookup_qs &lt;- lookup_qs %&gt;% rel_var(</pre>
+                      <pre class="language-r">                    cached = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">31</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_name = "QSTESTCD",</pre>
+                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">32</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    related_var = "QSTEST",</pre>
+                      <pre class="language-r">  if (cached) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">33</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_values = qstest_init_list$relvar2</pre>
+                      <pre class="language-r">    return(get_cached_data("cadqlqc"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</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">352</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">353</td>
+                    <td class="num">36</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lookup_qs &lt;- left_join(</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">354</td>
+                    <td class="num">37</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lookup_qs,</pre>
+                      <pre class="language-r">  checkmate::assert_number(percent, lower = 1, upper = 100)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">355</td>
+                    <td class="num">38</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    eortc_qlq_c30_sub,</pre>
+                      <pre class="language-r">  checkmate::assert_number(number, lower = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">3<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">    by = c(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">357</td>
+                    <td class="num">40</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "QSTEST",</pre>
+                      <pre class="language-r">  if (!is.null(seed)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">358</td>
+                    <td class="num">41</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "QSTESTCD"</pre>
+                      <pre class="language-r">    set.seed(seed)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</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="covered">
-                    <td class="num">360</td>
-                    <td class="coverage">3<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">    multiple = "all",</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">  # ADQLQC data -------------------------------------------------------------</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">361</td>
+                    <td class="num">45</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    relationship = "many-to-many"</pre>
+                      <pre class="language-r">  qs &lt;- get_qs_data(adsl, n_assessments = 5L, seed = seed, na_percentage = 0.1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">362</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  # prepare ADaM ADQLQC data</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">47</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  adqlqc1 &lt;- prep_adqlqc(df = qs)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">363</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # derive AVAL and AVALC</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">364</td>
+                    <td class="num">49</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lookup_qs &lt;- dplyr::mutate(</pre>
+                      <pre class="language-r">  adqlqc1 &lt;- mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">365</td>
+                    <td class="num">50</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lookup_qs,</pre>
+                      <pre class="language-r">    adqlqc1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">366</td>
+                    <td class="num">51</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    VISITNUM = dplyr::case_when(</pre>
+                      <pre class="language-r">    AVAL = as.numeric(QSSTRESC),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">367</td>
+                    <td class="num">52</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      VISIT == "SCREENING" ~ -1,</pre>
+                      <pre class="language-r">    AVALC = case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">368</td>
+                    <td class="num">53</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      VISIT == "BASELINE" ~ 0,</pre>
+                      <pre class="language-r">      QSTESTCD == "QSALL" ~ QSREASND,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">369</td>
+                    <td class="num">54</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      (grepl("^WEEK", VISIT) | grepl("^CYCLE", VISIT)) ~ as.numeric(VISIT) - 2,</pre>
+                      <pre class="language-r">      TRUE ~ QSORRES</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="covered">
-                    <td class="num">370</td>
+                    <td class="num">56</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ NA_real_</pre>
+                      <pre class="language-r">    AVISIT = VISIT,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">371</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">    )</pre>
+                      <pre class="language-r">    AVISITN = VISITNUM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">372</td>
+                    <td class="num">58</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;% arrange(USUBJID)</pre>
+                      <pre class="language-r">    ADTM = QSDTC</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # # prep QSALL --------------------------------------------------------------</pre>
+                      <pre class="language-r">  # include scale calculation</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  adqlqc_tmp &lt;- calc_scales(adqlqc1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # get last subject and visit for QSALL</pre>
+                      <pre class="language-r">  # order to prepare for change from screening and baseline values</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">376</td>
+                    <td class="num">63</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  last_subj_vis &lt;- select(lookup_qs, USUBJID, VISIT) %&gt;%</pre>
+                      <pre class="language-r">  adqlqc_tmp &lt;- adqlqc_tmp[order(adqlqc_tmp$STUDYID, adqlqc_tmp$USUBJID, adqlqc_tmp$PARAMCD, adqlqc_tmp$AVISITN), ]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">377</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">    distinct() %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">378</td>
+                    <td class="num">65</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slice(n())</pre>
+                      <pre class="language-r">  adqlqc_tmp &lt;- Reduce(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">379</td>
+                    <td class="num">66</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  last_subj_vis_full &lt;- filter(</pre>
+                      <pre class="language-r">    rbind,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">380</td>
+                    <td class="num">67</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lookup_qs,</pre>
+                      <pre class="language-r">    lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">381</td>
+                    <td class="num">68</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID == last_subj_vis$USUBJID,</pre>
+                      <pre class="language-r">      split(adqlqc_tmp, adqlqc_tmp$USUBJID),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">382</td>
+                    <td class="num">69</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    VISIT == last_subj_vis$VISIT</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">383</td>
-                    <td class="coverage"></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">384</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        x$STUDYID &lt;- adsl$STUDYID[which(adsl$USUBJID == x$USUBJID[1])]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">385</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">71</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  qsall_data1 &lt;- tibble::tibble(</pre>
+                      <pre class="language-r">        x$ABLFL2 &lt;- ifelse(x$AVISIT == "SCREENING", "Y", "")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">386</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">72</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID = unique(last_subj_vis_full$STUDYID),</pre>
+                      <pre class="language-r">        x$ABLFL &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">387</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">73</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID = unique(last_subj_vis_full$USUBJID),</pre>
+                      <pre class="language-r">          x$AVISIT == "BASELINE" &amp;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">388</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    VISIT = unique(last_subj_vis_full$VISIT),</pre>
+                      <pre class="language-r">            x$PARAMCD != "EX028",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">389</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">75</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    VISITNUM = unique(last_subj_vis_full$VISITNUM),</pre>
+                      <pre class="language-r">          "Y",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">390</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">76</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSTESTCD = "QSALL",</pre>
+                      <pre class="language-r">          ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">391</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">77</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSTEST = "Questionnaires",</pre>
+                      <pre class="language-r">            x$AVISIT == "CYCLE 1 DAY 1" &amp;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">392</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">78</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSSTAT = "NOT DONE",</pre>
+                      <pre class="language-r">              x$PARAMCD != "EX028",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">393</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">79</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSREASND = "SUBJECT REFUSED"</pre>
+                      <pre class="language-r">            "Y",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</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">395</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">396</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # remove last subject and visit from main data</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">397</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  lookup_qs_sub &lt;- anti_join(</pre>
+                      <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">83</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lookup_qs,</pre>
+                      <pre class="language-r">        x</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">399</td>
-                    <td class="coverage">3<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">    last_subj_vis_full,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">400</td>
-                    <td class="coverage">3<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">    by = c("USUBJID", "VISIT")</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">401</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</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">403</td>
+                    <td class="num">88</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  set.seed(seed)</pre>
+                      <pre class="language-r">  adqlqc_tmp$BASE2 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">404</td>
+                    <td class="num">89</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lookup_qs_sub_x &lt;- lookup_qs_sub %&gt;%</pre>
+                      <pre class="language-r">    str_detect(adqlqc_tmp$PARCAT2, "Completion", negate = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">405</td>
+                    <td class="num">90</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    group_by(</pre>
+                      <pre class="language-r">    retain(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">406</td>
+                    <td class="num">91</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID,</pre>
+                      <pre class="language-r">      df = adqlqc_tmp,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">407</td>
+                    <td class="num">92</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD,</pre>
+                      <pre class="language-r">      value_var = adqlqc_tmp$AVAL,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">408</td>
+                    <td class="num">93</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      VISIT</pre>
+                      <pre class="language-r">      event = adqlqc_tmp$ABLFL2 == "Y"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">409</td>
+                    <td class="num">94</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">410</td>
+                    <td class="num">95</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slice_sample(n = 1) %&gt;%</pre>
+                      <pre class="language-r">    NA</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">97</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="num">98</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ungroup() %&gt;%</pre>
+                      <pre class="language-r">  adqlqc_tmp$BASE &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">412</td>
+                    <td class="num">99</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    as.data.frame()</pre>
+                      <pre class="language-r">    adqlqc_tmp$ABLFL2 != "Y" &amp;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">413</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">      str_detect(adqlqc_tmp$PARCAT2, "Completion", negate = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">414</td>
+                    <td class="num">101</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lookup_qs_sub_x &lt;- arrange(</pre>
+                      <pre class="language-r">    retain(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">415</td>
+                    <td class="num">102</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lookup_qs_sub_x,</pre>
+                      <pre class="language-r">      adqlqc_tmp,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">416</td>
+                    <td class="num">103</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID,</pre>
+                      <pre class="language-r">      adqlqc_tmp$AVAL,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">417</td>
+                    <td class="num">104</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    VISITNUM</pre>
+                      <pre class="language-r">      adqlqc_tmp$ABLFL == "Y"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">418</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">419</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">106</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # add date: QSDTC ---------------------------------------------------------</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">421</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # get treatment dates from ADSL</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">422</td>
+                    <td class="num">109</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adsl_trt &lt;- select(</pre>
+                      <pre class="language-r">  adqlqc_tmp &lt;- adqlqc_tmp %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">423</td>
+                    <td class="num">110</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl,</pre>
+                      <pre class="language-r">    dplyr::mutate(CHG2 = AVAL - BASE2) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">424</td>
+                    <td class="num">111</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID,</pre>
+                      <pre class="language-r">    dplyr::mutate(PCHG2 = 100 * (CHG2 / BASE2)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">425</td>
+                    <td class="num">112</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    TRTSDTM,</pre>
+                      <pre class="language-r">    dplyr::mutate(CHG = AVAL - BASE) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">426</td>
+                    <td class="num">113</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    TRTEDTM</pre>
+                      <pre class="language-r">    dplyr::mutate(PCHG = 100 * (CHG / BASE)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">427</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">114</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    rcd_var_relabel(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      STUDYID = attr(adsl$STUDYID, "label"),</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">      USUBJID = attr(adsl$USUBJID, "label")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # use to derive QSDTC</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # if no treatment end date, create an arbituary one</pre>
+                      <pre class="language-r">  # derive CHGCAT1 ----------------------------------------------------------</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">430</td>
+                    <td class="num">119</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  trt_end_date &lt;- max(adsl_trt$TRTEDTM, na.rm = TRUE)</pre>
+                      <pre class="language-r">  adqlqc_tmp &lt;- derv_chgcat1(dataset = adqlqc_tmp)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">431</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">432</td>
+                    <td class="num">121</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lookup_qs_sub_x &lt;- left_join(</pre>
+                      <pre class="language-r">  adqlqc_tmp &lt;- rcd_var_relabel(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">433</td>
+                    <td class="num">122</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lookup_qs_sub_x,</pre>
+                      <pre class="language-r">    adqlqc_tmp,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">434</td>
+                    <td class="num">123</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl_trt,</pre>
+                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">435</td>
+                    <td class="num">124</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    by = "USUBJID"</pre>
+                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">436</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">437</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    group_by(</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">      USUBJID</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</td>
+                    <td class="num">126</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">440</td>
+                    <td class="num">127</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mutate(QSDTC = get_random_dates_between(</pre>
+                      <pre class="language-r">  adqlqc_tmp &lt;- arrange(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">441</td>
+                    <td class="num">128</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      from = TRTSDTM,</pre>
+                      <pre class="language-r">    adqlqc_tmp,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">442</td>
+                    <td class="num">129</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      to = ifelse(</pre>
+                      <pre class="language-r">    USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">443</td>
+                    <td class="num">130</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is.na(TRTEDTM),</pre>
+                      <pre class="language-r">    AVISITN</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">444</td>
-                    <td class="coverage">3<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">        trt_end_date,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">445</td>
-                    <td class="coverage">3<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">        TRTEDTM</pre>
+                      <pre class="language-r">  # Merge ADSL --------------------------------------------------------------</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">  # ADSL variables needed for ADQLQC</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">447</td>
+                    <td class="num">134</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      visit_id = VISITNUM</pre>
+                      <pre class="language-r">  adsl_vars &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">448</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) %&gt;%</pre>
+                      <pre class="language-r">    "STUDYID", "USUBJID", "SUBJID", "SITEID", "REGION1", "COUNTRY", "ETHNIC", "AGE",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">449</td>
+                    <td class="num">136</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    select(-c("TRTSDTM", "TRTEDTM"))</pre>
+                      <pre class="language-r">    "AGEU", "AAGE", "AAGEU", "AGEGR1", "AGEGR2", "AGEGR3", "STRATwNM", "STRATw", "STRATwV",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">450</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"></pre>
+                      <pre class="language-r">    "SEX", "RACE", "ITTFL", "SAFFL", "PPROTFL", "TRT01P", "TRT01A",</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">    "TRTSEQP", "TRTSEQA", "TRTSDTM", "TRTSDT", "TRTEDTM", "TRTEDT", "DCUTDT"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">451</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # filter out subjects with missing dates</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">452</td>
+                    <td class="num">140</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lookup_qs_sub_x1 &lt;- filter(</pre>
+                      <pre class="language-r">  adsl &lt;- select(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">453</td>
+                    <td class="num">141</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lookup_qs_sub_x,</pre>
+                      <pre class="language-r">    adsl,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">454</td>
+                    <td class="num">142</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    !is.na(QSDTC)</pre>
+                      <pre class="language-r">    any_of(adsl_vars)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">455</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">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>
+                  <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">  # subjects with missing dates</pre>
+                      <pre class="language-r">  adqlqc &lt;- dplyr::inner_join(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">458</td>
+                    <td class="num">145</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lookup_qs_sub_x2 &lt;- filter(</pre>
+                      <pre class="language-r">    adqlqc_tmp,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">459</td>
+                    <td class="num">146</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lookup_qs_sub_x,</pre>
+                      <pre class="language-r">    adsl,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">460</td>
+                    <td class="num">147</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is.na(QSDTC)</pre>
+                      <pre class="language-r">    by = c("STUDYID", "USUBJID")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">461</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">462</td>
+                    <td class="num">149</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    select(</pre>
+                      <pre class="language-r">    dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">463</td>
+                    <td class="num">150</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID,</pre>
+                      <pre class="language-r">      ADY_der = ceiling(difftime(ADTM, TRTSDTM, units = "days")),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">464</td>
+                    <td class="num">151</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID,</pre>
+                      <pre class="language-r">      ADY = case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">465</td>
+                    <td class="num">152</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      VISIT,</pre>
+                      <pre class="language-r">        ADY_der &gt;= 0 ~ ADY_der + 1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">466</td>
+                    <td class="num">153</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      VISITNUM</pre>
+                      <pre class="language-r">        TRUE ~ ADY_der</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">467</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">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">468</td>
+                    <td class="num">156</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    distinct()</pre>
+                      <pre class="language-r">    select(-ADY_der)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">469</td>
+                    <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">470</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # generate QSALL for subjects with missing dates</pre>
-                    </td>
-                  </tr>
-                  <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">  qsall_data2 &lt;- mutate(</pre>
-                    </td>
-                  </tr>
-                  <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">    lookup_qs_sub_x2,</pre>
+                      <pre class="language-r">  # get compliance data ---------------------------------------------------</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">473</td>
+                    <td class="num">159</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSTESTCD = "QSALL",</pre>
+                      <pre class="language-r">  compliance_data &lt;- comp_derv(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">474</td>
+                    <td class="num">160</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSTEST = "Questionnaires",</pre>
+                      <pre class="language-r">    dataset = adqlqc,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">475</td>
+                    <td class="num">161</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSSTAT = "NOT DONE",</pre>
+                      <pre class="language-r">    percent = percent,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">476</td>
+                    <td class="num">162</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSREASND = "SUBJECT REFUSED"</pre>
+                      <pre class="language-r">    number = number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">477</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">478</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # add ADSL variables</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">479</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # add qsall data to original item data</pre>
+                      <pre class="language-r">  compliance_data &lt;- left_join(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">480</td>
+                    <td class="num">166</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lookup_qs_sub_all &lt;- bind_rows(</pre>
+                      <pre class="language-r">    compliance_data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">481</td>
+                    <td class="num">167</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lookup_qs_sub_x1,</pre>
+                      <pre class="language-r">    adsl,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">482</td>
+                    <td class="num">168</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    qsall_data1,</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">    qsall_data2</pre>
+                      <pre class="language-r">    by = c("STUDYID", "USUBJID")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">484</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">485</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 completion to ADQLQC</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">486</td>
+                    <td class="num">171</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  qs_all &lt;- lookup_qs_sub_all %&gt;%</pre>
+                      <pre class="language-r">  adqlqc &lt;- bind_rows(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">487</td>
+                    <td class="num">172</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    arrange(</pre>
+                      <pre class="language-r">    adqlqc,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">488</td>
+                    <td class="num">173</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID,</pre>
+                      <pre class="language-r">    compliance_data</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">489</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">      USUBJID,</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">490</td>
+                    <td class="num">175</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      VISITNUM</pre>
+                      <pre class="language-r">    arrange(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">491</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) %&gt;%</pre>
+                      <pre class="language-r">      USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">492</td>
+                    <td class="num">177</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">      AVISITN,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">493</td>
+                    <td class="num">178</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup()</pre>
+                      <pre class="language-r">      QSTESTCD</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">494</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">495</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # get first and second subject ids</pre>
+                      <pre class="language-r">  # find first set of questionnaire observations</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">496</td>
+                    <td class="num">181</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  first_second_subj &lt;- select(qs_all, USUBJID) %&gt;%</pre>
+                      <pre class="language-r">  adqlqc_x &lt;- arrange(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">497</td>
+                    <td class="num">182</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    distinct() %&gt;%</pre>
+                      <pre class="language-r">    adqlqc,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">498</td>
+                    <td class="num">183</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slice(1:2)</pre>
+                      <pre class="language-r">    USUBJID,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ADTM</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">499</td>
+                    <td class="num">185</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">500</td>
+                    <td class="num">186</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  qs1 &lt;- filter(</pre>
+                      <pre class="language-r">    filter(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">501</td>
+                    <td class="num">187</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    qs_all,</pre>
+                      <pre class="language-r">      PARAMCD != "QSALL" &amp;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">502</td>
+                    <td class="num">188</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID %in% first_second_subj$USUBJID</pre>
+                      <pre class="language-r">        !str_detect(AVISIT, "SCREENING|UNSCHEDULED")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">503</td>
+                    <td class="num">189</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">504</td>
-                    <td class="coverage"></td>
+                  <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"></pre>
+                      <pre class="language-r">    group_by(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">505</td>
+                    <td class="num">191</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
+                      <pre class="language-r">      USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">506</td>
+                    <td class="num">192</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    qs1 &lt;- mutate_na(ds = qs1, na_vars = na_vars, na_percentage = na_percentage)</pre>
+                      <pre class="language-r">      ADTM</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">507</td>
+                    <td class="num">193</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">508</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"></pre>
+                      <pre class="language-r">    summarise(first_date = first(ADTM), .groups = "drop")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">509</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # QSSTAT = NOT DONE</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">510</td>
+                    <td class="num">196</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  qs1 &lt;- mutate(</pre>
+                      <pre class="language-r">  adqlqc &lt;- left_join(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">511</td>
+                    <td class="num">197</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    qs1,</pre>
+                      <pre class="language-r">    adqlqc,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">512</td>
+                    <td class="num">198</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSSTAT = case_when(</pre>
+                      <pre class="language-r">    adqlqc_x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">513</td>
+                    <td class="num">199</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is.na(QSORRES) &amp; is.na(QSSTRESC) ~ "NOT DONE"</pre>
+                      <pre class="language-r">    by = c("USUBJID", "ADTM")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">514</td>
+                    <td class="num">200</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">515</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">201</td>
+                    <td class="coverage">3<em>x</em></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">516</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ANL01FL = case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">517</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">203</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # remove first and second subjects from main data</pre>
+                      <pre class="language-r">        PARAMCD != "QSALL" &amp; ABLFL == "Y" ~ "Y",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">518</td>
+                    <td class="num">204</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  qs2 &lt;- anti_join(</pre>
+                      <pre class="language-r">        PARAMCD != "QSALL" &amp;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">519</td>
+                    <td class="num">205</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    qs_all,</pre>
+                      <pre class="language-r">          !str_detect(AVISIT, "UNSCHEDULED") &amp;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">520</td>
+                    <td class="num">206</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    qs1,</pre>
+                      <pre class="language-r">          !is.na(first_date) ~ "Y"</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">    ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">521</td>
+                    <td class="num">209</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    by = c("USUBJID")</pre>
+                      <pre class="language-r">    select(-first_date)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">522</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">523</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # final dataset -----------------------------------------------------------</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">524</td>
+                    <td class="num">212</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  final_qs &lt;- rbind(</pre>
+                      <pre class="language-r">  adqlqc_final &lt;- adqlqc %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">525</td>
+                    <td class="num">213</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    qs1,</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">526</td>
+                    <td class="num">214</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    qs2</pre>
+                      <pre class="language-r">    dplyr::mutate(ASEQ = row_number()) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">527</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">215</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">528</td>
+                    <td class="num">216</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::arrange(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">529</td>
+                    <td class="num">217</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(QSSEQ = row_number()) %&gt;%</pre>
+                      <pre class="language-r">      STUDYID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">530</td>
+                    <td class="num">218</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    arrange(</pre>
+                      <pre class="language-r">      USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">531</td>
+                    <td class="num">219</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID,</pre>
+                      <pre class="language-r">      AVISITN</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">220</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">532</td>
+                    <td class="num">221</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID,</pre>
+                      <pre class="language-r">    select(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">533</td>
+                    <td class="num">222</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      VISITNUM</pre>
+                      <pre class="language-r">      -c("BASE2", "CHG2", "PCHG2", "ABLFL2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">534</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">535</td>
+                    <td class="num">224</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    ungroup()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">536</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">537</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # ordered variables as per gdsr</pre>
+                      <pre class="language-r">  adam_vars &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">538</td>
+                    <td class="num">227</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  final_qs &lt;- select(</pre>
+                      <pre class="language-r">    adsl_vars, "QSSEQ", "QSCAT", "QSSCAT", "QSDTC", "QSSPID", "QSSTAT", "QSSTRESN",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">539</td>
+                    <td class="num">228</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    final_qs,</pre>
+                      <pre class="language-r">    "QSSTRESC", "QSSTRESU", "QSORRES", "QSORRESU", "QSTEST", "QSTESTCD", "QSTPT",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">540</td>
+                    <td class="num">229</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID,</pre>
+                      <pre class="language-r">    "QSTPTNUM", "QSTPTREF", "QSDY", "QSREASND", "QSTSTDTL", "QSEVAL", "VISIT", "VISITNUM",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">541</td>
+                    <td class="num">230</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID,</pre>
+                      <pre class="language-r">    "PARAM", "PARAMCD", "PARCAT1", "PARCAT1N", "PARCAT2", "AVAL", "AVALC", "AREASND",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">542</td>
+                    <td class="num">231</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSSEQ,</pre>
+                      <pre class="language-r">    "BASE", "BASETYPE", "ABLFL", "CHG", "PCHG", "CHGCAT1", "CRIT1", "CRIT1FL", "DTYPE",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">543</td>
+                    <td class="num">232</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSTESTCD,</pre>
+                      <pre class="language-r">    "ADTM", "ADT", "ADY", "ADTF", "ATMF", "ATPT", "ATPTN", "AVISIT", "AVISITN", "APHASE",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">544</td>
+                    <td class="num">233</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSTEST,</pre>
+                      <pre class="language-r">    "APHASEN", "APERIOD", "APERIODC", "APERIODC", "ASPER", "ASPERC", "PERADY", "TRTP",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">545</td>
+                    <td class="num">234</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSCAT,</pre>
+                      <pre class="language-r">    "TRTA", "ONTRTFL", "LAST02FL", "FIRS02FL", "ANL01FL", "ANL02FL", "ANL03FL",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">546</td>
+                    <td class="num">235</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSSCAT,</pre>
+                      <pre class="language-r">    "ANL04FL", "CGCAT1NX"</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">  # order variables in mapped qs by variables in adam_vars</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">547</td>
+                    <td class="num">238</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSORRES,</pre>
+                      <pre class="language-r">  adqlqc_name_ordered &lt;- names(adqlqc_final)[order(match(names(adqlqc_final), adam_vars))]</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">239</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # adqlqc with variables ordered per gdsr</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">548</td>
+                    <td class="num">240</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSORRESU,</pre>
+                      <pre class="language-r">  adqlqc_final &lt;- adqlqc_final %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">549</td>
+                    <td class="num">241</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSSTRESC,</pre>
+                      <pre class="language-r">    select(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">550</td>
+                    <td class="num">242</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSSTRESU,</pre>
+                      <pre class="language-r">      any_of(adqlqc_name_ordered)</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="never">
+                    <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">551</td>
+                    <td class="num">245</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSSTAT,</pre>
+                      <pre class="language-r">  adqlqc_final &lt;- relocate(adqlqc_final, "QSEVLINT", .after = "QSTESTCD") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">552</td>
+                    <td class="num">246</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSREASND,</pre>
+                      <pre class="language-r">    arrange(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">553</td>
+                    <td class="num">247</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    VISITNUM,</pre>
+                      <pre class="language-r">      USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">554</td>
+                    <td class="num">248</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    VISIT,</pre>
+                      <pre class="language-r">      AVISITN,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">555</td>
+                    <td class="num">249</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSDTC,</pre>
+                      <pre class="language-r">      ASEQ,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">556</td>
+                    <td class="num">250</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    QSEVLINT</pre>
+                      <pre class="language-r">      QSTESTCD</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">557</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="never">
+                    <td class="num">252</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # apply metadata</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">558</td>
+                    <td class="num">253</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(final_qs)</pre>
+                      <pre class="language-r">  adqlqc_final &lt;- apply_metadata(adqlqc_final, "metadata/ADQLQC.yml")</pre>
+                    </td>
+                  </tr>
+                  <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">  return(adqlqc_final)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">559</td>
+                    <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">560</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">561</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_adqlqc Function for generating random dates between 2 dates</pre>
+                      <pre class="language-r">#' Helper Functions for Constructing ADQLQC</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">562</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">563</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param from (`datetime vector`)\cr Start date/times.</pre>
+                      <pre class="language-r">#' Internal functions used by `radqlqc`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">564</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param to (`datetime vector`)\cr End date/times.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">565</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param visit_id (`vector`)\cr Visit identifiers.</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">566</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams radqlqc</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">567</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Data frame with new randomly generated dates variable.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">568</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">569</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_random_dates_between &lt;- function(from, to, visit_id) {</pre>
+                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, study_duration = 2, seed = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">570</td>
-                    <td class="coverage">30<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">  min_date &lt;- min(lubridate::as_datetime(from), na.rm = TRUE)</pre>
+                      <pre class="language-r">#' adqlqc &lt;- radqlqc(adsl, seed = 1, percent = 80, number = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">571</td>
-                    <td class="coverage">30<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">  max_date &lt;- max(lubridate::as_datetime(to), na.rm = TRUE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">572</td>
-                    <td class="coverage">30<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">  date_seq &lt;- seq(from = min_date + lubridate::days(1), to = max_date, by = "28 days")</pre>
+                      <pre class="language-r">#' @name h_adqlqc</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">573</td>
+                    <td class="num">269</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">
-                    <td class="num">574</td>
-                    <td class="coverage">30<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">  visit_ids &lt;- unique(visit_id)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">575</td>
-                    <td class="coverage">30<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">  out &lt;- sapply(visit_ids, simplify = TRUE, USE.NAMES = TRUE, FUN = function(x) {</pre>
+                      <pre class="language-r">#' @describeIn h_adqlqc Questionnaires EORTC QLQ-C30 V3.0 SDTM (QS)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">576</td>
-                    <td class="coverage">177<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 (x == -1) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">577</td>
-                    <td class="coverage">30<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">      random_days_to_subtract &lt;- lubridate::days(sample(1:10, size = 1))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">578</td>
-                    <td class="coverage">30<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      min_date - random_days_to_subtract</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">579</td>
-                    <td class="coverage">147<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    } else if (x == 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">580</td>
-                    <td class="coverage">30<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      min_date</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">581</td>
-                    <td class="coverage">117<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    } else if (x &gt; 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">582</td>
-                    <td class="coverage">117<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (x %in% seq_along(date_seq)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">583</td>
-                    <td class="coverage">117<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        date_seq[[x]]</pre>
+                      <pre class="language-r">#' Function for generating random Questionnaires SDTM domain</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">584</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">585</td>
-                    <td class="coverage">30<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        NA</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">586</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @return a dataframe with SDTM questionnaire data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">587</td>
+                    <td class="num">276</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">588</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">589</td>
-                    <td class="coverage">30<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  lubridate::as_datetime(out[match(visit_id, visit_ids)])</pre>
+                      <pre class="language-r">get_qs_data &lt;- function(adsl,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">590</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                        visit_format = "CYCLE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">591</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                        n_assessments = 5L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">592</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_adqlqc Prepare ADaM ADQLQC data, adding PARAMCD to SDTM QS data</pre>
+                      <pre class="language-r">                        n_days = 1L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">593</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                        lookup = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">594</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param df (`data.frame`)\cr SDTM QS dataset.</pre>
+                      <pre class="language-r">                        seed = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">595</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                        na_percentage = 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">596</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `data.frame`</pre>
+                      <pre class="language-r">                        na_vars = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">597</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                          QSORRES = c(1234, 0.2),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">598</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">prep_adqlqc &lt;- function(df) {</pre>
+                      <pre class="language-r">                          QSSTRESC = c(1234, 0.2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">599</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # create PARAMCD from QSTESTCD</pre>
+                      <pre class="language-r">                        )) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">600</td>
+                    <td class="num">288</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqlqc &lt;- dplyr::mutate(</pre>
+                      <pre class="language-r">  load(system.file("sysdata.rda", package = "random.cdisc.data"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">601</td>
+                    <td class="num">289</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df,</pre>
+                      <pre class="language-r">  checkmate::assert_string(visit_format)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">602</td>
+                    <td class="num">290</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD = case_when(</pre>
+                      <pre class="language-r">  checkmate::assert_integer(n_assessments, len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">603</td>
+                    <td class="num">291</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "EOR0101" ~ "QS02801",</pre>
+                      <pre class="language-r">  checkmate::assert_integer(n_days, len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">604</td>
+                    <td class="num">292</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "EOR0102" ~ "QS02802",</pre>
+                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">605</td>
+                    <td class="num">293</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "EOR0103" ~ "QS02803",</pre>
+                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1, na.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">606</td>
+                    <td class="num">294</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "EOR0104" ~ "QS02804",</pre>
+                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">607</td>
+                    <td class="num">295</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "EOR0105" ~ "QS02805",</pre>
+                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">608</td>
-                    <td class="coverage">3<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">      QSTESTCD == "EOR0106" ~ "QS02806",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">609</td>
-                    <td class="coverage">3<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">      QSTESTCD == "EOR0107" ~ "QS02807",</pre>
+                      <pre class="language-r">  # get subjects for QS data from ADSL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">610</td>
-                    <td class="coverage">3<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">      QSTESTCD == "EOR0108" ~ "QS02808",</pre>
+                      <pre class="language-r">  # get studyid, subject for QS generation</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">611</td>
+                    <td class="num">299</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "EOR0109" ~ "QS02809",</pre>
+                      <pre class="language-r">  qs &lt;- select(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">612</td>
+                    <td class="num">300</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "EOR0110" ~ "QS02810",</pre>
+                      <pre class="language-r">    adsl,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">613</td>
+                    <td class="num">301</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "EOR0111" ~ "QS02811",</pre>
+                      <pre class="language-r">    STUDYID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">614</td>
+                    <td class="num">302</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "EOR0112" ~ "QS02812",</pre>
+                      <pre class="language-r">    USUBJID</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">615</td>
-                    <td class="coverage">3<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">      QSTESTCD == "EOR0113" ~ "QS02813",</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">616</td>
+                    <td class="num">304</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "EOR0114" ~ "QS02814",</pre>
+                      <pre class="language-r">    mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">617</td>
+                    <td class="num">305</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "EOR0115" ~ "QS02815",</pre>
+                      <pre class="language-r">      DOMAIN = "QS"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">618</td>
-                    <td class="coverage">3<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">      QSTESTCD == "EOR0116" ~ "QS02816",</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">619</td>
-                    <td class="coverage">3<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">      QSTESTCD == "EOR0117" ~ "QS02817",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">620</td>
-                    <td class="coverage">3<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">      QSTESTCD == "EOR0118" ~ "QS02818",</pre>
+                      <pre class="language-r">  # QS prep -----------------------------------------------------------------</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">621</td>
-                    <td class="coverage">3<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">      QSTESTCD == "EOR0119" ~ "QS02819",</pre>
+                      <pre class="language-r">  # get questionnaire function for QS</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">622</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">310</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "EOR0120" ~ "QS02820",</pre>
+                      <pre class="language-r">  # QSTESTCD: EOR0101 to EOR0130</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">623</td>
+                    <td class="num">311</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "EOR0121" ~ "QS02821",</pre>
+                      <pre class="language-r">  eortc_qlq_c30_sub &lt;- filter(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">624</td>
+                    <td class="num">312</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "EOR0122" ~ "QS02822",</pre>
+                      <pre class="language-r">    eortc_qlq_c30,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">625</td>
+                    <td class="num">313</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "EOR0123" ~ "QS02823",</pre>
+                      <pre class="language-r">    as.numeric(str_extract(QSTESTCD, "\\d+$")) &gt;= 101 &amp;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">626</td>
+                    <td class="num">314</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "EOR0124" ~ "QS02824",</pre>
+                      <pre class="language-r">      as.numeric(str_extract(QSTESTCD, "\\d+$")) &lt;= 130</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">627</td>
-                    <td class="coverage">3<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">      QSTESTCD == "EOR0125" ~ "QS02825",</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">628</td>
+                    <td class="num">316</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "EOR0126" ~ "QS02826",</pre>
+                      <pre class="language-r">    select(-publication_name)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">629</td>
-                    <td class="coverage">3<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">      QSTESTCD == "EOR0127" ~ "QS02827",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">630</td>
-                    <td class="coverage">3<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">      QSTESTCD == "EOR0128" ~ "QS02828",</pre>
+                      <pre class="language-r">  # validate and initialize QSTEST vectors</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">631</td>
+                    <td class="num">319</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "EOR0129" ~ "QS02829",</pre>
+                      <pre class="language-r">  qstest_init_list &lt;- relvar_init(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">632</td>
+                    <td class="num">320</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD == "EOR0130" ~ "QS02830",</pre>
+                      <pre class="language-r">    unique(eortc_qlq_c30_sub$QSTEST),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">633</td>
+                    <td class="num">321</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ QSTESTCD</pre>
+                      <pre class="language-r">    unique(eortc_qlq_c30_sub$QSTESTCD)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">634</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">635</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="covered">
-                    <td class="num">636</td>
+                    <td class="num">324</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  load(system.file("sysdata.rda", package = "random.cdisc.data"))</pre>
+                      <pre class="language-r">  if (!is.null(seed)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">637</td>
+                    <td class="num">325</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqlqc1 &lt;- dplyr::left_join(</pre>
+                      <pre class="language-r">    set.seed(seed)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">638</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">326</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adqlqc,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">639</td>
-                    <td class="coverage">3<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">    gdsr_param_adqlqc,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">640</td>
+                    <td class="num">328</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    by = "PARAMCD"</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(lookup, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">641</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">642</td>
+                    <td class="num">330</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(adqlqc1)</pre>
+                      <pre class="language-r">  lookup_qs &lt;- if (!is.null(lookup)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">643</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">    lookup</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">644</td>
+                    <td class="num">332</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">645</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">333</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_adqlqc Scale calculation for ADQLQC data</pre>
+                      <pre class="language-r">    expand.grid(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">646</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">334</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      STUDYID = unique(qs$STUDYID),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">647</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">#' @param adqlqc1 (`data.frame`)\cr Prepared data generated from the [prep_adqlqc()] function.</pre>
+                      <pre class="language-r">      USUBJID = qs$USUBJID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">648</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">336</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      QSTEST = qstest_init_list$relvar1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">649</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">337</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `data.frame`</pre>
+                      <pre class="language-r">      VISIT = visit_schedule(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">650</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">338</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">        visit_format = visit_format,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">339</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        n_assessments = n_assessments,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">340</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        n_days = n_days</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">651</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">calc_scales &lt;- function(adqlqc1) {</pre>
+                      <pre class="language-r">      ),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">342</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">652</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Prep scale data ---------------------------------------------------------</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">653</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # parcat2 = scales or global health status</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">654</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # global health status/scales data</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">655</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # QSTESTCD: EOR0131 to EOR0145 (global health status and scales)</pre>
+                      <pre class="language-r">  # assign related variable values: QSTESTxQSTESTCD are related</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">656</td>
+                    <td class="num">347</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  load(system.file("sysdata.rda", package = "random.cdisc.data"))</pre>
+                      <pre class="language-r">  lookup_qs &lt;- lookup_qs %&gt;% rel_var(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">657</td>
+                    <td class="num">348</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  eortc_qlq_c30_sub &lt;- filter(</pre>
+                      <pre class="language-r">    var_name = "QSTESTCD",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">658</td>
+                    <td class="num">349</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    eortc_qlq_c30,</pre>
+                      <pre class="language-r">    related_var = "QSTEST",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">659</td>
+                    <td class="num">350</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    !(as.numeric(str_extract(QSTESTCD, "\\d+$")) &gt;= 101 &amp; as.numeric(str_extract(QSTESTCD, "\\d+$")) &lt;= 130)</pre>
+                      <pre class="language-r">    var_values = qstest_init_list$relvar2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">660</td>
+                    <td class="num">351</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">661</td>
-                    <td class="coverage">3<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">    mutate(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">662</td>
+                    <td class="num">353</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD = case_when(</pre>
+                      <pre class="language-r">  lookup_qs &lt;- left_join(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">663</td>
+                    <td class="num">354</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        QSTESTCD == "EOR0131" ~ "QS028QL2",</pre>
+                      <pre class="language-r">    lookup_qs,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">664</td>
+                    <td class="num">355</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        QSTESTCD == "EOR0132" ~ "QS028PF2",</pre>
+                      <pre class="language-r">    eortc_qlq_c30_sub,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">665</td>
+                    <td class="num">356</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        QSTESTCD == "EOR0133" ~ "QS028RF2",</pre>
+                      <pre class="language-r">    by = c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">666</td>
+                    <td class="num">357</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        QSTESTCD == "EOR0134" ~ "QS028EF",</pre>
+                      <pre class="language-r">      "QSTEST",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">667</td>
+                    <td class="num">358</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        QSTESTCD == "EOR0135" ~ "QS028CF",</pre>
+                      <pre class="language-r">      "QSTESTCD"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">668</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">        QSTESTCD == "EOR0136" ~ "QS028SF",</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">669</td>
+                    <td class="num">360</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        QSTESTCD == "EOR0137" ~ "QS028FA",</pre>
+                      <pre class="language-r">    multiple = "all",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">670</td>
+                    <td class="num">361</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        QSTESTCD == "EOR0138" ~ "QS028NV",</pre>
+                      <pre class="language-r">    relationship = "many-to-many"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">671</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">        QSTESTCD == "EOR0139" ~ "QS028PA",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">672</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">        QSTESTCD == "EOR0140" ~ "QS028DY",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">673</td>
+                    <td class="num">364</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        QSTESTCD == "EOR0141" ~ "QS028SL",</pre>
+                      <pre class="language-r">  lookup_qs &lt;- dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">674</td>
+                    <td class="num">365</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        QSTESTCD == "EOR0142" ~ "QS028AP",</pre>
+                      <pre class="language-r">    lookup_qs,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">675</td>
+                    <td class="num">366</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        QSTESTCD == "EOR0143" ~ "QS028CO",</pre>
+                      <pre class="language-r">    VISITNUM = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">676</td>
+                    <td class="num">367</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        QSTESTCD == "EOR0144" ~ "QS028DI",</pre>
+                      <pre class="language-r">      VISIT == "SCREENING" ~ -1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">677</td>
+                    <td class="num">368</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        QSTESTCD == "EOR0145" ~ "QS028FI",</pre>
+                      <pre class="language-r">      VISIT == "BASELINE" ~ 0,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">678</td>
+                    <td class="num">369</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        TRUE ~ QSTESTCD</pre>
+                      <pre class="language-r">      (grepl("^WEEK", VISIT) | grepl("^CYCLE", VISIT)) ~ as.numeric(VISIT) - 2,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">679</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">370</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      TRUE ~ NA_real_</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">680</td>
+                    <td class="num">371</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">681</td>
+                    <td class="num">372</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    select(-publication_name)</pre>
+                      <pre class="language-r">  ) %&gt;% arrange(USUBJID)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">682</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">683</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # ADaM global health status and scales from gdsr</pre>
+                      <pre class="language-r">  # # prep QSALL --------------------------------------------------------------</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">684</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">  gdsr_param_adqlqc &lt;- gdsr_param_adqlqc %&gt;%</pre>
+                      <pre class="language-r">  # get last subject and visit for QSALL</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">685</td>
+                    <td class="num">376</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filter(</pre>
+                      <pre class="language-r">  last_subj_vis &lt;- select(lookup_qs, USUBJID, VISIT) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">686</td>
+                    <td class="num">377</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      !str_detect(PARCAT2, "Original Items|Completion")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">687</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    distinct() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">688</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">378</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    slice(n())</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">689</td>
+                    <td class="num">379</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ghs_scales &lt;- left_join(</pre>
+                      <pre class="language-r">  last_subj_vis_full &lt;- filter(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">690</td>
+                    <td class="num">380</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    eortc_qlq_c30_sub,</pre>
+                      <pre class="language-r">    lookup_qs,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">691</td>
+                    <td class="num">381</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gdsr_param_adqlqc,</pre>
+                      <pre class="language-r">    USUBJID == last_subj_vis$USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">692</td>
+                    <td class="num">382</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    by = "PARAMCD"</pre>
+                      <pre class="language-r">    VISIT == last_subj_vis$VISIT</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">693</td>
+                    <td class="num">383</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">694</td>
+                    <td class="num">384</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # scale data</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">695</td>
+                    <td class="num">385</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df &lt;- data.frame(index = seq_len(nrow(ghs_scales)))</pre>
+                      <pre class="language-r">  qsall_data1 &lt;- tibble::tibble(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">696</td>
+                    <td class="num">386</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df$previous &lt;- list(</pre>
+                      <pre class="language-r">    STUDYID = unique(last_subj_vis_full$STUDYID),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">697</td>
+                    <td class="num">387</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("QS02826", "QS02827"),</pre>
+                      <pre class="language-r">    USUBJID = unique(last_subj_vis_full$USUBJID),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">698</td>
+                    <td class="num">388</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("QS02811"),</pre>
+                      <pre class="language-r">    VISIT = unique(last_subj_vis_full$VISIT),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">699</td>
+                    <td class="num">389</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("QS02810", "QS02812", "QS02818"),</pre>
+                      <pre class="language-r">    VISITNUM = unique(last_subj_vis_full$VISITNUM),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">700</td>
+                    <td class="num">390</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("QS02806", "QS02807"),</pre>
+                      <pre class="language-r">    QSTESTCD = "QSALL",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">701</td>
+                    <td class="num">391</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("QS02814", "QS02815"),</pre>
+                      <pre class="language-r">    QSTEST = "Questionnaires",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">702</td>
+                    <td class="num">392</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("QS02808"),</pre>
+                      <pre class="language-r">    QSSTAT = "NOT DONE",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">703</td>
+                    <td class="num">393</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("QS02817"),</pre>
+                      <pre class="language-r">    QSREASND = "SUBJECT REFUSED"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">704</td>
-                    <td class="coverage">3<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">    c("QS02816"),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">705</td>
-                    <td class="coverage">3<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">    c("QS02821", "QS02822", "QS02823", "QS02824"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">706</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">396</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("QS02829", "QS02830"),</pre>
+                      <pre class="language-r">  # remove last subject and visit from main data</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">707</td>
+                    <td class="num">397</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("QS02813"),</pre>
+                      <pre class="language-r">  lookup_qs_sub &lt;- anti_join(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">708</td>
+                    <td class="num">398</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("QS02801", "QS02802", "QS02803", "QS02804", "QS02805"),</pre>
+                      <pre class="language-r">    lookup_qs,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">709</td>
+                    <td class="num">399</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("QS02809", "QS02819"),</pre>
+                      <pre class="language-r">    last_subj_vis_full,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">710</td>
+                    <td class="num">400</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("QS02820", "QS02825"),</pre>
+                      <pre class="language-r">    by = c("USUBJID", "VISIT")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">711</td>
-                    <td class="coverage">3<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">    c("QS02828")</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">712</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="covered">
-                    <td class="num">713</td>
+                    <td class="num">403</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df$newName &lt;- list(</pre>
+                      <pre class="language-r">  set.seed(seed)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">714</td>
+                    <td class="num">404</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "QS028SF",</pre>
+                      <pre class="language-r">  lookup_qs_sub_x &lt;- lookup_qs_sub %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">715</td>
+                    <td class="num">405</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "QS028SL",</pre>
+                      <pre class="language-r">    group_by(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">716</td>
+                    <td class="num">406</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "QS028FA",</pre>
+                      <pre class="language-r">      USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">717</td>
+                    <td class="num">407</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "QS028RF2",</pre>
+                      <pre class="language-r">      QSTESTCD,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">718</td>
+                    <td class="num">408</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "QS028NV",</pre>
+                      <pre class="language-r">      VISIT</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">719</td>
-                    <td class="coverage">3<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">    "QS028DY",</pre>
+                      <pre class="language-r">    ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">720</td>
+                    <td class="num">410</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "QS028DI",</pre>
+                      <pre class="language-r">    slice_sample(n = 1) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">721</td>
+                    <td class="num">411</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "QS028CO",</pre>
+                      <pre class="language-r">    ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">722</td>
+                    <td class="num">412</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "QS028EF",</pre>
+                      <pre class="language-r">    as.data.frame()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">723</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">413</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "QS028QL2",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">724</td>
+                    <td class="num">414</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "QS028AP",</pre>
+                      <pre class="language-r">  lookup_qs_sub_x &lt;- arrange(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">725</td>
+                    <td class="num">415</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "QS028PF2",</pre>
+                      <pre class="language-r">    lookup_qs_sub_x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">726</td>
+                    <td class="num">416</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "QS028PA",</pre>
+                      <pre class="language-r">    USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">727</td>
+                    <td class="num">417</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "QS028CF",</pre>
+                      <pre class="language-r">    VISITNUM</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">728</td>
-                    <td class="coverage">3<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">    "QS028FI"</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">729</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">730</td>
-                    <td class="coverage">3<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">  df$newNamelabel &lt;- list(</pre>
+                      <pre class="language-r">  # add date: QSDTC ---------------------------------------------------------</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">731</td>
-                    <td class="coverage">3<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">    "EORTC QLQ-C30: Social functioning",</pre>
+                      <pre class="language-r">  # get treatment dates from ADSL</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">732</td>
+                    <td class="num">422</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "EORTC QLQ-C30: Insomnia",</pre>
+                      <pre class="language-r">  adsl_trt &lt;- select(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">733</td>
+                    <td class="num">423</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "EORTC QLQ-C30: Fatigue",</pre>
+                      <pre class="language-r">    adsl,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">734</td>
+                    <td class="num">424</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "EORTC QLQ-C30: Role functioning (revised)",</pre>
+                      <pre class="language-r">    USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">735</td>
+                    <td class="num">425</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "EORTC QLQ-C30: Nausea and vomiting",</pre>
+                      <pre class="language-r">    TRTSDTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">736</td>
+                    <td class="num">426</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "EORTC QLQ-C30: Dyspnoea",</pre>
+                      <pre class="language-r">    TRTEDTM</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">737</td>
-                    <td class="coverage">3<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">    "EORTC QLQ-C30: Diarrhoea",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">738</td>
-                    <td class="coverage">3<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">    "EORTC QLQ-C30: Constipation",</pre>
+                      <pre class="language-r">  # use to derive QSDTC</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">739</td>
-                    <td class="coverage">3<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">    "EORTC QLQ-C30: Emotional functioning",</pre>
+                      <pre class="language-r">  # if no treatment end date, create an arbituary one</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">740</td>
+                    <td class="num">430</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "EORTC QLQ-C30: Global health status/QoL (revised)",</pre>
+                      <pre class="language-r">  trt_end_date &lt;- max(adsl_trt$TRTEDTM, na.rm = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">741</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">431</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "EORTC QLQ-C30: Appetite loss",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">742</td>
+                    <td class="num">432</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "EORTC QLQ-C30: Physical functioning (revised)",</pre>
+                      <pre class="language-r">  lookup_qs_sub_x &lt;- left_join(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">743</td>
+                    <td class="num">433</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "EORTC QLQ-C30: Pain",</pre>
+                      <pre class="language-r">    lookup_qs_sub_x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">744</td>
+                    <td class="num">434</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "EORTC QLQ-C30: Cognitive functioning",</pre>
+                      <pre class="language-r">    adsl_trt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">745</td>
+                    <td class="num">435</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "EORTC QLQ-C30: Financial difficulties"</pre>
+                      <pre class="language-r">    by = "USUBJID"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">746</td>
+                    <td class="num">436</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">747</td>
+                    <td class="num">437</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df$newNameCategory &lt;- list(</pre>
+                      <pre class="language-r">    group_by(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">748</td>
+                    <td class="num">438</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Functional Scales",</pre>
+                      <pre class="language-r">      USUBJID</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">749</td>
-                    <td class="coverage">3<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">    "Symptom Scales",</pre>
+                      <pre class="language-r">    ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">750</td>
+                    <td class="num">440</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Symptom Scales",</pre>
+                      <pre class="language-r">    mutate(QSDTC = get_random_dates_between(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">751</td>
+                    <td class="num">441</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Functional Scales",</pre>
+                      <pre class="language-r">      from = TRTSDTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">752</td>
+                    <td class="num">442</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Symptom Scales",</pre>
+                      <pre class="language-r">      to = ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">753</td>
+                    <td class="num">443</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Symptom Scales",</pre>
+                      <pre class="language-r">        is.na(TRTEDTM),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">754</td>
+                    <td class="num">444</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Symptom Scales",</pre>
+                      <pre class="language-r">        trt_end_date,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">755</td>
+                    <td class="num">445</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Symptom Scales",</pre>
+                      <pre class="language-r">        TRTEDTM</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">756</td>
-                    <td class="coverage">3<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">    "Functional Scales",</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">757</td>
+                    <td class="num">447</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Global Health Status",</pre>
+                      <pre class="language-r">      visit_id = VISITNUM</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">758</td>
-                    <td class="coverage">3<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">    "Symptom Scales",</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">759</td>
+                    <td class="num">449</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Functional Scales",</pre>
+                      <pre class="language-r">    select(-c("TRTSDTM", "TRTEDTM"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">450</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">451</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # filter out subjects with missing dates</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">760</td>
+                    <td class="num">452</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Symptom Scales",</pre>
+                      <pre class="language-r">  lookup_qs_sub_x1 &lt;- filter(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">761</td>
+                    <td class="num">453</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Functional Scales",</pre>
+                      <pre class="language-r">    lookup_qs_sub_x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">762</td>
+                    <td class="num">454</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Symptom Scales"</pre>
+                      <pre class="language-r">    !is.na(QSDTC)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">763</td>
+                    <td class="num">455</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">764</td>
-                    <td class="coverage">3<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">  df$num_param &lt;- list(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">765</td>
-                    <td class="coverage">3<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">    "1",</pre>
+                      <pre class="language-r">  # subjects with missing dates</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">766</td>
+                    <td class="num">458</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "1",</pre>
+                      <pre class="language-r">  lookup_qs_sub_x2 &lt;- filter(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">767</td>
+                    <td class="num">459</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "2",</pre>
+                      <pre class="language-r">    lookup_qs_sub_x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">768</td>
+                    <td class="num">460</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "1",</pre>
+                      <pre class="language-r">    is.na(QSDTC)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">769</td>
-                    <td class="coverage">3<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">    "1",</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">770</td>
+                    <td class="num">462</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "1",</pre>
+                      <pre class="language-r">    select(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">771</td>
+                    <td class="num">463</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "1",</pre>
+                      <pre class="language-r">      STUDYID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">772</td>
+                    <td class="num">464</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "1",</pre>
+                      <pre class="language-r">      USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">773</td>
+                    <td class="num">465</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "2",</pre>
+                      <pre class="language-r">      VISIT,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">774</td>
+                    <td class="num">466</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "1",</pre>
+                      <pre class="language-r">      VISITNUM</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">775</td>
-                    <td class="coverage">3<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">    "1",</pre>
+                      <pre class="language-r">    ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">776</td>
+                    <td class="num">468</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "3",</pre>
+                      <pre class="language-r">    distinct()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">777</td>
-                    <td class="coverage">3<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">    "1",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">778</td>
-                    <td class="coverage">3<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">    "1",</pre>
+                      <pre class="language-r">  # generate QSALL for subjects with missing dates</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">779</td>
+                    <td class="num">471</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "1"</pre>
+                      <pre class="language-r">  qsall_data2 &lt;- mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">780</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">  )</pre>
+                      <pre class="language-r">    lookup_qs_sub_x2,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">781</td>
+                    <td class="num">473</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df$equation &lt;- list(</pre>
+                      <pre class="language-r">    QSTESTCD = "QSALL",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">782</td>
+                    <td class="num">474</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "new_value = (1 - ((temp_val/var_length)-1)/3)*100.0",</pre>
+                      <pre class="language-r">    QSTEST = "Questionnaires",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">783</td>
+                    <td class="num">475</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "new_value = ((temp_val/var_length-1)/3)*100.0",</pre>
+                      <pre class="language-r">    QSSTAT = "NOT DONE",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">784</td>
+                    <td class="num">476</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "new_value = ((temp_val/var_length-1)/3)*100.0",</pre>
+                      <pre class="language-r">    QSREASND = "SUBJECT REFUSED"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">785</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">    "new_value = (1 - ((temp_val/var_length)-1)/3)*100.0",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">786</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">    "new_value = ((temp_val/var_length-1)/3)*100.0",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">787</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">    "new_value = ((temp_val/var_length-1)/3)*100.0",</pre>
+                      <pre class="language-r">  # add qsall data to original item data</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">788</td>
+                    <td class="num">480</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "new_value = ((temp_val/var_length-1)/3)*100.0",</pre>
+                      <pre class="language-r">  lookup_qs_sub_all &lt;- bind_rows(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">789</td>
+                    <td class="num">481</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "new_value = ((temp_val/var_length-1)/3)*100.0",</pre>
+                      <pre class="language-r">    lookup_qs_sub_x1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">790</td>
+                    <td class="num">482</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "new_value = (1 - ((temp_val/var_length)-1)/3)*100.0",</pre>
+                      <pre class="language-r">    qsall_data1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">791</td>
+                    <td class="num">483</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "new_value = ((temp_val/var_length-1)/6)*100.0",</pre>
+                      <pre class="language-r">    qsall_data2</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">792</td>
-                    <td class="coverage">3<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">    "new_value = ((temp_val/var_length-1)/3)*100.0",</pre>
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <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">793</td>
+                    <td class="num">486</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "new_value = (1 - ((temp_val/var_length)-1)/3)*100.0",</pre>
+                      <pre class="language-r">  qs_all &lt;- lookup_qs_sub_all %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">794</td>
+                    <td class="num">487</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "new_value = ((temp_val/var_length-1)/3)*100.0",</pre>
+                      <pre class="language-r">    arrange(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">795</td>
+                    <td class="num">488</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "new_value = (1 - ((temp_val/var_length)-1)/3)*100.0",</pre>
+                      <pre class="language-r">      STUDYID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">796</td>
+                    <td class="num">489</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "new_value = ((temp_val/var_length-1)/3)*100.0"</pre>
+                      <pre class="language-r">      USUBJID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">797</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">490</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      VISITNUM</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">798</td>
+                    <td class="num">491</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">799</td>
+                    <td class="num">492</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  expect_data &lt;- data.frame(</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">800</td>
+                    <td class="num">493</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAM = expect$PARAM,</pre>
+                      <pre class="language-r">    dplyr::ungroup()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">801</td>
-                    <td class="coverage">3<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">    PARAMCD = expect$PARAMCD,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">802</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">495</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARCAT2 = expect$PARCAT2,</pre>
+                      <pre class="language-r">  # get first and second subject ids</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">803</td>
+                    <td class="num">496</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARCAT1N = expect$PARCAT1N,</pre>
+                      <pre class="language-r">  first_second_subj &lt;- select(qs_all, USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">804</td>
+                    <td class="num">497</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVAL = c(0, 1),</pre>
+                      <pre class="language-r">    distinct() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">805</td>
+                    <td class="num">498</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVALC = c(</pre>
+                      <pre class="language-r">    slice(1:2)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">499</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">806</td>
+                    <td class="num">500</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Not expected to complete questionnaire",</pre>
+                      <pre class="language-r">  qs1 &lt;- filter(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">807</td>
+                    <td class="num">501</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Expected to complete questionnaire"</pre>
+                      <pre class="language-r">    qs_all,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">808</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">502</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    USUBJID %in% first_second_subj$USUBJID</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">809</td>
+                    <td class="num">503</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">810</td>
+                    <td class="num">504</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">811</td>
+                    <td class="num">505</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_saved &lt;- data.frame()</pre>
+                      <pre class="language-r">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">812</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">506</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    qs1 &lt;- mutate_na(ds = qs1, na_vars = na_vars, na_percentage = na_percentage)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">813</td>
-                    <td class="coverage">3<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">  unique_id &lt;- unique(adqlqc1$USUBJID)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">814</td>
+                    <td class="num">508</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">815</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">  for (id in unique_id) {</pre>
+                      <pre class="language-r">  # QSSTAT = NOT DONE</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">816</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">510</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id_data &lt;- adqlqc1[adqlqc1$USUBJID == id, ]</pre>
+                      <pre class="language-r">  qs1 &lt;- mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">817</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">511</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    unique_avisit &lt;- unique(id_data$AVISIT)</pre>
+                      <pre class="language-r">    qs1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">818</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">512</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for (visit in unique_avisit) {</pre>
+                      <pre class="language-r">    QSSTAT = case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">819</td>
-                    <td class="coverage">180<em>x</em></td>
+                    <td class="num">513</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.na(visit)) {</pre>
+                      <pre class="language-r">      is.na(QSORRES) &amp; is.na(QSSTRESC) ~ "NOT DONE"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">820</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">514</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        next</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">821</td>
+                    <td class="num">515</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">822</td>
-                    <td class="coverage">180<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">      id_data_at_visit &lt;- id_data[id_data$AVISIT == visit, ]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">823</td>
+                    <td class="num">517</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # remove first and second subjects from main data</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">824</td>
-                    <td class="coverage">180<em>x</em></td>
+                    <td class="num">518</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (any(id_data_at_visit$PARAMCD != "QSALL")) {</pre>
+                      <pre class="language-r">  qs2 &lt;- anti_join(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">825</td>
-                    <td class="coverage">177<em>x</em></td>
+                    <td class="num">519</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        for (idx in seq_along(df$index)) {</pre>
+                      <pre class="language-r">    qs_all,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">826</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">520</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          previous_names &lt;- df$previous[idx]</pre>
+                      <pre class="language-r">    qs1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">827</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">521</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          current_name &lt;- df$newName[idx]</pre>
+                      <pre class="language-r">    by = c("USUBJID")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">828</td>
-                    <td class="coverage">2655<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">522</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          current_name_label &lt;- df$newNamelabel[idx]</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">829</td>
-                    <td class="coverage">2655<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">523</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          current_name_category &lt;- df$newNameCategory[idx]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">830</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">524</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          eqn &lt;- df$equation[idx]</pre>
+                      <pre class="language-r">  final_qs &lt;- rbind(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">831</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">525</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          temp_val &lt;- 0</pre>
+                      <pre class="language-r">    qs1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">832</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">526</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          var_length &lt;- 0</pre>
+                      <pre class="language-r">    qs2</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">527</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">833</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">528</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          for (param_name in previous_names[[1]]) {</pre>
+                      <pre class="language-r">    group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">834</td>
-                    <td class="coverage">5310<em>x</em></td>
+                    <td class="num">529</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (param_name %in% id_data_at_visit$PARAMCD) { ####</pre>
+                      <pre class="language-r">    dplyr::mutate(QSSEQ = row_number()) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">835</td>
-                    <td class="coverage">5310<em>x</em></td>
+                    <td class="num">530</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              current_val &lt;- as.numeric(as.character(id_data_at_visit$AVAL[id_data_at_visit$PARAMCD == param_name]))</pre>
+                      <pre class="language-r">    arrange(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">836</td>
-                    <td class="coverage">5310<em>x</em></td>
+                    <td class="num">531</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (!is.na(current_val)) {</pre>
+                      <pre class="language-r">      STUDYID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">837</td>
-                    <td class="coverage">5094<em>x</em></td>
+                    <td class="num">532</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                temp_val &lt;- temp_val + current_val ###</pre>
+                      <pre class="language-r">      USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">838</td>
-                    <td class="coverage">5094<em>x</em></td>
+                    <td class="num">533</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                var_length &lt;- var_length + 1</pre>
+                      <pre class="language-r">      VISITNUM</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">839</td>
+                    <td class="num">534</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">840</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">535</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } # if</pre>
+                      <pre class="language-r">    ungroup()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">841</td>
+                    <td class="num">536</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } # param_name</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">842</td>
+                    <td class="num">537</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # eval</pre>
+                      <pre class="language-r">  # ordered variables as per gdsr</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">843</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">538</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (var_length &gt;= as.numeric(df$num_param[idx])) {</pre>
+                      <pre class="language-r">  final_qs &lt;- select(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">844</td>
-                    <td class="coverage">2604<em>x</em></td>
+                    <td class="num">539</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            eval(parse(text = eqn)) #####</pre>
+                      <pre class="language-r">    final_qs,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">845</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">540</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">    STUDYID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">846</td>
-                    <td class="coverage">51<em>x</em></td>
+                    <td class="num">541</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            new_value &lt;- NA</pre>
+                      <pre class="language-r">    USUBJID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">847</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">542</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">    QSSEQ,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">848</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">543</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    QSTESTCD,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">849</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">544</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          new_data_row &lt;- data.frame(</pre>
+                      <pre class="language-r">    QSTEST,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">850</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">545</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            study = str_extract(id, "[A-Z]+[0-9]+"),</pre>
+                      <pre class="language-r">    QSCAT,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">851</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">546</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            id,</pre>
+                      <pre class="language-r">    QSSCAT,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">852</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">547</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            visit,</pre>
+                      <pre class="language-r">    QSORRES,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">853</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">548</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            id_data_at_visit$AVISITN[1],</pre>
+                      <pre class="language-r">    QSORRESU,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">854</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">549</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            id_data_at_visit$QSDTC[1],</pre>
+                      <pre class="language-r">    QSSTRESC,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">855</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">550</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            current_name_category,</pre>
+                      <pre class="language-r">    QSSTRESU,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">856</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">551</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            current_name_label,</pre>
+                      <pre class="language-r">    QSSTAT,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">857</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">552</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            current_name,</pre>
+                      <pre class="language-r">    QSREASND,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">858</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">553</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            new_value,</pre>
+                      <pre class="language-r">    VISITNUM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">859</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">554</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            NA,</pre>
+                      <pre class="language-r">    VISIT,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">860</td>
-                    <td class="coverage">2655<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            stringsAsFactors = FALSE</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">861</td>
-                    <td class="coverage"></td>
+                    <td class="num">555</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    QSDTC,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">862</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">556</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          colnames(new_data_row) &lt;- c(</pre>
+                      <pre class="language-r">    QSEVLINT</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">863</td>
-                    <td class="coverage">2655<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">            "STUDYID", "USUBJID", "AVISIT", "AVISITN",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">864</td>
-                    <td class="coverage">2655<em>x</em></td>
+                    <td class="num">558</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "ADTM", "PARCAT2", "PARAM", "PARAMCD",</pre>
+                      <pre class="language-r">  return(final_qs)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">865</td>
-                    <td class="coverage">2655<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">            "AVAL", "AVALC"</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">866</td>
+                    <td class="num">560</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ) ###</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">867</td>
-                    <td class="coverage">2655<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">561</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          df_saved &lt;- rbind(df_saved, new_data_row) #####</pre>
+                      <pre class="language-r">#' @describeIn h_adqlqc Function for generating random dates between 2 dates</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">868</td>
+                    <td class="num">562</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } # idx</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">869</td>
+                    <td class="num">563</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @param from (`datetime vector`)\cr Start date/times.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">870</td>
+                    <td class="num">564</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # add expect data</pre>
+                      <pre class="language-r">#' @param to (`datetime vector`)\cr End date/times.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">871</td>
-                    <td class="coverage">180<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">      expect_value &lt;- sample(expect_data$AVAL, 1, prob = c(0.10, 0.90))</pre>
+                      <pre class="language-r">#' @param visit_id (`vector`)\cr Visit identifiers.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">872</td>
-                    <td class="coverage">180<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">566</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      expect_valuec &lt;- expect_data$AVALC[expect_data$AVAL == expect_value]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">873</td>
+                    <td class="num">567</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return Data frame with new randomly generated dates variable.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">874</td>
-                    <td class="coverage">180<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">      new_data_row &lt;- data.frame(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">875</td>
-                    <td class="coverage">180<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">        study = str_extract(id, "[A-Z]+[0-9]+"),</pre>
+                      <pre class="language-r">get_random_dates_between &lt;- function(from, to, visit_id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">876</td>
-                    <td class="coverage">180<em>x</em></td>
+                    <td class="num">570</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id,</pre>
+                      <pre class="language-r">  min_date &lt;- min(lubridate::as_datetime(from), na.rm = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">877</td>
-                    <td class="coverage">180<em>x</em></td>
+                    <td class="num">571</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        visit,</pre>
+                      <pre class="language-r">  max_date &lt;- max(lubridate::as_datetime(to), na.rm = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">878</td>
-                    <td class="coverage">180<em>x</em></td>
+                    <td class="num">572</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id_data_at_visit$AVISITN[1],</pre>
+                      <pre class="language-r">  date_seq &lt;- seq(from = min_date + lubridate::days(1), to = max_date, by = "28 days")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">879</td>
-                    <td class="coverage">180<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">        datetime = NA,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">880</td>
-                    <td class="coverage">180<em>x</em></td>
+                    <td class="num">574</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        expect_data$PARCAT2[1],</pre>
+                      <pre class="language-r">  visit_ids &lt;- unique(visit_id)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">881</td>
-                    <td class="coverage">180<em>x</em></td>
+                    <td class="num">575</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        expect_data$PARAM[1],</pre>
+                      <pre class="language-r">  out &lt;- sapply(visit_ids, simplify = TRUE, USE.NAMES = TRUE, FUN = function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">882</td>
-                    <td class="coverage">180<em>x</em></td>
+                    <td class="num">576</td>
+                    <td class="coverage">177<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        expect_data$PARAMCD[1],</pre>
+                      <pre class="language-r">    if (x == -1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">883</td>
-                    <td class="coverage">180<em>x</em></td>
+                    <td class="num">577</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        expect_value,</pre>
+                      <pre class="language-r">      random_days_to_subtract &lt;- lubridate::days(sample(1:10, size = 1))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">884</td>
-                    <td class="coverage">180<em>x</em></td>
+                    <td class="num">578</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        expect_valuec,</pre>
+                      <pre class="language-r">      min_date - random_days_to_subtract</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">885</td>
-                    <td class="coverage">180<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        stringsAsFactors = FALSE</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">886</td>
-                    <td class="coverage"></td>
+                    <td class="num">579</td>
+                    <td class="coverage">147<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    } else if (x == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">887</td>
-                    <td class="coverage">180<em>x</em></td>
+                    <td class="num">580</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      colnames(new_data_row) &lt;- c(</pre>
+                      <pre class="language-r">      min_date</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">888</td>
-                    <td class="coverage">180<em>x</em></td>
+                    <td class="num">581</td>
+                    <td class="coverage">117<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "STUDYID", "USUBJID", "AVISIT", "AVISITN",</pre>
+                      <pre class="language-r">    } else if (x &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">889</td>
-                    <td class="coverage">180<em>x</em></td>
+                    <td class="num">582</td>
+                    <td class="coverage">117<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "ADTM", "PARCAT2", "PARAM", "PARAMCD", "AVAL",</pre>
+                      <pre class="language-r">      if (x %in% seq_along(date_seq)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">890</td>
-                    <td class="coverage">180<em>x</em></td>
+                    <td class="num">583</td>
+                    <td class="coverage">117<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "AVALC"</pre>
+                      <pre class="language-r">        date_seq[[x]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">891</td>
+                    <td class="num">584</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">892</td>
-                    <td class="coverage">180<em>x</em></td>
+                    <td class="num">585</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df_saved &lt;- rbind(df_saved, new_data_row)</pre>
+                      <pre class="language-r">        NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">893</td>
+                    <td class="num">586</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } # visit</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">894</td>
+                    <td class="num">587</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } # id</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">895</td>
+                    <td class="num">588</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">896</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">589</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_saved1 &lt;- left_join(</pre>
+                      <pre class="language-r">  lubridate::as_datetime(out[match(visit_id, visit_ids)])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">897</td>
-                    <td class="coverage">3<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">    df_saved,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">898</td>
-                    <td class="coverage">3<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">    ghs_scales,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">899</td>
-                    <td class="coverage">3<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">    by = c(</pre>
+                      <pre class="language-r">#' @describeIn h_adqlqc Prepare ADaM ADQLQC data, adding PARAMCD to SDTM QS data</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">900</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">593</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "PARAM",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">901</td>
-                    <td class="coverage">3<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">      "PARAMCD",</pre>
+                      <pre class="language-r">#' @param df (`data.frame`)\cr SDTM QS dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">902</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">595</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "PARCAT2"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">903</td>
+                    <td class="num">596</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @return `data.frame`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">904</td>
+                    <td class="num">597</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">905</td>
-                    <td class="coverage">3<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">    mutate(</pre>
+                      <pre class="language-r">prep_adqlqc &lt;- function(df) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">906</td>
-                    <td class="coverage">3<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">      AVALC = ifelse(is.na(AVALC), as.character(AVAL), AVALC),</pre>
+                      <pre class="language-r">  # create PARAMCD from QSTESTCD</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">907</td>
+                    <td class="num">600</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARCAT1 = ifelse(PARAMCD == "EX028", expect$PARCAT1, PARCAT1),</pre>
+                      <pre class="language-r">  adqlqc &lt;- dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">908</td>
+                    <td class="num">601</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARCAT1N = ifelse(PARAMCD == "EX028", expect$PARCAT1N, PARCAT1N)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">909</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">910</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="covered">
-                    <td class="num">911</td>
+                    <td class="num">602</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqlqc_tmp &lt;- bind_rows(adqlqc1, df_saved1) %&gt;%</pre>
+                      <pre class="language-r">    PARAMCD = case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">912</td>
+                    <td class="num">603</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    arrange(</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0101" ~ "QS02801",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">913</td>
+                    <td class="num">604</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID,</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0102" ~ "QS02802",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">914</td>
+                    <td class="num">605</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISITN,</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0103" ~ "QS02803",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">915</td>
+                    <td class="num">606</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSTESTCD</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">916</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0104" ~ "QS02804",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">917</td>
+                    <td class="num">607</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(adqlqc_tmp)</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0105" ~ "QS02805",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">918</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">608</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0106" ~ "QS02806",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">919</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">609</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0107" ~ "QS02807",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">920</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">610</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_adqlqc Calculate Change from Baseline Category 1</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0108" ~ "QS02808",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">921</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">611</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0109" ~ "QS02809",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">922</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">612</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dataset (`data.frame`)\cr ADaM dataset.</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0110" ~ "QS02810",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">923</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">613</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0111" ~ "QS02811",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">924</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">614</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `data.frame`</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0112" ~ "QS02812",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">925</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">615</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0113" ~ "QS02813",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">926</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">616</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">derv_chgcat1 &lt;- function(dataset) {</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0114" ~ "QS02814",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">927</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">617</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # derivation of CHGCAT1</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0115" ~ "QS02815",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">928</td>
+                    <td class="num">618</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  check_vars &lt;- c("PARCAT2", "CHG")</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0116" ~ "QS02816",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">929</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">619</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0117" ~ "QS02817",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">930</td>
+                    <td class="num">620</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (all(check_vars %in% names(dataset))) {</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0118" ~ "QS02818",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">931</td>
+                    <td class="num">621</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0119" ~ "QS02819",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">932</td>
+                    <td class="num">622</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARCAT2 == "Symptom Scales" &amp; !is.na(dataset$CHG) &amp; dataset$CHG &lt;= -10,</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0120" ~ "QS02820",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">933</td>
+                    <td class="num">623</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Improved", ""</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0121" ~ "QS02821",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">934</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">624</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0122" ~ "QS02822",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">935</td>
+                    <td class="num">625</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0123" ~ "QS02823",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">936</td>
+                    <td class="num">626</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARCAT2 == "Symptom Scales" &amp; !is.na(dataset$CHG) &amp; dataset$CHG &gt;= 10,</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0124" ~ "QS02824",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">937</td>
+                    <td class="num">627</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Worsened", dataset$CHGCAT1</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0125" ~ "QS02825",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">938</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">628</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0126" ~ "QS02826",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">939</td>
+                    <td class="num">629</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0127" ~ "QS02827",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">940</td>
+                    <td class="num">630</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARCAT2 == "Symptom Scales" &amp;</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0128" ~ "QS02828",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">941</td>
+                    <td class="num">631</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        !is.na(dataset$CHG) &amp; dataset$CHG &gt; -10 &amp;</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0129" ~ "QS02829",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">942</td>
+                    <td class="num">632</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dataset$CHG &lt; 10,</pre>
+                      <pre class="language-r">      QSTESTCD == "EOR0130" ~ "QS02830",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">943</td>
+                    <td class="num">633</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "No change", dataset$CHGCAT1</pre>
+                      <pre class="language-r">      TRUE ~ QSTESTCD</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">944</td>
+                    <td class="num">634</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">945</td>
+                    <td class="num">635</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">946</td>
+                    <td class="num">636</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">  load(system.file("sysdata.rda", package = "random.cdisc.data"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">947</td>
+                    <td class="num">637</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARCAT2 %in% c("Functional Scales", "Global Health Status") &amp;</pre>
+                      <pre class="language-r">  adqlqc1 &lt;- dplyr::left_join(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">948</td>
+                    <td class="num">638</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        !is.na(dataset$CHG) &amp; dataset$CHG &gt;= 10,</pre>
+                      <pre class="language-r">    adqlqc,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">949</td>
+                    <td class="num">639</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Improved", dataset$CHGCAT1</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">950</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    gdsr_param_adqlqc,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">951</td>
+                    <td class="num">640</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    by = "PARAMCD"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">952</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">641</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARCAT2 %in% c("Functional Scales", "Global Health Status") &amp;</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">953</td>
+                    <td class="num">642</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        !is.na(dataset$CHG) &amp; dataset$CHG &lt;= -10,</pre>
+                      <pre class="language-r">  return(adqlqc1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">954</td>
-                    <td class="coverage">3<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">      "Worsened", dataset$CHGCAT1</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">955</td>
+                    <td class="num">644</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">956</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">645</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">#' @describeIn h_adqlqc Scale calculation for ADQLQC data</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">957</td>
-                    <td class="coverage">3<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">      dataset$PARCAT2 %in% c("Functional Scales", "Global Health Status") &amp;</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">958</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">647</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        !is.na(dataset$CHG) &amp;</pre>
+                      <pre class="language-r">#' @param adqlqc1 (`data.frame`)\cr Prepared data generated from the [prep_adqlqc()] function.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">959</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">648</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dataset$CHG &gt; -10 &amp; dataset$CHG &lt; 10,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">960</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">649</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "No change", dataset$CHGCAT1</pre>
+                      <pre class="language-r">#' @return `data.frame`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">961</td>
+                    <td class="num">650</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">962</td>
+                    <td class="num">651</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">calc_scales &lt;- function(adqlqc1) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">963</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">652</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">  # Prep scale data ---------------------------------------------------------</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">964</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">653</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == 6,</pre>
+                      <pre class="language-r">  # parcat2 = scales or global health status</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">965</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">654</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Improved by six levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">  # global health status/scales data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">966</td>
+                    <td class="num">655</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  # QSTESTCD: EOR0131 to EOR0145 (global health status and scales)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">967</td>
+                    <td class="num">656</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">  load(system.file("sysdata.rda", package = "random.cdisc.data"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">968</td>
+                    <td class="num">657</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == 5,</pre>
+                      <pre class="language-r">  eortc_qlq_c30_sub &lt;- filter(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">969</td>
+                    <td class="num">658</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Improved by five levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    eortc_qlq_c30,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">659</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    !(as.numeric(str_extract(QSTESTCD, "\\d+$")) &gt;= 101 &amp; as.numeric(str_extract(QSTESTCD, "\\d+$")) &lt;= 130)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">970</td>
+                    <td class="num">660</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">971</td>
+                    <td class="num">661</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">972</td>
+                    <td class="num">662</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == 4,</pre>
+                      <pre class="language-r">      PARAMCD = case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">973</td>
+                    <td class="num">663</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Improved by four levels", dataset$CHGCAT1</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">974</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        QSTESTCD == "EOR0131" ~ "QS028QL2",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">975</td>
+                    <td class="num">664</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">        QSTESTCD == "EOR0132" ~ "QS028PF2",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">976</td>
+                    <td class="num">665</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == 3,</pre>
+                      <pre class="language-r">        QSTESTCD == "EOR0133" ~ "QS028RF2",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">977</td>
+                    <td class="num">666</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Improved by three levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">        QSTESTCD == "EOR0134" ~ "QS028EF",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">978</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">667</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        QSTESTCD == "EOR0135" ~ "QS028CF",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">979</td>
+                    <td class="num">668</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">        QSTESTCD == "EOR0136" ~ "QS028SF",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">980</td>
+                    <td class="num">669</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == 2,</pre>
+                      <pre class="language-r">        QSTESTCD == "EOR0137" ~ "QS028FA",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">981</td>
+                    <td class="num">670</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Improved by two levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">        QSTESTCD == "EOR0138" ~ "QS028NV",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">982</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">671</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        QSTESTCD == "EOR0139" ~ "QS028PA",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">983</td>
+                    <td class="num">672</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">        QSTESTCD == "EOR0140" ~ "QS028DY",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">984</td>
+                    <td class="num">673</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == 1,</pre>
+                      <pre class="language-r">        QSTESTCD == "EOR0141" ~ "QS028SL",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">985</td>
+                    <td class="num">674</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Improved by one level", dataset$CHGCAT1</pre>
+                      <pre class="language-r">        QSTESTCD == "EOR0142" ~ "QS028AP",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">986</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">675</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        QSTESTCD == "EOR0143" ~ "QS028CO",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">987</td>
+                    <td class="num">676</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">        QSTESTCD == "EOR0144" ~ "QS028DI",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">988</td>
+                    <td class="num">677</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == 0,</pre>
+                      <pre class="language-r">        QSTESTCD == "EOR0145" ~ "QS028FI",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">989</td>
+                    <td class="num">678</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "No change", dataset$CHGCAT1</pre>
+                      <pre class="language-r">        TRUE ~ QSTESTCD</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">990</td>
+                    <td class="num">679</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">991</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">680</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">992</td>
+                    <td class="num">681</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == -1,</pre>
+                      <pre class="language-r">    select(-publication_name)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">993</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">682</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Worsened by one level", dataset$CHGCAT1</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">994</td>
+                    <td class="num">683</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  # ADaM global health status and scales from gdsr</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">995</td>
+                    <td class="num">684</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">  gdsr_param_adqlqc &lt;- gdsr_param_adqlqc %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">996</td>
+                    <td class="num">685</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == -2,</pre>
+                      <pre class="language-r">    filter(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">997</td>
+                    <td class="num">686</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Worsened by two levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">      !str_detect(PARCAT2, "Original Items|Completion")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">998</td>
+                    <td class="num">687</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">999</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">688</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1000</td>
+                    <td class="num">689</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == -3,</pre>
+                      <pre class="language-r">  ghs_scales &lt;- left_join(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1001</td>
+                    <td class="num">690</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Worsened by three levels", dataset$CHGCAT1</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1002</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    eortc_qlq_c30_sub,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1003</td>
+                    <td class="num">691</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    gdsr_param_adqlqc,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1004</td>
+                    <td class="num">692</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == -4,</pre>
+                      <pre class="language-r">    by = "PARAMCD"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1005</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">693</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Worsened by four levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1006</td>
+                    <td class="num">694</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  # scale data</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1007</td>
+                    <td class="num">695</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">  df &lt;- data.frame(index = seq_len(nrow(ghs_scales)))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1008</td>
+                    <td class="num">696</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == -5,</pre>
+                      <pre class="language-r">  df$previous &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1009</td>
+                    <td class="num">697</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Worsened by five levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    c("QS02826", "QS02827"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1010</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">698</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    c("QS02811"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1011</td>
+                    <td class="num">699</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    c("QS02810", "QS02812", "QS02818"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1012</td>
+                    <td class="num">700</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == -6,</pre>
+                      <pre class="language-r">    c("QS02806", "QS02807"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1013</td>
+                    <td class="num">701</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Worsened by six levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    c("QS02814", "QS02815"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1014</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">702</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    c("QS02808"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1015</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">703</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    c("QS02817"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1016</td>
+                    <td class="num">704</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    c("QS02816"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1017</td>
+                    <td class="num">705</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02802", "QS02806") &amp; dataset$CHG == -3,</pre>
+                      <pre class="language-r">    c("QS02821", "QS02822", "QS02823", "QS02824"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1018</td>
+                    <td class="num">706</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Improved by three levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    c("QS02829", "QS02830"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1019</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">707</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    c("QS02813"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1020</td>
+                    <td class="num">708</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    c("QS02801", "QS02802", "QS02803", "QS02804", "QS02805"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1021</td>
+                    <td class="num">709</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02802", "QS02806") &amp; dataset$CHG == -2,</pre>
+                      <pre class="language-r">    c("QS02809", "QS02819"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1022</td>
+                    <td class="num">710</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Improved by two levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    c("QS02820", "QS02825"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">711</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    c("QS02828")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1023</td>
+                    <td class="num">712</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1024</td>
+                    <td class="num">713</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">  df$newName &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1025</td>
+                    <td class="num">714</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02802", "QS02806") &amp; dataset$CHG == -1,</pre>
+                      <pre class="language-r">    "QS028SF",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1026</td>
+                    <td class="num">715</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Improved by one level", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    "QS028SL",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1027</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">716</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    "QS028FA",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1028</td>
+                    <td class="num">717</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    "QS028RF2",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1029</td>
+                    <td class="num">718</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02802", "QS02806") &amp; dataset$CHG == 0,</pre>
+                      <pre class="language-r">    "QS028NV",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1030</td>
+                    <td class="num">719</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "No change", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    "QS028DY",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1031</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">720</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    "QS028DI",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1032</td>
+                    <td class="num">721</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    "QS028CO",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1033</td>
+                    <td class="num">722</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02802", "QS02806") &amp; dataset$CHG == 1,</pre>
+                      <pre class="language-r">    "QS028EF",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1034</td>
+                    <td class="num">723</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Worsened by one level", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    "QS028QL2",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1035</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">724</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    "QS028AP",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1036</td>
+                    <td class="num">725</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    "QS028PF2",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1037</td>
+                    <td class="num">726</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02802", "QS02806") &amp; dataset$CHG == 2,</pre>
+                      <pre class="language-r">    "QS028PA",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1038</td>
+                    <td class="num">727</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Worsened by two levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    "QS028CF",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">728</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    "QS028FI"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1039</td>
+                    <td class="num">729</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1040</td>
+                    <td class="num">730</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">  df$newNamelabel &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1041</td>
+                    <td class="num">731</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02802", "QS02806") &amp; dataset$CHG == 3,</pre>
+                      <pre class="language-r">    "EORTC QLQ-C30: Social functioning",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1042</td>
+                    <td class="num">732</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Worsened by three levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    "EORTC QLQ-C30: Insomnia",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1043</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">733</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    "EORTC QLQ-C30: Fatigue",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1044</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">734</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    "EORTC QLQ-C30: Role functioning (revised)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1045</td>
+                    <td class="num">735</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    "EORTC QLQ-C30: Nausea and vomiting",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1046</td>
+                    <td class="num">736</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD == "QS02801" &amp; dataset$CHG == -3,</pre>
+                      <pre class="language-r">    "EORTC QLQ-C30: Dyspnoea",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1047</td>
+                    <td class="num">737</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Improved by three levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    "EORTC QLQ-C30: Diarrhoea",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1048</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">738</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    "EORTC QLQ-C30: Constipation",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1049</td>
+                    <td class="num">739</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    "EORTC QLQ-C30: Emotional functioning",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1050</td>
+                    <td class="num">740</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD == "QS02801" &amp; dataset$CHG == -2,</pre>
+                      <pre class="language-r">    "EORTC QLQ-C30: Global health status/QoL (revised)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1051</td>
+                    <td class="num">741</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Improved by two levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    "EORTC QLQ-C30: Appetite loss",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1052</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">742</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    "EORTC QLQ-C30: Physical functioning (revised)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1053</td>
+                    <td class="num">743</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    "EORTC QLQ-C30: Pain",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1054</td>
+                    <td class="num">744</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD == "QS02801" &amp; dataset$CHG == -1,</pre>
+                      <pre class="language-r">    "EORTC QLQ-C30: Cognitive functioning",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1055</td>
+                    <td class="num">745</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Improved by one level", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    "EORTC QLQ-C30: Financial difficulties"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1056</td>
+                    <td class="num">746</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1057</td>
+                    <td class="num">747</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">  df$newNameCategory &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1058</td>
+                    <td class="num">748</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD == "QS02801" &amp; dataset$CHG == 0,</pre>
+                      <pre class="language-r">    "Functional Scales",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1059</td>
+                    <td class="num">749</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "No changed", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    "Symptom Scales",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1060</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">750</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    "Symptom Scales",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1061</td>
+                    <td class="num">751</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    "Functional Scales",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1062</td>
+                    <td class="num">752</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD == "QS02801" &amp; dataset$CHG == 1,</pre>
+                      <pre class="language-r">    "Symptom Scales",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1063</td>
+                    <td class="num">753</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Worsened by one level", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    "Symptom Scales",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1064</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">754</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    "Symptom Scales",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1065</td>
+                    <td class="num">755</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    "Symptom Scales",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1066</td>
+                    <td class="num">756</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD == "QS02801" &amp; dataset$CHG == 2,</pre>
+                      <pre class="language-r">    "Functional Scales",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1067</td>
+                    <td class="num">757</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Worsened by two levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    "Global Health Status",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1068</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">758</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    "Symptom Scales",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1069</td>
+                    <td class="num">759</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    "Functional Scales",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1070</td>
+                    <td class="num">760</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD == "QS02801" &amp; dataset$CHG == 3,</pre>
+                      <pre class="language-r">    "Symptom Scales",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1071</td>
+                    <td class="num">761</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Worsened by three levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    "Functional Scales",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1072</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">762</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    "Symptom Scales"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1073</td>
+                    <td class="num">763</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1074</td>
+                    <td class="num">764</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paramcd_vec &lt;- c(</pre>
+                      <pre class="language-r">  df$num_param &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1075</td>
+                    <td class="num">765</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "QS02803", "QS02804", "QS02805", "QS02807", "QS02808", "QS02809", "QS02810",</pre>
+                      <pre class="language-r">    "1",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1076</td>
+                    <td class="num">766</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "QS02811", "QS02812", "QS02813", "QS02814", "QS02815", "QS02816", "QS02817",</pre>
+                      <pre class="language-r">    "1",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1077</td>
+                    <td class="num">767</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "QS02818", "QS02819", "QS02820", "QS02821", "QS02822", "QS02823", "QS02824",</pre>
+                      <pre class="language-r">    "2",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1078</td>
+                    <td class="num">768</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "QS02825", "QS02826", "QS02827", "QS02828"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1079</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1080</td>
-                    <td class="coverage"></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">1081</td>
+                    <td class="num">769</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    "1",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1082</td>
+                    <td class="num">770</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% paramcd_vec &amp; dataset$CHG == -3,</pre>
+                      <pre class="language-r">    "1",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1083</td>
+                    <td class="num">771</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Improved by three levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    "1",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1084</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">772</td>
+                    <td class="coverage">3<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">1085</td>
+                    <td class="num">773</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    "2",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1086</td>
+                    <td class="num">774</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% paramcd_vec &amp; dataset$CHG == -2,</pre>
+                      <pre class="language-r">    "1",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1087</td>
+                    <td class="num">775</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Improved by two levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    "1",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1088</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">776</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    "3",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1089</td>
+                    <td class="num">777</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    "1",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1090</td>
+                    <td class="num">778</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% paramcd_vec &amp; dataset$CHG == -1,</pre>
+                      <pre class="language-r">    "1",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1091</td>
+                    <td class="num">779</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Improved by one level", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    "1"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1092</td>
+                    <td class="num">780</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1093</td>
+                    <td class="num">781</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">  df$equation &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1094</td>
+                    <td class="num">782</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% paramcd_vec &amp; dataset$CHG == 0,</pre>
+                      <pre class="language-r">    "new_value = (1 - ((temp_val/var_length)-1)/3)*100.0",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1095</td>
+                    <td class="num">783</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "No change", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    "new_value = ((temp_val/var_length-1)/3)*100.0",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1096</td>
-                    <td class="coverage"></td>
+                  <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">    )</pre>
+                      <pre class="language-r">    "new_value = ((temp_val/var_length-1)/3)*100.0",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1097</td>
+                    <td class="num">785</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    "new_value = (1 - ((temp_val/var_length)-1)/3)*100.0",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1098</td>
+                    <td class="num">786</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% paramcd_vec &amp; dataset$CHG == 1,</pre>
+                      <pre class="language-r">    "new_value = ((temp_val/var_length-1)/3)*100.0",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1099</td>
+                    <td class="num">787</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Worsened by one level", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    "new_value = ((temp_val/var_length-1)/3)*100.0",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1100</td>
-                    <td class="coverage"></td>
+                  <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">    )</pre>
+                      <pre class="language-r">    "new_value = ((temp_val/var_length-1)/3)*100.0",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1101</td>
+                    <td class="num">789</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    "new_value = ((temp_val/var_length-1)/3)*100.0",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1102</td>
+                    <td class="num">790</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% paramcd_vec &amp; dataset$CHG == 2,</pre>
+                      <pre class="language-r">    "new_value = (1 - ((temp_val/var_length)-1)/3)*100.0",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1103</td>
+                    <td class="num">791</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Worsened by two levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    "new_value = ((temp_val/var_length-1)/6)*100.0",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1104</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">792</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    "new_value = ((temp_val/var_length-1)/3)*100.0",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1105</td>
+                    <td class="num">793</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
+                      <pre class="language-r">    "new_value = (1 - ((temp_val/var_length)-1)/3)*100.0",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1106</td>
+                    <td class="num">794</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataset$PARAMCD %in% paramcd_vec &amp; dataset$CHG == 3,</pre>
+                      <pre class="language-r">    "new_value = ((temp_val/var_length-1)/3)*100.0",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1107</td>
+                    <td class="num">795</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Worsened by three levels", dataset$CHGCAT1</pre>
+                      <pre class="language-r">    "new_value = (1 - ((temp_val/var_length)-1)/3)*100.0",</pre>
+                    </td>
+                  </tr>
+                  <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">    "new_value = ((temp_val/var_length-1)/3)*100.0"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1108</td>
+                    <td class="num">797</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1109</td>
+                    <td class="num">798</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1110</td>
+                    <td class="num">799</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(dataset)</pre>
+                      <pre class="language-r">  expect_data &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1111</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">800</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    PARAM = expect$PARAM,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1112</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">801</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    collapse_vars &lt;- paste(check_vars, collapse = ", ")</pre>
+                      <pre class="language-r">    PARAMCD = expect$PARAMCD,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1113</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">802</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(sprintf(</pre>
+                      <pre class="language-r">    PARCAT2 = expect$PARCAT2,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1114</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">803</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "%s: one or both variables is/are missing, needed for derivation",</pre>
+                      <pre class="language-r">    PARCAT1N = expect$PARCAT1N,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1115</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">804</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      collapse_vars</pre>
+                      <pre class="language-r">    AVAL = c(0, 1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1116</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">805</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">    AVALC = c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1117</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">806</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      "Not expected to complete questionnaire",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1118</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">807</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      "Expected to complete questionnaire"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1119</td>
+                    <td class="num">808</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1120</td>
+                    <td class="num">809</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_adqlqc Completion/Compliance Data Calculation</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1121</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="never">
-                    <td class="num">1122</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">811</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dataset (`data.frame`)\cr Dataset.</pre>
+                      <pre class="language-r">  df_saved &lt;- data.frame()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1123</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">1124</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">813</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `data.frame`</pre>
+                      <pre class="language-r">  unique_id &lt;- unique(adqlqc1$USUBJID)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1125</td>
+                    <td class="num">814</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">1126</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">815</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">comp_derv &lt;- function(dataset, percent, number) {</pre>
+                      <pre class="language-r">  for (id in unique_id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1127</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">816</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # original items data</pre>
+                      <pre class="language-r">    id_data &lt;- adqlqc1[adqlqc1$USUBJID == id, ]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1128</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">817</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  orig_data &lt;- filter(</pre>
+                      <pre class="language-r">    unique_avisit &lt;- unique(id_data$AVISIT)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1129</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">818</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset,</pre>
+                      <pre class="language-r">    for (visit in unique_avisit) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1130</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">819</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARCAT2 == "Original Items"</pre>
+                      <pre class="language-r">      if (is.na(visit)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1131</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">  )</pre>
+                      <pre class="language-r">        next</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1132</td>
+                    <td class="num">821</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # total number of questionnaires</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1133</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">822</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  comp_count_all &lt;- select(</pre>
+                      <pre class="language-r">      id_data_at_visit &lt;- id_data[id_data$AVISIT == visit, ]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1134</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">823</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    orig_data,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1135</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">824</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD</pre>
+                      <pre class="language-r">      if (any(id_data_at_visit$PARAMCD != "QSALL")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1136</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">825</td>
+                    <td class="coverage">177<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
+                      <pre class="language-r">        for (idx in seq_along(df$index)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1137</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">826</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    distinct() %&gt;%</pre>
+                      <pre class="language-r">          previous_names &lt;- df$previous[idx]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1138</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">827</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    count()</pre>
+                      <pre class="language-r">          current_name &lt;- df$newName[idx]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1139</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">828</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  comp_count_all &lt;- comp_count_all$n</pre>
+                      <pre class="language-r">          current_name_label &lt;- df$newNamelabel[idx]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1140</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">829</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # original items data count of questions answered</pre>
+                      <pre class="language-r">          current_name_category &lt;- df$newNameCategory[idx]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1141</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">830</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  orig_data_summ &lt;- group_by(</pre>
+                      <pre class="language-r">          eqn &lt;- df$equation[idx]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1142</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">831</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    orig_data,</pre>
+                      <pre class="language-r">          temp_val &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1143</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">832</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID,</pre>
+                      <pre class="language-r">          var_length &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1144</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">833</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID,</pre>
+                      <pre class="language-r">          for (param_name in previous_names[[1]]) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1145</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">834</td>
+                    <td class="coverage">5310<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARCAT1,</pre>
+                      <pre class="language-r">            if (param_name %in% id_data_at_visit$PARAMCD) { ####</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1146</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">835</td>
+                    <td class="coverage">5310<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVISIT,</pre>
+                      <pre class="language-r">              current_val &lt;- as.numeric(as.character(id_data_at_visit$AVAL[id_data_at_visit$PARAMCD == param_name]))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1147</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">836</td>
+                    <td class="coverage">5310<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVISITN,</pre>
+                      <pre class="language-r">              if (!is.na(current_val)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1148</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">837</td>
+                    <td class="coverage">5094<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ADTM,</pre>
+                      <pre class="language-r">                temp_val &lt;- temp_val + current_val ###</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1149</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">838</td>
+                    <td class="coverage">5094<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ADY</pre>
+                      <pre class="language-r">                var_length &lt;- var_length + 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1150</td>
+                    <td class="num">839</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">1151</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">840</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    summarise(</pre>
+                      <pre class="language-r">            } # if</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1152</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">841</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      comp_count = sum(!is.na(AVAL)),</pre>
+                      <pre class="language-r">          } # param_name</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">842</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          # eval</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1153</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">843</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      comp_count_all = comp_count_all,</pre>
+                      <pre class="language-r">          if (var_length &gt;= as.numeric(df$num_param[idx])) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1154</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">844</td>
+                    <td class="coverage">2604<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .groups = "drop"</pre>
+                      <pre class="language-r">            eval(parse(text = eqn)) #####</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1155</td>
+                    <td class="num">845</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">1156</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">846</td>
+                    <td class="coverage">51<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mutate(</pre>
+                      <pre class="language-r">            new_value &lt;- NA</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1157</td>
-                    <td class="coverage">3<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">      per_comp = trunc((comp_count / comp_count_all) * 100)</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1158</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">1159</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">849</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # expected data</pre>
+                      <pre class="language-r">          new_data_row &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1160</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">850</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ex028_data &lt;- filter(</pre>
+                      <pre class="language-r">            study = str_extract(id, "[A-Z]+[0-9]+"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1161</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">851</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset,</pre>
+                      <pre class="language-r">            id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1162</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">852</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == "EX028",</pre>
+                      <pre class="language-r">            visit,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1163</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">853</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVAL == 1</pre>
+                      <pre class="language-r">            id_data_at_visit$AVISITN[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1164</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">854</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
+                      <pre class="language-r">            id_data_at_visit$QSDTC[1],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1165</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">855</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    select(</pre>
+                      <pre class="language-r">            current_name_category,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1166</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">856</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID,</pre>
+                      <pre class="language-r">            current_name_label,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1167</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">857</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID,</pre>
+                      <pre class="language-r">            current_name,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1168</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">858</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARCAT1,</pre>
+                      <pre class="language-r">            new_value,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1169</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">859</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISIT,</pre>
+                      <pre class="language-r">            NA,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1170</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">860</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISITN,</pre>
+                      <pre class="language-r">            stringsAsFactors = FALSE</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">861</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1171</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">862</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ADTM,</pre>
+                      <pre class="language-r">          colnames(new_data_row) &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1172</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">863</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ADY,</pre>
+                      <pre class="language-r">            "STUDYID", "USUBJID", "AVISIT", "AVISITN",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1173</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">864</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL_ex028 = AVAL</pre>
+                      <pre class="language-r">            "ADTM", "PARCAT2", "PARAM", "PARAMCD",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">865</td>
+                    <td class="coverage">2655<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            "AVAL", "AVALC"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1174</td>
+                    <td class="num">866</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">1175</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">867</td>
+                    <td class="coverage">2655<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mutate(</pre>
+                      <pre class="language-r">          df_saved &lt;- rbind(df_saved, new_data_row) #####</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1176</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">868</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      comp_count_all = comp_count_all</pre>
+                      <pre class="language-r">        } # idx</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1177</td>
+                    <td class="num">869</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1178</td>
+                    <td class="num">870</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      # add expect data</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1179</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">871</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  joined &lt;- left_join(</pre>
+                      <pre class="language-r">      expect_value &lt;- sample(expect_data$AVAL, 1, prob = c(0.10, 0.90))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1180</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">872</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ex028_data,</pre>
+                      <pre class="language-r">      expect_valuec &lt;- expect_data$AVALC[expect_data$AVAL == expect_value]</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">873</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1181</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">874</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    orig_data_summ,</pre>
+                      <pre class="language-r">      new_data_row &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1182</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">875</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    by = c(</pre>
+                      <pre class="language-r">        study = str_extract(id, "[A-Z]+[0-9]+"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1183</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">876</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "STUDYID",</pre>
+                      <pre class="language-r">        id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1184</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">877</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "USUBJID",</pre>
+                      <pre class="language-r">        visit,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1185</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">878</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "PARCAT1",</pre>
+                      <pre class="language-r">        id_data_at_visit$AVISITN[1],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1186</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">879</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "AVISIT",</pre>
+                      <pre class="language-r">        datetime = NA,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1187</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">880</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "AVISITN",</pre>
+                      <pre class="language-r">        expect_data$PARCAT2[1],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1188</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">881</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "comp_count_all"</pre>
+                      <pre class="language-r">        expect_data$PARAM[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">882</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        expect_data$PARAMCD[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1190</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">883</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
+                      <pre class="language-r">        expect_value,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1191</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">884</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    select(-c("ADTM.x", "ADY.x"))</pre>
+                      <pre class="language-r">        expect_valuec,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">885</td>
+                    <td class="coverage">180<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1192</td>
+                    <td class="num">886</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1193</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">887</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  joined &lt;- rename(</pre>
+                      <pre class="language-r">      colnames(new_data_row) &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1194</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">888</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    joined,</pre>
+                      <pre class="language-r">        "STUDYID", "USUBJID", "AVISIT", "AVISITN",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1195</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">889</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ADTM = ADTM.y,</pre>
+                      <pre class="language-r">        "ADTM", "PARCAT2", "PARAM", "PARAMCD", "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1196</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">890</td>
+                    <td class="coverage">180<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ADY = ADY.y</pre>
+                      <pre class="language-r">        "AVALC"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1197</td>
+                    <td class="num">891</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      ) ###</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">892</td>
+                    <td class="coverage">180<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      df_saved &lt;- rbind(df_saved, new_data_row)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1198</td>
+                    <td class="num">893</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # CO028ALL</pre>
+                      <pre class="language-r">    } # visit</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1199</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">894</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  co028all &lt;- mutate(</pre>
+                      <pre class="language-r">  } # id</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">895</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1200</td>
+                    <td class="num">896</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    joined,</pre>
+                      <pre class="language-r">  df_saved1 &lt;- left_join(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1201</td>
+                    <td class="num">897</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD = "CO028ALL",</pre>
+                      <pre class="language-r">    df_saved,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1202</td>
+                    <td class="num">898</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAM = "EORTC QLQ-C30: Completion - Completed all questions",</pre>
+                      <pre class="language-r">    ghs_scales,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1203</td>
+                    <td class="num">899</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARCAT2 = "Completion",</pre>
+                      <pre class="language-r">    by = c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1204</td>
+                    <td class="num">900</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVAL = case_when(</pre>
+                      <pre class="language-r">      "PARAM",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1205</td>
+                    <td class="num">901</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL_ex028 == 1 &amp; comp_count == comp_count_all ~ 1,</pre>
+                      <pre class="language-r">      "PARAMCD",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1206</td>
+                    <td class="num">902</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL_ex028 == 1 &amp; (is.na(comp_count) | comp_count &lt; comp_count_all) ~ 0</pre>
+                      <pre class="language-r">      "PARCAT2"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1207</td>
+                    <td class="num">903</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">904</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1208</td>
+                    <td class="num">905</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVALC = case_when(</pre>
+                      <pre class="language-r">    mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1209</td>
+                    <td class="num">906</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL == 1 ~ "Completed all questions",</pre>
+                      <pre class="language-r">      AVALC = ifelse(is.na(AVALC), as.character(AVAL), AVALC),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1210</td>
+                    <td class="num">907</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL == 0 ~ "Did not complete all questions"</pre>
+                      <pre class="language-r">      PARCAT1 = ifelse(PARAMCD == "EX028", expect$PARCAT1, PARCAT1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1211</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">908</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      PARCAT1N = ifelse(PARAMCD == "EX028", expect$PARCAT1N, PARCAT1N)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1212</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="never">
-                    <td class="num">1213</td>
+                    <td class="num">910</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # CO028&lt;y&gt;P</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1214</td>
+                    <td class="num">911</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  co028p &lt;- mutate(</pre>
+                      <pre class="language-r">  adqlqc_tmp &lt;- bind_rows(adqlqc1, df_saved1) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1215</td>
+                    <td class="num">912</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    joined,</pre>
+                      <pre class="language-r">    arrange(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1216</td>
+                    <td class="num">913</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD = paste0("CO028", as.character(percent), "P"),</pre>
+                      <pre class="language-r">      USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1217</td>
+                    <td class="num">914</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAM = sprintf(</pre>
+                      <pre class="language-r">      AVISITN,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1218</td>
+                    <td class="num">915</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "EORTC QLQ-C30: Completion - Completed at least %s%% of questions",</pre>
+                      <pre class="language-r">      QSTESTCD</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">916</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1219</td>
+                    <td class="num">917</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      as.character(percent)</pre>
+                      <pre class="language-r">  return(adqlqc_tmp)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1220</td>
+                    <td class="num">918</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1221</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">919</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARCAT2 = "Completion",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1222</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">920</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVAL = case_when(</pre>
+                      <pre class="language-r">#' @describeIn h_adqlqc Calculate Change from Baseline Category 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1223</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">921</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL_ex028 == 1 &amp; per_comp &gt;= percent ~ 1,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1224</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">922</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL_ex028 == 1 &amp; (is.na(per_comp) | per_comp &lt; percent) ~ 0</pre>
+                      <pre class="language-r">#' @param dataset (`data.frame`)\cr ADaM dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1225</td>
+                    <td class="num">923</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1226</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">924</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVALC = case_when(</pre>
+                      <pre class="language-r">#' @return `data.frame`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1227</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">925</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL == 1 ~ sprintf(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1228</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">926</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Completed at least %s%% of questions",</pre>
+                      <pre class="language-r">derv_chgcat1 &lt;- function(dataset) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">927</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # derivation of CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1229</td>
+                    <td class="num">928</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        as.character(percent)</pre>
+                      <pre class="language-r">  check_vars &lt;- c("PARCAT2", "CHG")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1230</td>
+                    <td class="num">929</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1231</td>
+                    <td class="num">930</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL == 0 ~ sprintf(</pre>
+                      <pre class="language-r">  if (all(check_vars %in% names(dataset))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1232</td>
+                    <td class="num">931</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Did not complete at least %s%% of questions",</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1233</td>
+                    <td class="num">932</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        as.character(percent)</pre>
+                      <pre class="language-r">      dataset$PARCAT2 == "Symptom Scales" &amp; !is.na(dataset$CHG) &amp; dataset$CHG &lt;= -10,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1234</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">933</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      "Improved", ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1235</td>
+                    <td class="num">934</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1236</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">935</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1237</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">936</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # CO028&lt;x&gt;Q</pre>
+                      <pre class="language-r">      dataset$PARCAT2 == "Symptom Scales" &amp; !is.na(dataset$CHG) &amp; dataset$CHG &gt;= 10,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1238</td>
+                    <td class="num">937</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  co028q &lt;- mutate(</pre>
+                      <pre class="language-r">      "Worsened", dataset$CHGCAT1</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">938</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1239</td>
+                    <td class="num">939</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    joined,</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1240</td>
+                    <td class="num">940</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD = paste0("CO028", as.character(number), "Q"),</pre>
+                      <pre class="language-r">      dataset$PARCAT2 == "Symptom Scales" &amp;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1241</td>
+                    <td class="num">941</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAM = sprintf(</pre>
+                      <pre class="language-r">        !is.na(dataset$CHG) &amp; dataset$CHG &gt; -10 &amp;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1242</td>
+                    <td class="num">942</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "EORTC QLQ-C30: Completion - Completed at least %s question(s)",</pre>
+                      <pre class="language-r">        dataset$CHG &lt; 10,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1243</td>
+                    <td class="num">943</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      as.character(number)</pre>
+                      <pre class="language-r">      "No change", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1244</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">945</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1245</td>
+                    <td class="num">946</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARCAT2 = "Completion",</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1246</td>
+                    <td class="num">947</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVAL = case_when(</pre>
+                      <pre class="language-r">      dataset$PARCAT2 %in% c("Functional Scales", "Global Health Status") &amp;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1247</td>
+                    <td class="num">948</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL_ex028 == 1 &amp; comp_count &gt;= number ~ 1,</pre>
+                      <pre class="language-r">        !is.na(dataset$CHG) &amp; dataset$CHG &gt;= 10,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1248</td>
+                    <td class="num">949</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL_ex028 == 1 &amp; (comp_count &lt; number | is.na(comp_count)) ~ 0</pre>
+                      <pre class="language-r">      "Improved", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1249</td>
+                    <td class="num">950</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1250</td>
+                    <td class="num">951</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVALC = case_when(</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1251</td>
+                    <td class="num">952</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL == 1 ~ sprintf(</pre>
+                      <pre class="language-r">      dataset$PARCAT2 %in% c("Functional Scales", "Global Health Status") &amp;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1252</td>
+                    <td class="num">953</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Completed at least %s questions",</pre>
+                      <pre class="language-r">        !is.na(dataset$CHG) &amp; dataset$CHG &lt;= -10,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1253</td>
+                    <td class="num">954</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        as.character(number)</pre>
+                      <pre class="language-r">      "Worsened", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1254</td>
+                    <td class="num">955</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1255</td>
+                    <td class="num">956</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL == 0 ~ sprintf(</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1256</td>
+                    <td class="num">957</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Did not complete at least %s question(s)",</pre>
+                      <pre class="language-r">      dataset$PARCAT2 %in% c("Functional Scales", "Global Health Status") &amp;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1257</td>
+                    <td class="num">958</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        as.character(number)</pre>
+                      <pre class="language-r">        !is.na(dataset$CHG) &amp;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1258</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">959</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        dataset$CHG &gt; -10 &amp; dataset$CHG &lt; 10,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1259</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">960</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      "No change", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1260</td>
+                    <td class="num">961</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1261</td>
+                    <td class="num">962</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1262</td>
+                    <td class="num">963</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  co028_bind &lt;- rbind(</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1263</td>
+                    <td class="num">964</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    co028all,</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == 6,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1264</td>
+                    <td class="num">965</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    co028p,</pre>
+                      <pre class="language-r">      "Improved by six levels", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1265</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">966</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    co028q</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1266</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">967</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1267</td>
+                    <td class="num">968</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    select(</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == 5,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1268</td>
+                    <td class="num">969</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      -c("AVAL_ex028", "comp_count", "comp_count_all", "per_comp")</pre>
+                      <pre class="language-r">      "Improved by five levels", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1269</td>
+                    <td class="num">970</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1270</td>
+                    <td class="num">971</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(co028_bind)</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1271</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">972</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == 4,</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/radex.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">973</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Exposure Analysis Dataset (ADEX)</pre>
+                      <pre class="language-r">      "Improved by four levels", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">974</td>
                     <td class="coverage"></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">975</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">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">976</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == 3,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">977</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function for generating random Exposure Analysis Dataset for a given</pre>
+                      <pre class="language-r">      "Improved by three levels", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">978</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Subject-Level Analysis Dataset.</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">979</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">980</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details One record per each record in the corresponding SDTM domain.</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == 2,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">981</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      "Improved by two levels", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">982</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `EXSEQ`, `PARAMCD`, `PARCAT1`, `ASTDTM`, `AENDTM`, `ASTDY`, `AENDY`,</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">983</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `AVISITN`, `EXDOSFRQ`, `EXROUTE`, `VISIT`, `VISITDY`, `EXSTDTC`, `EXENDTC`, `EXSTDY`, `EXENDY`</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">984</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == 1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">985</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">      "Improved by one level", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">986</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param parcat1 (`character vector`)\cr Dose amount categories. Defaults to "Individual" and "Overall".</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">987</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param parcat2 (`character vector`)\cr Types of drug received. Defaults to "Drug A" and "Drug B".</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">988</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param max_n_exs (`integer`)\cr Maximum number of exposures per patient. Defaults to 6.</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == 0,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">989</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @template param_cached</pre>
+                      <pre class="language-r">      "No change", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">990</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @templateVar data adex</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">991</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">992</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `data.frame`</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == -1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">993</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      "Worsened by one level", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">994</td>
                     <td class="coverage"></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">995</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">996</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, study_duration = 2, seed = 1)</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == -2,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">997</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      "Worsened by two levels", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">998</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adex &lt;- radex(adsl, seed = 2)</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">999</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adex</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1000</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">radex &lt;- function(adsl,</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == -3,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1001</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  param = c(</pre>
+                      <pre class="language-r">      "Worsened by three levels", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">1002</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "Dose administered during constant dosing interval",</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">1003</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "Number of doses administered during constant dosing interval",</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1004</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "Total dose administered",</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == -4,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1005</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "Total number of doses administered"</pre>
+                      <pre class="language-r">      "Worsened by four levels", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">1006</td>
                     <td class="coverage"></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">1007</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  paramcd = c("DOSE", "NDOSE", "TDOSE", "TNDOSE"),</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1008</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  paramu = c("mg", " ", "mg", " "),</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == -5,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1009</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  parcat1 = c("INDIVIDUAL", "OVERALL"),</pre>
+                      <pre class="language-r">      "Worsened by five levels", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">1010</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  parcat2 = c("Drug A", "Drug B"),</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">1011</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  visit_format = "WEEK",</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1012</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  n_assessments = 5L,</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02829", "QS02830") &amp; dataset$CHG == -6,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1013</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  n_days = 5L,</pre>
+                      <pre class="language-r">      "Worsened by six levels", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">1014</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  max_n_exs = 6L,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">1015</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  lookup = NULL,</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">1016</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  seed = NULL,</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1017</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  na_percentage = 0,</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02802", "QS02806") &amp; dataset$CHG == -3,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1018</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  na_vars = list(AVAL = c(NA, 0.1), AVALU = c(NA), 0.1),</pre>
+                      <pre class="language-r">      "Improved by three levels", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">1019</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  cached = FALSE) {</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">1020</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">1021</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (cached) {</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02802", "QS02806") &amp; dataset$CHG == -2,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">1022</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(get_cached_data("cadex"))</pre>
+                      <pre class="language-r">      "Improved by two levels", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">1023</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1024</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">53</td>
+                    <td class="num">1025</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02802", "QS02806") &amp; dataset$CHG == -1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">54</td>
+                    <td class="num">1026</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(param, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">      "Improved by one level", dataset$CHGCAT1</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">1027</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(paramcd, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">56</td>
+                    <td class="num">1028</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(parcat1, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
+                    <td class="num">1029</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(parcat2, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02802", "QS02806") &amp; dataset$CHG == 0,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
+                    <td class="num">1030</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(visit_format)</pre>
+                      <pre class="language-r">      "No change", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">3<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">  checkmate::assert_integer(n_assessments, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
+                    <td class="num">1032</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(n_days, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
+                    <td class="num">1033</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(max_n_exs, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02802", "QS02806") &amp; dataset$CHG == 1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
+                    <td class="num">1034</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(lookup, null.ok = TRUE)</pre>
+                      <pre class="language-r">      "Worsened by one level", dataset$CHGCAT1</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1035</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">63</td>
+                    <td class="num">1036</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">64</td>
+                    <td class="num">1037</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02802", "QS02806") &amp; dataset$CHG == 2,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">65</td>
+                    <td class="num">1038</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
+                      <pre class="language-r">      "Worsened by two levels", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">1039</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1040</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # validate and initialize related variables</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">68</td>
+                    <td class="num">1041</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  param_init_list &lt;- relvar_init(param, paramcd)</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% c("QS02802", "QS02806") &amp; dataset$CHG == 3,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
+                    <td class="num">1042</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  unit_init_list &lt;- relvar_init(param, paramu)</pre>
+                      <pre class="language-r">      "Worsened by three levels", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">1043</td>
                     <td class="coverage"></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">3<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">  if (!is.null(seed)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
+                    <td class="num">1045</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set.seed(seed)</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1046</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      dataset$PARAMCD == "QS02801" &amp; dataset$CHG == -3,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
+                    <td class="num">1047</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</pre>
+                      <pre class="language-r">      "Improved by three levels", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">1048</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
+                    <td class="num">1049</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adex &lt;- expand.grid(</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
+                    <td class="num">1050</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID = unique(adsl$STUDYID),</pre>
+                      <pre class="language-r">      dataset$PARAMCD == "QS02801" &amp; dataset$CHG == -2,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
+                    <td class="num">1051</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID = adsl$USUBJID,</pre>
+                      <pre class="language-r">      "Improved by two levels", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1052</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAM = c(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">80</td>
+                    <td class="num">1053</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rep(</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
+                    <td class="num">1054</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        param_init_list$relvar1[1],</pre>
+                      <pre class="language-r">      dataset$PARAMCD == "QS02801" &amp; dataset$CHG == -1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
+                    <td class="num">1055</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        length(levels(visit_schedule(visit_format = visit_format, n_assessments = n_assessments, n_days = n_days)))</pre>
+                      <pre class="language-r">      "Improved by one level", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">1056</td>
                     <td class="coverage"></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="num">1057</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rep(</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
+                    <td class="num">1058</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        param_init_list$relvar1[2],</pre>
+                      <pre class="language-r">      dataset$PARAMCD == "QS02801" &amp; dataset$CHG == 0,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
+                    <td class="num">1059</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        length(levels(visit_schedule(visit_format = visit_format, n_assessments = n_assessments, n_days = n_days)))</pre>
+                      <pre class="language-r">      "No changed", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</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="covered">
-                    <td class="num">88</td>
+                    <td class="num">1061</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      param_init_list$relvar1[3:4]</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1062</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">      dataset$PARAMCD == "QS02801" &amp; dataset$CHG == 1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
+                    <td class="num">1063</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">      "Worsened by one level", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</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">92</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1065</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">93</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1066</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # assign related variable values: PARAMxPARAMCD are related</pre>
+                      <pre class="language-r">      dataset$PARAMCD == "QS02801" &amp; dataset$CHG == 2,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">94</td>
+                    <td class="num">1067</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adex &lt;- adex %&gt;% rel_var(</pre>
+                      <pre class="language-r">      "Worsened by two levels", dataset$CHGCAT1</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1068</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="num">1069</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_name = "PARAMCD",</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">96</td>
+                    <td class="num">1070</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    related_var = "PARAM",</pre>
+                      <pre class="language-r">      dataset$PARAMCD == "QS02801" &amp; dataset$CHG == 3,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">97</td>
+                    <td class="num">1071</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_values = param_init_list$relvar2</pre>
+                      <pre class="language-r">      "Worsened by three levels", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">1072</td>
                     <td class="coverage"></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">1073</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="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1074</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # assign related variable values: AVALUxPARAM are related</pre>
+                      <pre class="language-r">    paramcd_vec &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">101</td>
+                    <td class="num">1075</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adex &lt;- adex %&gt;% rel_var(</pre>
+                      <pre class="language-r">      "QS02803", "QS02804", "QS02805", "QS02807", "QS02808", "QS02809", "QS02810",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">102</td>
+                    <td class="num">1076</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_name = "AVALU",</pre>
+                      <pre class="language-r">      "QS02811", "QS02812", "QS02813", "QS02814", "QS02815", "QS02816", "QS02817",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
+                    <td class="num">1077</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    related_var = "PARAM",</pre>
+                      <pre class="language-r">      "QS02818", "QS02819", "QS02820", "QS02821", "QS02822", "QS02823", "QS02824",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">104</td>
+                    <td class="num">1078</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_values = unit_init_list$relvar2</pre>
+                      <pre class="language-r">      "QS02825", "QS02826", "QS02827", "QS02828"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">1079</td>
                     <td class="coverage"></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">1080</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="num">1081</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adex &lt;- adex %&gt;%</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
+                    <td class="num">1082</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% paramcd_vec &amp; dataset$CHG == -3,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">109</td>
+                    <td class="num">1083</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(PARCAT_ind = sample(c(1, 2), size = 1)) %&gt;%</pre>
+                      <pre class="language-r">      "Improved by three levels", dataset$CHGCAT1</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1084</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
+                    <td class="num">1085</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(PARCAT2 = ifelse(PARCAT_ind == 1, parcat2[1], parcat2[2])) %&gt;%</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
+                    <td class="num">1086</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(-"PARCAT_ind")</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% paramcd_vec &amp; dataset$CHG == -2,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1087</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      "Improved by two levels", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">1088</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add in PARCAT1</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">114</td>
+                    <td class="num">1089</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adex &lt;- adex %&gt;% dplyr::mutate(PARCAT1 = dplyr::case_when(</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">115</td>
+                    <td class="num">1090</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    (PARAMCD == "TNDOSE" | PARAMCD == "TDOSE") ~ "OVERALL",</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% paramcd_vec &amp; dataset$CHG == -1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
+                    <td class="num">1091</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == "DOSE" | PARAMCD == "NDOSE" ~ "INDIVIDUAL"</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">      "Improved by one level", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">1092</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">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  adex_visit &lt;- adex %&gt;%</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
+                    <td class="num">1093</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::filter(PARAMCD == "DOSE" | PARAMCD == "NDOSE") %&gt;%</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">121</td>
+                    <td class="num">1094</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% paramcd_vec &amp; dataset$CHG == 0,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">122</td>
+                    <td class="num">1095</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISIT = rep(visit_schedule(visit_format = visit_format, n_assessments = n_assessments, n_days = n_days), 2)</pre>
+                      <pre class="language-r">      "No change", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">1096</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"></pre>
-                    </td>
-                  </tr>
                   <tr class="covered">
-                    <td class="num">125</td>
+                    <td class="num">1097</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adex &lt;- dplyr::left_join(</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">126</td>
+                    <td class="num">1098</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adex %&gt;%</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% paramcd_vec &amp; dataset$CHG == 1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">127</td>
+                    <td class="num">1099</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::group_by(</pre>
+                      <pre class="language-r">      "Worsened by one level", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        USUBJID,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
+                    <td class="num">1101</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        STUDYID,</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">130</td>
+                    <td class="num">1102</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        PARAM,</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% paramcd_vec &amp; dataset$CHG == 2,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">131</td>
+                    <td class="num">1103</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        PARAMCD,</pre>
+                      <pre class="language-r">      "Worsened by two levels", dataset$CHGCAT1</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1104</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="num">1105</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        AVALU,</pre>
+                      <pre class="language-r">    dataset$CHGCAT1 &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
+                    <td class="num">1106</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        PARCAT1,</pre>
+                      <pre class="language-r">      dataset$PARAMCD %in% paramcd_vec &amp; dataset$CHG == 3,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
+                    <td class="num">1107</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        PARCAT2</pre>
+                      <pre class="language-r">      "Worsened by three levels", dataset$CHGCAT1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">1108</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">136</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1109</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::mutate(id = dplyr::row_number()),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">137</td>
+                    <td class="num">1110</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adex_visit %&gt;%</pre>
+                      <pre class="language-r">    return(dataset)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1111</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::group_by(</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">3<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">        USUBJID,</pre>
+                      <pre class="language-r">    collapse_vars &lt;- paste(check_vars, collapse = ", ")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">3<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">        STUDYID,</pre>
+                      <pre class="language-r">    stop(sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">3<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">        PARAM,</pre>
+                      <pre class="language-r">      "%s: one or both variables is/are missing, needed for derivation",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">3<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">        PARAMCD,</pre>
+                      <pre class="language-r">      collapse_vars</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">1116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        AVALU,</pre>
+                      <pre class="language-r">    ))</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">1117</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        PARCAT1,</pre>
+                      <pre class="language-r">  }</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">1118</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        PARCAT2</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">1119</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">147</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1120</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::mutate(id = dplyr::row_number()),</pre>
+                      <pre class="language-r">#' @describeIn h_adqlqc Completion/Compliance Data Calculation</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1121</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    by = c("USUBJID", "STUDYID", "PARCAT1", "PARCAT2", "id", "PARAMCD", "PARAM", "AVALU")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">1122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
+                      <pre class="language-r">#' @param dataset (`data.frame`)\cr Dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1123</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(-"id")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">1124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return `data.frame`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">1125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Visit numbers</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adex &lt;- adex %&gt;% dplyr::mutate(AVISITN = dplyr::case_when(</pre>
+                      <pre class="language-r">comp_derv &lt;- function(dataset, percent, number) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1127</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVISIT == "SCREENING" ~ -1,</pre>
+                      <pre class="language-r">  # original items data</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">155</td>
+                    <td class="num">1128</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVISIT == "BASELINE" ~ 0,</pre>
+                      <pre class="language-r">  orig_data &lt;- filter(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">156</td>
+                    <td class="num">1129</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    (grepl("^WEEK", AVISIT) | grepl("^CYCLE", AVISIT)) ~ as.numeric(AVISIT) - 2,</pre>
+                      <pre class="language-r">    dataset,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">157</td>
+                    <td class="num">1130</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    TRUE ~ 999000</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">    PARCAT2 == "Original Items"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">1131</td>
                     <td class="coverage"></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">1132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # total number of questionnaires</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">161</td>
+                    <td class="num">1133</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adex2 &lt;- split(adex, adex$USUBJID) %&gt;%</pre>
+                      <pre class="language-r">  comp_count_all &lt;- select(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">162</td>
+                    <td class="num">1134</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(function(pinfo) {</pre>
+                      <pre class="language-r">    orig_data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1135</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pinfo %&gt;%</pre>
+                      <pre class="language-r">    PARAMCD</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1136</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::filter(PARAMCD == "DOSE") %&gt;%</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1137</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::group_by(USUBJID, PARCAT2, AVISIT) %&gt;%</pre>
+                      <pre class="language-r">    distinct() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1138</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::mutate(changeind = dplyr::case_when(</pre>
+                      <pre class="language-r">    count()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1139</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          AVISIT == "SCREENING" ~ 0,</pre>
+                      <pre class="language-r">  comp_count_all &lt;- comp_count_all$n</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1140</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          AVISIT != "SCREENING" ~ sample(c(-1, 0, 1),</pre>
+                      <pre class="language-r">  # original items data count of questions answered</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1141</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            size = 1,</pre>
+                      <pre class="language-r">  orig_data_summ &lt;- group_by(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1142</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            prob = c(0.25, 0.5, 0.25),</pre>
+                      <pre class="language-r">    orig_data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1143</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            replace = TRUE</pre>
+                      <pre class="language-r">    STUDYID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">172</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1144</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    USUBJID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">173</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1145</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )) %&gt;%</pre>
+                      <pre class="language-r">    PARCAT1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1146</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">    AVISIT,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1147</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::group_by(USUBJID, PARCAT2) %&gt;%</pre>
+                      <pre class="language-r">    AVISITN,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1148</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::mutate(</pre>
+                      <pre class="language-r">    ADTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1149</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          csum = cumsum(changeind),</pre>
+                      <pre class="language-r">    ADY</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1150</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          changeind = dplyr::case_when(</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1151</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            csum &lt;= -3 ~ sample(c(0, 1), size = 1, prob = c(0.5, 0.5)),</pre>
+                      <pre class="language-r">    summarise(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1152</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            csum &gt;= 3 ~ sample(c(0, -1), size = 1, prob = c(0.5, 0.5)),</pre>
+                      <pre class="language-r">      comp_count = sum(!is.na(AVAL)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1153</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            TRUE ~ changeind</pre>
+                      <pre class="language-r">      comp_count_all = comp_count_all,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1154</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">      .groups = "drop"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">1155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ) %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">30<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::mutate(csum = cumsum(changeind)) %&gt;%</pre>
+                      <pre class="language-r">    ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1156</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">    mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1157</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::group_by(USUBJID, PARCAT2, AVISIT) %&gt;%</pre>
+                      <pre class="language-r">      per_comp = trunc((comp_count / comp_count_all) * 100)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1158</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::mutate(AVAL = dplyr::case_when(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1159</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          csum == -2 ~ 480,</pre>
+                      <pre class="language-r">  # expected data</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1160</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          csum == -1 ~ 720,</pre>
+                      <pre class="language-r">  ex028_data &lt;- filter(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1161</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          csum == 0 ~ 960,</pre>
+                      <pre class="language-r">    dataset,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1162</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          csum == 1 ~ 1200,</pre>
+                      <pre class="language-r">    PARAMCD == "EX028",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1163</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          csum == 2 ~ 1440</pre>
+                      <pre class="language-r">    AVAL == 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">1164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )) %&gt;%</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1165</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::select(-c("csum", "changeind")) %&gt;%</pre>
+                      <pre class="language-r">    select(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">1166</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::ungroup()</pre>
+                      <pre class="language-r">      STUDYID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1167</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }) %&gt;%</pre>
+                      <pre class="language-r">      USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">197</td>
+                    <td class="num">1168</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Reduce(rbind, .)</pre>
+                      <pre class="language-r">      PARCAT1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">198</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1169</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      AVISIT,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">199</td>
+                    <td class="num">1170</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adex_tmp &lt;- dplyr::full_join(adex2, adex, by = names(adex))</pre>
+                      <pre class="language-r">      AVISITN,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">200</td>
+                    <td class="num">1171</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adex &lt;- adex_tmp %&gt;%</pre>
+                      <pre class="language-r">      ADTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">201</td>
+                    <td class="num">1172</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">      ADY,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
+                    <td class="num">1173</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(AVAL = ifelse(PARAMCD == "NDOSE", 1, AVAL)) %&gt;%</pre>
+                      <pre class="language-r">      AVAL_ex028 = AVAL</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">1174</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(AVAL = ifelse(</pre>
+                      <pre class="language-r">    ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">204</td>
+                    <td class="num">1175</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "TNDOSE",</pre>
+                      <pre class="language-r">    mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">205</td>
+                    <td class="num">1176</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sum(AVAL[PARAMCD == "NDOSE"]),</pre>
+                      <pre class="language-r">      comp_count_all = comp_count_all</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">1177</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">1178</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">208</td>
+                    <td class="num">1179</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">  joined &lt;- left_join(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">209</td>
+                    <td class="num">1180</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID, STUDYID, PARCAT2) %&gt;%</pre>
+                      <pre class="language-r">    ex028_data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
+                    <td class="num">1181</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(AVAL = ifelse(</pre>
+                      <pre class="language-r">    orig_data_summ,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
+                    <td class="num">1182</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "TDOSE",</pre>
+                      <pre class="language-r">    by = c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">212</td>
+                    <td class="num">1183</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sum(AVAL[PARAMCD == "DOSE"]),</pre>
+                      <pre class="language-r">      "STUDYID",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">213</td>
+                    <td class="num">1184</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL</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>
-                    </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">      "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">216</td>
+                    <td class="num">1185</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adex &lt;- var_relabel(</pre>
+                      <pre class="language-r">      "PARCAT1",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">217</td>
+                    <td class="num">1186</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adex,</pre>
+                      <pre class="language-r">      "AVISIT",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">218</td>
+                    <td class="num">1187</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
+                      <pre class="language-r">      "AVISITN",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">219</td>
+                    <td class="num">1188</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</pre>
+                      <pre class="language-r">      "comp_count_all"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">1189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">1190</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">1191</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    select(-c("ADTM.x", "ADY.x"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">1192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # merge ADSL to be able to add ADEX date and study day variables</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">223</td>
+                    <td class="num">1193</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adex &lt;- dplyr::inner_join(adex, adsl, by = c("STUDYID", "USUBJID")) %&gt;%</pre>
+                      <pre class="language-r">  joined &lt;- rename(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
+                    <td class="num">1194</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::rowwise() %&gt;%</pre>
+                      <pre class="language-r">    joined,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">225</td>
+                    <td class="num">1195</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(TRTENDT = lubridate::date(dplyr::case_when(</pre>
+                      <pre class="language-r">    ADTM = ADTM.y,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
+                    <td class="num">1196</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is.na(TRTEDTM) ~ lubridate::floor_date(lubridate::date(TRTSDTM) + study_duration_secs, unit = "day"),</pre>
+                      <pre class="language-r">    ADY = ADY.y</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1197</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ TRTEDTM</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">1198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))) %&gt;%</pre>
+                      <pre class="language-r">  # CO028ALL</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">229</td>
+                    <td class="num">1199</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ASTDTM = sample(</pre>
+                      <pre class="language-r">  co028all &lt;- mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">230</td>
+                    <td class="num">1200</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      seq(lubridate::as_datetime(TRTSDTM), lubridate::as_datetime(TRTENDT), by = "day"),</pre>
+                      <pre class="language-r">    joined,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
+                    <td class="num">1201</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size = 1</pre>
+                      <pre class="language-r">    PARAMCD = "CO028ALL",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">232</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1202</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) %&gt;%</pre>
+                      <pre class="language-r">    PARAM = "EORTC QLQ-C30: Completion - Completed all questions",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">233</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1203</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # add 1 to end of range incase both values passed to sample() are the same</pre>
+                      <pre class="language-r">    PARCAT2 = "Completion",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">234</td>
+                    <td class="num">1204</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(AENDTM = sample(</pre>
+                      <pre class="language-r">    AVAL = case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">235</td>
+                    <td class="num">1205</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      seq(lubridate::as_datetime(ASTDTM), lubridate::as_datetime(TRTENDT + 1), by = "day"),</pre>
+                      <pre class="language-r">      AVAL_ex028 == 1 &amp; comp_count == comp_count_all ~ 1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">236</td>
+                    <td class="num">1206</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size = 1</pre>
+                      <pre class="language-r">      AVAL_ex028 == 1 &amp; (is.na(comp_count) | comp_count &lt; comp_count_all) ~ 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">1207</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">238</td>
+                    <td class="num">1208</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(-TRTENDT) %&gt;%</pre>
+                      <pre class="language-r">    AVALC = case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">239</td>
+                    <td class="num">1209</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">      AVAL == 1 ~ "Completed all questions",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">240</td>
+                    <td class="num">1210</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(STUDYID, USUBJID, ASTDTM)</pre>
+                      <pre class="language-r">      AVAL == 0 ~ "Did not complete all questions"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">1211</td>
                     <td class="coverage"></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">1212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1213</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # CO028&lt;y&gt;P</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">243</td>
+                    <td class="num">1214</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adex &lt;- adex %&gt;%</pre>
+                      <pre class="language-r">  co028p &lt;- mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">244</td>
+                    <td class="num">1215</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">    joined,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">245</td>
+                    <td class="num">1216</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(EXSEQ = seq_len(dplyr::n())) %&gt;%</pre>
+                      <pre class="language-r">    PARAMCD = paste0("CO028", as.character(percent), "P"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">246</td>
+                    <td class="num">1217</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ASEQ = EXSEQ) %&gt;%</pre>
+                      <pre class="language-r">    PARAM = sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">247</td>
+                    <td class="num">1218</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">      "EORTC QLQ-C30: Completion - Completed at least %s%% of questions",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">248</td>
+                    <td class="num">1219</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(</pre>
+                      <pre class="language-r">      as.character(percent)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1220</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="num">1221</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID,</pre>
+                      <pre class="language-r">    PARCAT2 = "Completion",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">250</td>
+                    <td class="num">1222</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID,</pre>
+                      <pre class="language-r">    AVAL = case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">251</td>
+                    <td class="num">1223</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD,</pre>
+                      <pre class="language-r">      AVAL_ex028 == 1 &amp; per_comp &gt;= percent ~ 1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">252</td>
+                    <td class="num">1224</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ASTDTM,</pre>
+                      <pre class="language-r">      AVAL_ex028 == 1 &amp; (is.na(per_comp) | per_comp &lt; percent) ~ 0</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1225</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="num">1226</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISITN,</pre>
+                      <pre class="language-r">    AVALC = case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">254</td>
+                    <td class="num">1227</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      EXSEQ</pre>
+                      <pre class="language-r">      AVAL == 1 ~ sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">255</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1228</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        "Completed at least %s%% of questions",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">256</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1229</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        as.character(percent)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">1230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Adding EXDOSFRQ</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">258</td>
+                    <td class="num">1231</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adex &lt;- adex %&gt;%</pre>
+                      <pre class="language-r">      AVAL == 0 ~ sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">259</td>
+                    <td class="num">1232</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(EXDOSFRQ = dplyr::case_when(</pre>
+                      <pre class="language-r">        "Did not complete at least %s%% of questions",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">260</td>
+                    <td class="num">1233</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARCAT1 == "INDIVIDUAL" ~ "ONCE",</pre>
+                      <pre class="language-r">        as.character(percent)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1234</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ ""</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">1235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">1236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">1237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Adding EXROUTE</pre>
+                      <pre class="language-r">  # CO028&lt;x&gt;Q</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">265</td>
+                    <td class="num">1238</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adex &lt;- adex %&gt;%</pre>
+                      <pre class="language-r">  co028q &lt;- mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">266</td>
+                    <td class="num">1239</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(EXROUTE = dplyr::case_when(</pre>
+                      <pre class="language-r">    joined,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">267</td>
+                    <td class="num">1240</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARCAT1 == "INDIVIDUAL" ~ sample(c("INTRAVENOUS", "SUBCUTANEOUS"),</pre>
+                      <pre class="language-r">    PARAMCD = paste0("CO028", as.character(number), "Q"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">268</td>
+                    <td class="num">1241</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nrow(adex),</pre>
+                      <pre class="language-r">    PARAM = sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">269</td>
+                    <td class="num">1242</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        replace = TRUE,</pre>
+                      <pre class="language-r">      "EORTC QLQ-C30: Completion - Completed at least %s question(s)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">270</td>
+                    <td class="num">1243</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        prob = c(0.9, 0.1)</pre>
+                      <pre class="language-r">      as.character(number)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">1244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">272</td>
+                    <td class="num">1245</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ ""</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">273</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="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    PARCAT2 = "Completion",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">275</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1246</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Fix VISIT according to AVISIT</pre>
+                      <pre class="language-r">    AVAL = case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">276</td>
+                    <td class="num">1247</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adex &lt;- adex %&gt;%</pre>
+                      <pre class="language-r">      AVAL_ex028 == 1 &amp; comp_count &gt;= number ~ 1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">277</td>
+                    <td class="num">1248</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(VISIT = AVISIT)</pre>
+                      <pre class="language-r">      AVAL_ex028 == 1 &amp; (comp_count &lt; number | is.na(comp_count)) ~ 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">1249</td>
                     <td class="coverage"></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>
+                  <tr class="covered">
+                    <td class="num">1250</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Hack for VISITDY - to fix in ADSL</pre>
+                      <pre class="language-r">    AVALC = case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">280</td>
+                    <td class="num">1251</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  visit_levels &lt;- str_extract(levels(adex$VISIT), pattern = "[0-9]+")</pre>
+                      <pre class="language-r">      AVAL == 1 ~ sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">281</td>
+                    <td class="num">1252</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  vl_extracted &lt;- vapply(visit_levels, function(x) as.numeric(x[2]), numeric(1))</pre>
+                      <pre class="language-r">        "Completed at least %s questions",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">282</td>
+                    <td class="num">1253</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  vl_extracted &lt;- c(-1, 1, vl_extracted[!is.na(vl_extracted)])</pre>
+                      <pre class="language-r">        as.character(number)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">1254</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1255</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Adding VISITDY</pre>
+                      <pre class="language-r">      AVAL == 0 ~ sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">285</td>
+                    <td class="num">1256</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adex &lt;- adex %&gt;%</pre>
+                      <pre class="language-r">        "Did not complete at least %s question(s)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">286</td>
+                    <td class="num">1257</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(VISITDY = as.numeric(as.character(factor(VISIT, labels = vl_extracted))))</pre>
+                      <pre class="language-r">        as.character(number)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">1258</td>
                     <td class="coverage"></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">1259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Exposure time stamps</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">289</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1260</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adex &lt;- adex %&gt;%</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">290</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1261</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">291</td>
+                    <td class="num">1262</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      EXSTDTC = TRTSDTM + lubridate::days(VISITDY),</pre>
+                      <pre class="language-r">  co028_bind &lt;- rbind(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">292</td>
+                    <td class="num">1263</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      EXENDTC = EXSTDTC + lubridate::hours(1),</pre>
+                      <pre class="language-r">    co028all,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">293</td>
+                    <td class="num">1264</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      EXSTDY = VISITDY,</pre>
+                      <pre class="language-r">    co028p,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">294</td>
+                    <td class="num">1265</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      EXENDY = VISITDY</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"></pre>
+                      <pre class="language-r">    co028q</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">1266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Correcting last exposure to treatment</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">298</td>
+                    <td class="num">1267</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adex &lt;- adex %&gt;%</pre>
+                      <pre class="language-r">    select(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">299</td>
+                    <td class="num">1268</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(SUBJID) %&gt;%</pre>
+                      <pre class="language-r">      -c("AVAL_ex028", "comp_count", "comp_count_all", "per_comp")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">300</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1269</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(TRTEDTM = lubridate::as_datetime(max(EXENDTC, na.rm = TRUE))) %&gt;%</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">301</td>
+                    <td class="num">1270</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup()</pre>
+                      <pre class="language-r">  return(co028_bind)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">1271</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/radex.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Fixing Date - to add into ADSL</pre>
+                      <pre class="language-r">#' Exposure Analysis Dataset (ADEX)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">3<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">  adex &lt;- adex %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">3<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">    dplyr::mutate(</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">306</td>
-                    <td class="coverage">3<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">      TRTSDT = lubridate::date(TRTSDTM),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">307</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">      TRTEDT = lubridate::date(TRTEDTM)</pre>
+                      <pre class="language-r">#' Function for generating random Exposure Analysis Dataset for a given</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' Subject-Level Analysis Dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</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">310</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Fixing analysis time stamps</pre>
+                      <pre class="language-r">#' @details One record per each record in the corresponding SDTM domain.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">311</td>
-                    <td class="coverage">3<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">  adex &lt;- adex %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">313</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      ASTDY = EXSTDY,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">314</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      AENDY = EXENDY,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">315</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      ASTDTM = EXSTDTC,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">316</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      AENDTM = EXENDTC</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">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">320</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    adex &lt;- mutate_na(ds = adex, na_vars = na_vars, na_percentage = na_percentage)</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="never">
-                    <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">323</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  # apply metadata</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">324</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  adex &lt;- apply_metadata(adex, "metadata/ADEX.yml")</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>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <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">327</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"># Equivalent of stringr::str_extract_all()</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">328</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">str_extract &lt;- function(string, pattern) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">329</td>
-                    <td class="coverage">2850<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  regmatches(string, gregexpr(pattern, string))</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>
-                    </td>
-                  </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/radmh.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">#' Medical History Analysis Dataset (ADMH)</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">#' Function for generating a random Medical History Analysis Dataset for a given</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Subject-Level Analysis Dataset.</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">#' @details One record per each record in the corresponding SDTM domain.</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">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `ASTDTM`, `MHSEQ`</pre>
+                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `EXSEQ`, `PARAMCD`, `PARCAT1`, `ASTDTM`, `AENDTM`, `ASTDY`, `AENDY`,</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">#' `AVISITN`, `EXDOSFRQ`, `EXROUTE`, `VISIT`, `VISITDY`, `EXSTDTC`, `EXENDTC`, `EXSTDY`, `EXENDY`</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">#'</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 max_n_mhs (`integer`)\cr Maximum number of MHs per patient. Defaults to 10.</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">#' @template param_cached</pre>
+                      <pre class="language-r">#' @param parcat1 (`character vector`)\cr Dose amount categories. Defaults to "Individual" and "Overall".</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @templateVar data admh</pre>
+                      <pre class="language-r">#' @param parcat2 (`character vector`)\cr Types of drug received. Defaults to "Drug A" and "Drug B".</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 max_n_exs (`integer`)\cr Maximum number of exposures per patient. Defaults to 6.</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 `data.frame`</pre>
+                      <pre class="language-r">#' @template param_cached</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @templateVar data adex</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -14514,14 +14632,14 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @return `data.frame`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, study_duration = 2, seed = 1)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -14535,301 +14653,301 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' admh &lt;- radmh(adsl, seed = 2)</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">#' admh</pre>
+                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, study_duration = 2, seed = 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">radmh &lt;- function(adsl,</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">                  max_n_mhs = 10L,</pre>
+                      <pre class="language-r">#' adex &lt;- radex(adsl, seed = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  lookup = NULL,</pre>
+                      <pre class="language-r">#' adex</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  seed = NULL,</pre>
+                      <pre class="language-r">radex &lt;- function(adsl,</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_percentage = 0,</pre>
+                      <pre class="language-r">                  param = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  na_vars = list(MHBODSYS = c(NA, 0.1), MHDECOD = c(1234, 0.1)),</pre>
+                      <pre class="language-r">                    "Dose administered during constant dosing interval",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  cached = FALSE) {</pre>
+                      <pre class="language-r">                    "Number of doses administered during constant dosing interval",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">32</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
+                      <pre class="language-r">                    "Total dose administered",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">33</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (cached) {</pre>
+                      <pre class="language-r">                    "Total number of doses administered"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">34</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(get_cached_data("cadmh"))</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">  }</pre>
+                      <pre class="language-r">                  paramcd = c("DOSE", "NDOSE", "TDOSE", "TNDOSE"),</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">                  paramu = c("mg", " ", "mg", " "),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">37</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
+                      <pre class="language-r">                  parcat1 = c("INDIVIDUAL", "OVERALL"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">38</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(max_n_mhs, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">                  parcat2 = c("Drug A", "Drug B"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">39</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
+                      <pre class="language-r">                  visit_format = "WEEK",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">40</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">                  n_assessments = 5L,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">41</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
+                      <pre class="language-r">                  n_days = 5L,</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">                  max_n_exs = 6L,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">43</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(lookup, null.ok = TRUE)</pre>
+                      <pre class="language-r">                  lookup = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">44</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lookup_mh &lt;- if (!is.null(lookup)) {</pre>
+                      <pre class="language-r">                  seed = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">45</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lookup</pre>
+                      <pre class="language-r">                  na_percentage = 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">  } else {</pre>
+                      <pre class="language-r">                  na_vars = list(AVAL = c(NA, 0.1), AVALU = c(NA), 0.1),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">47</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tibble::tribble(</pre>
+                      <pre class="language-r">                  cached = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">48</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ~MHBODSYS, ~MHDECOD, ~MHSOC,</pre>
+                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">49</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "cl A", "trm A_1/2", "cl A",</pre>
+                      <pre class="language-r">  if (cached) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">50</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">      "cl A", "trm A_2/2", "cl A",</pre>
+                      <pre class="language-r">    return(get_cached_data("cadex"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">51</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "cl B", "trm B_1/3", "cl B",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">52</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "cl B", "trm B_2/3", "cl B",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">53</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "cl B", "trm B_3/3", "cl B",</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
                     </td>
                   </tr>
                   <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">      "cl C", "trm C_1/2", "cl C",</pre>
+                      <pre class="language-r">  checkmate::assert_character(param, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <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">      "cl C", "trm C_2/2", "cl C",</pre>
+                      <pre class="language-r">  checkmate::assert_character(paramcd, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <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">      "cl D", "trm D_1/3", "cl D",</pre>
+                      <pre class="language-r">  checkmate::assert_character(parcat1, min.len = 1, any.missing = FALSE)</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">      "cl D", "trm D_2/3", "cl D",</pre>
+                      <pre class="language-r">  checkmate::assert_character(parcat2, min.len = 1, any.missing = FALSE)</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">      "cl D", "trm D_3/3", "cl D"</pre>
+                      <pre class="language-r">  checkmate::assert_string(visit_format)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">59</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_integer(n_assessments, len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">60</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_integer(n_days, len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">61</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_integer(max_n_exs, len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">62</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(seed)) {</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(lookup, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">63</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set.seed(seed)</pre>
+                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">64</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_number(na_percentage, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">65</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</pre>
+                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -14839,7089 +14957,6879 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                       <pre class="language-r"></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">  admh &lt;- Map(</pre>
+                      <pre class="language-r">  # validate and initialize related variables</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">68</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(id, sid) {</pre>
+                      <pre class="language-r">  param_init_list &lt;- relvar_init(param, paramcd)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_mhs &lt;- sample(0:max_n_mhs, 1)</pre>
+                      <pre class="language-r">  unit_init_list &lt;- relvar_init(param, paramu)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">70</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      i &lt;- sample(seq_len(nrow(lookup_mh)), n_mhs, TRUE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">71</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::mutate(</pre>
+                      <pre class="language-r">  if (!is.null(seed)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lookup_mh[i, ],</pre>
+                      <pre class="language-r">    set.seed(seed)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">73</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        USUBJID = id,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        STUDYID = sid</pre>
+                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</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">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">  adex &lt;- expand.grid(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">77</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl$USUBJID,</pre>
+                      <pre class="language-r">    STUDYID = unique(adsl$STUDYID),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">78</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl$STUDYID</pre>
+                      <pre class="language-r">    USUBJID = adsl$USUBJID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">79</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
+                      <pre class="language-r">    PARAM = c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">80</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Reduce(rbind, .) %&gt;%</pre>
+                      <pre class="language-r">      rep(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">81</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    `[`(c(4, 5, 1, 2, 3)) %&gt;%</pre>
+                      <pre class="language-r">        param_init_list$relvar1[1],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">82</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(MHTERM = MHDECOD)</pre>
+                      <pre class="language-r">        length(levels(visit_schedule(visit_format = visit_format, n_assessments = n_assessments, n_days = n_days)))</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="covered">
                     <td class="num">84</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  admh &lt;- var_relabel(</pre>
+                      <pre class="language-r">      rep(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">85</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    admh,</pre>
+                      <pre class="language-r">        param_init_list$relvar1[2],</pre>
                     </td>
                   </tr>
                   <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">    STUDYID = "Study Identifier",</pre>
+                      <pre class="language-r">        length(levels(visit_schedule(visit_format = visit_format, n_assessments = n_assessments, n_days = n_days)))</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">    USUBJID = "Unique Subject Identifier"</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">88</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">      param_init_list$relvar1[3:4]</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">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # merge ADSL to be able to add MH date and study day variables</pre>
+                      <pre class="language-r">    stringsAsFactors = FALSE</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">  admh &lt;- dplyr::inner_join(</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">    admh,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">93</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl,</pre>
+                      <pre class="language-r">  # assign related variable values: PARAMxPARAMCD are related</pre>
                     </td>
                   </tr>
                   <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">    by = c("STUDYID", "USUBJID")</pre>
+                      <pre class="language-r">  adex &lt;- adex %&gt;% rel_var(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">95</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
+                      <pre class="language-r">    var_name = "PARAMCD",</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">    dplyr::rowwise() %&gt;%</pre>
+                      <pre class="language-r">    related_var = "PARAM",</pre>
                     </td>
                   </tr>
                   <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">    dplyr::mutate(TRTENDT = lubridate::date(dplyr::case_when(</pre>
+                      <pre class="language-r">    var_values = param_init_list$relvar2</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">      is.na(TRTEDTM) ~ lubridate::floor_date(lubridate::date(TRTSDTM) + study_duration_secs, unit = "day"),</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">      TRUE ~ TRTEDTM</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">    ))) %&gt;%</pre>
+                      <pre class="language-r">  # assign related variable values: AVALUxPARAM are related</pre>
                     </td>
                   </tr>
                   <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">    dplyr::mutate(ASTDTM = sample(</pre>
+                      <pre class="language-r">  adex &lt;- adex %&gt;% rel_var(</pre>
                     </td>
                   </tr>
                   <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">      seq(lubridate::as_datetime(TRTSDTM), lubridate::as_datetime(TRTENDT), by = "day"),</pre>
+                      <pre class="language-r">    var_name = "AVALU",</pre>
                     </td>
                   </tr>
                   <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">      size = 1</pre>
+                      <pre class="language-r">    related_var = "PARAM",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">104</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) %&gt;%</pre>
+                      <pre class="language-r">    var_values = unit_init_list$relvar2</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">105</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ASTDY = ceiling(difftime(ASTDTM, TRTSDTM, units = "days"))) %&gt;%</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">    # add 1 to end of range incase both values passed to sample() are the same</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="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(AENDTM = sample(</pre>
+                      <pre class="language-r">  adex &lt;- adex %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">108</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      seq(lubridate::as_datetime(ASTDTM), lubridate::as_datetime(TRTENDT + 1), by = "day"),</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">109</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size = 1</pre>
+                      <pre class="language-r">    dplyr::mutate(PARCAT_ind = sample(c(1, 2), size = 1)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">110</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(PARCAT2 = ifelse(PARCAT_ind == 1, parcat2[1], parcat2[2])) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">111</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(AENDY = ceiling(difftime(AENDTM, TRTSDTM, units = "days"))) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::select(-"PARCAT_ind")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">112</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    select(-TRTENDT) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">113</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">  # Add in PARCAT1</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">114</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(STUDYID, USUBJID, ASTDTM, MHTERM) %&gt;%</pre>
+                      <pre class="language-r">  adex &lt;- adex %&gt;% dplyr::mutate(PARCAT1 = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">115</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(MHDISTAT = sample(</pre>
+                      <pre class="language-r">    (PARAMCD == "TNDOSE" | PARAMCD == "TDOSE") ~ "OVERALL",</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">      x = c("Resolved", "Ongoing with treatment", "Ongoing without treatment"),</pre>
+                      <pre class="language-r">    PARAMCD == "DOSE" | PARAMCD == "NDOSE" ~ "INDIVIDUAL"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">117</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      prob = c(0.6, 0.2, 0.2),</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">118</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size = dplyr::n(),</pre>
+                      <pre class="language-r"></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">      replace = TRUE</pre>
+                      <pre class="language-r">  adex_visit &lt;- adex %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">120</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::filter(PARAMCD == "DOSE" | PARAMCD == "NDOSE") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">121</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ATIREL = dplyr::case_when(</pre>
+                      <pre class="language-r">    dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">122</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      (AENDTM &lt; TRTSDTM | (is.na(AENDTM) &amp; MHDISTAT == "Resolved")) ~ "PRIOR",</pre>
+                      <pre class="language-r">      AVISIT = rep(visit_schedule(visit_format = visit_format, n_assessments = n_assessments, n_days = n_days), 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">123</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      (AENDTM &gt;= TRTSDTM | (is.na(AENDTM) &amp; grepl("Ongoing", MHDISTAT))) ~ "PRIOR_CONCOMITANT"</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"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">125</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">  adex &lt;- dplyr::left_join(</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">  admh &lt;- admh %&gt;%</pre>
+                      <pre class="language-r">    adex %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">127</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">      dplyr::group_by(</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">    dplyr::mutate(MHSEQ = seq_len(dplyr::n())) %&gt;%</pre>
+                      <pre class="language-r">        USUBJID,</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">    dplyr::mutate(ASEQ = MHSEQ) %&gt;%</pre>
+                      <pre class="language-r">        STUDYID,</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">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">        PARAM,</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">    dplyr::arrange(STUDYID, USUBJID, ASTDTM, MHSEQ)</pre>
+                      <pre class="language-r">        PARAMCD,</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">        AVALU,</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">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0 &amp;&amp; na_percentage &lt;= 1) {</pre>
+                      <pre class="language-r">        PARCAT1,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">134</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    admh &lt;- mutate_na(ds = admh, na_vars = na_vars, na_percentage = na_percentage)</pre>
+                      <pre class="language-r">        PARCAT2</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">      ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">136</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">      dplyr::mutate(id = dplyr::row_number()),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">137</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # apply metadata</pre>
+                      <pre class="language-r">    adex_visit %&gt;%</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">  admh &lt;- apply_metadata(admh, "metadata/ADMH.yml")</pre>
+                      <pre class="language-r">      dplyr::group_by(</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">        USUBJID,</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">  return(admh)</pre>
+                      <pre class="language-r">        STUDYID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">141</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">        PARAM,</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/radae.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">142</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Adverse Event Analysis Dataset (ADAE)</pre>
+                      <pre class="language-r">        PARAMCD,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</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">        AVALU,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</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">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">        PARCAT1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</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">        PARCAT2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function for generating random Adverse Event Analysis Dataset for a given</pre>
+                      <pre class="language-r">      ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</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">#' Subject-Level Analysis Dataset.</pre>
+                      <pre class="language-r">      dplyr::mutate(id = dplyr::row_number()),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <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">#'</pre>
+                      <pre class="language-r">    by = c("USUBJID", "STUDYID", "PARCAT1", "PARCAT2", "id", "PARAMCD", "PARAM", "AVALU")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details One record per each record in the corresponding SDTM domain.</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</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">#'</pre>
+                      <pre class="language-r">    dplyr::select(-"id")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `ASTDTM`, `AETERM`, `AESEQ`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # Visit numbers</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <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">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">  adex &lt;- adex %&gt;% dplyr::mutate(AVISITN = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</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">#' @param max_n_aes (`integer`)\cr Maximum number of AEs per patient. Defaults to 10.</pre>
+                      <pre class="language-r">    AVISIT == "SCREENING" ~ -1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <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">#' @template param_cached</pre>
+                      <pre class="language-r">    AVISIT == "BASELINE" ~ 0,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <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">#' @templateVar data adae</pre>
+                      <pre class="language-r">    (grepl("^WEEK", AVISIT) | grepl("^CYCLE", AVISIT)) ~ as.numeric(AVISIT) - 2,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <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">#'</pre>
+                      <pre class="language-r">    TRUE ~ 999000</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `data.frame`</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">159</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">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="never">
-                    <td class="num">20</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">#' @examples</pre>
+                      <pre class="language-r">  adex2 &lt;- split(adex, adex$USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, study_duration = 2, seed = 1)</pre>
+                      <pre class="language-r">    lapply(function(pinfo) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      pinfo %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adae &lt;- radae(adsl, seed = 2)</pre>
+                      <pre class="language-r">        dplyr::filter(PARAMCD == "DOSE") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adae</pre>
+                      <pre class="language-r">        dplyr::group_by(USUBJID, PARCAT2, AVISIT) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        dplyr::mutate(changeind = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Add metadata.</pre>
+                      <pre class="language-r">          AVISIT == "SCREENING" ~ 0,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' aag &lt;- utils::read.table(</pre>
+                      <pre class="language-r">          AVISIT != "SCREENING" ~ sample(c(-1, 0, 1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   sep = ",", header = TRUE,</pre>
+                      <pre class="language-r">            size = 1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   text = paste(</pre>
+                      <pre class="language-r">            prob = c(0.25, 0.5, 0.25),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "NAMVAR,SRCVAR,GRPTYPE,REFNAME,REFTERM,SCOPE",</pre>
+                      <pre class="language-r">            replace = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "CQ01NAM,AEDECOD,CUSTOM,D.2.1.5.3/A.1.1.1.1 AESI,dcd D.2.1.5.3,",</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "CQ01NAM,AEDECOD,CUSTOM,D.2.1.5.3/A.1.1.1.1 AESI,dcd A.1.1.1.1,",</pre>
+                      <pre class="language-r">        )) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "SMQ01NAM,AEDECOD,SMQ,C.1.1.1.3/B.2.2.3.1 AESI,dcd C.1.1.1.3,BROAD",</pre>
+                      <pre class="language-r">        dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "SMQ01NAM,AEDECOD,SMQ,C.1.1.1.3/B.2.2.3.1 AESI,dcd B.2.2.3.1,BROAD",</pre>
+                      <pre class="language-r">        dplyr::group_by(USUBJID, PARCAT2) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "SMQ02NAM,AEDECOD,SMQ,Y.9.9.9.9/Z.9.9.9.9 AESI,dcd Y.9.9.9.9,NARROW",</pre>
+                      <pre class="language-r">        dplyr::mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "SMQ02NAM,AEDECOD,SMQ,Y.9.9.9.9/Z.9.9.9.9 AESI,dcd Z.9.9.9.9,NARROW",</pre>
+                      <pre class="language-r">          csum = cumsum(changeind),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     sep = "\n"</pre>
+                      <pre class="language-r">          changeind = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ), stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">            csum &lt;= -3 ~ sample(c(0, 1), size = 1, prob = c(0.5, 0.5)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">            csum &gt;= 3 ~ sample(c(0, -1), size = 1, prob = c(0.5, 0.5)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            TRUE ~ changeind</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adae &lt;- radae(adsl, lookup_aag = aag)</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">183</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">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' with(</pre>
+                      <pre class="language-r">        dplyr::mutate(csum = cumsum(changeind)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   adae,</pre>
+                      <pre class="language-r">        dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   cbind(</pre>
+                      <pre class="language-r">        dplyr::group_by(USUBJID, PARCAT2, AVISIT) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     table(AEDECOD, SMQ01NAM),</pre>
+                      <pre class="language-r">        dplyr::mutate(AVAL = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     table(AEDECOD, CQ01NAM)</pre>
+                      <pre class="language-r">          csum == -2 ~ 480,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">          csum == -1 ~ 720,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">          csum == 0 ~ 960,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">191</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">radae &lt;- function(adsl,</pre>
+                      <pre class="language-r">          csum == 1 ~ 1200,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">192</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  max_n_aes = 10L,</pre>
+                      <pre class="language-r">          csum == 2 ~ 1440</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  lookup = NULL,</pre>
+                      <pre class="language-r">        )) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  lookup_aag = NULL,</pre>
+                      <pre class="language-r">        dplyr::select(-c("csum", "changeind")) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">195</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  seed = NULL,</pre>
+                      <pre class="language-r">        dplyr::ungroup()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  na_percentage = 0,</pre>
+                      <pre class="language-r">    }) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  na_vars = list(</pre>
+                      <pre class="language-r">    Reduce(rbind, .)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    AEBODSYS = c(NA, 0.1),</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">199</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    AEDECOD = c(1234, 0.1),</pre>
+                      <pre class="language-r">  adex_tmp &lt;- dplyr::full_join(adex2, adex, by = names(adex))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <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">                    AETOXGR = c(1234, 0.1)</pre>
+                      <pre class="language-r">  adex &lt;- adex_tmp %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">201</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ),</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  cached = FALSE) {</pre>
+                      <pre class="language-r">    dplyr::mutate(AVAL = ifelse(PARAMCD == "NDOSE", 1, AVAL)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">4<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">  checkmate::assert_flag(cached)</pre>
+                      <pre class="language-r">    dplyr::mutate(AVAL = ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">4<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">  if (cached) {</pre>
+                      <pre class="language-r">      PARAMCD == "TNDOSE",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">64</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">    return(get_cached_data("cadae"))</pre>
+                      <pre class="language-r">      sum(AVAL[PARAMCD == "NDOSE"]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">206</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      AVAL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">207</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">67</td>
+                    <td class="num">208</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">68</td>
+                    <td class="num">209</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(max_n_aes, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID, STUDYID, PARCAT2) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
+                    <td class="num">210</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
+                      <pre class="language-r">    dplyr::mutate(AVAL = ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">70</td>
+                    <td class="num">211</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">      PARAMCD == "TDOSE",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">71</td>
+                    <td class="num">212</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
+                      <pre class="language-r">      sum(AVAL[PARAMCD == "DOSE"]),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">213</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      AVAL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</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">73</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # check lookup parameters</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
+                    <td class="num">216</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(lookup, null.ok = TRUE)</pre>
+                      <pre class="language-r">  adex &lt;- rcd_var_relabel(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
+                    <td class="num">217</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lookup_ae &lt;- if (!is.null(lookup)) {</pre>
+                      <pre class="language-r">    adex,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">76</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">218</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lookup</pre>
+                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">220</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">78</td>
-                    <td class="coverage">3<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">    tibble::tribble(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">3<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">      ~AEBODSYS, ~AELLT, ~AEDECOD, ~AEHLT, ~AEHLGT, ~AETOXGR, ~AESOC, ~AESER, ~AEREL,</pre>
+                      <pre class="language-r">  # merge ADSL to be able to add ADEX date and study day variables</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">80</td>
+                    <td class="num">223</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "cl A.1", "llt A.1.1.1.1", "dcd A.1.1.1.1", "hlt A.1.1.1", "hlgt A.1.1", "1", "cl A", "N", "N",</pre>
+                      <pre class="language-r">  adex &lt;- dplyr::inner_join(adex, adsl, by = c("STUDYID", "USUBJID")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
+                    <td class="num">224</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "cl A.1", "llt A.1.1.1.2", "dcd A.1.1.1.2", "hlt A.1.1.1", "hlgt A.1.1", "2", "cl A", "Y", "N",</pre>
+                      <pre class="language-r">    dplyr::rowwise() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
+                    <td class="num">225</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "cl B.1", "llt B.1.1.1.1", "dcd B.1.1.1.1", "hlt B.1.1.1", "hlgt B.1.1", "5", "cl B", "Y", "Y",</pre>
+                      <pre class="language-r">    dplyr::mutate(TRTENDT = lubridate::date(dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
+                    <td class="num">226</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "cl B.2", "llt B.2.1.2.1", "dcd B.2.1.2.1", "hlt B.2.1.2", "hlgt B.2.1", "3", "cl B", "N", "N",</pre>
+                      <pre class="language-r">      is.na(TRTEDTM) ~ lubridate::floor_date(lubridate::date(TRTSDTM) + study_duration_secs, unit = "day"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
+                    <td class="num">227</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "cl B.2", "llt B.2.2.3.1", "dcd B.2.2.3.1", "hlt B.2.2.3", "hlgt B.2.2", "1", "cl B", "Y", "N",</pre>
+                      <pre class="language-r">      TRUE ~ TRTEDTM</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>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
+                    <td class="num">229</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "cl C.1", "llt C.1.1.1.3", "dcd C.1.1.1.3", "hlt C.1.1.1", "hlgt C.1.1", "4", "cl C", "N", "Y",</pre>
+                      <pre class="language-r">    dplyr::mutate(ASTDTM = sample(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
+                    <td class="num">230</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "cl C.2", "llt C.2.1.2.1", "dcd C.2.1.2.1", "hlt C.2.1.2", "hlgt C.2.1", "2", "cl C", "N", "Y",</pre>
+                      <pre class="language-r">      seq(lubridate::as_datetime(TRTSDTM), lubridate::as_datetime(TRTENDT), by = "day"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">87</td>
+                    <td class="num">231</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "cl D.1", "llt D.1.1.1.1", "dcd D.1.1.1.1", "hlt D.1.1.1", "hlgt D.1.1", "5", "cl D", "Y", "Y",</pre>
+                      <pre class="language-r">      size = 1</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">232</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )) %&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">    # add 1 to end of range incase both values passed to sample() are the same</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
+                    <td class="num">234</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "cl D.1", "llt D.1.1.4.2", "dcd D.1.1.4.2", "hlt D.1.1.4", "hlgt D.1.1", "3", "cl D", "N", "N",</pre>
+                      <pre class="language-r">    dplyr::mutate(AENDTM = sample(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">89</td>
+                    <td class="num">235</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "cl D.2", "llt D.2.1.5.3", "dcd D.2.1.5.3", "hlt D.2.1.5", "hlgt D.2.1", "1", "cl D", "N", "Y"</pre>
+                      <pre class="language-r">      seq(lubridate::as_datetime(ASTDTM), lubridate::as_datetime(TRTENDT + 1), by = "day"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">236</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      size = 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">237</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">92</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">238</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    dplyr::select(-TRTENDT) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">93</td>
+                    <td class="num">239</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(lookup_aag, null.ok = TRUE)</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">94</td>
+                    <td class="num">240</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  aag &lt;- if (!is.null(lookup_aag)) {</pre>
+                      <pre class="language-r">    dplyr::arrange(STUDYID, USUBJID, ASTDTM)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">95</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">241</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lookup_aag</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">242</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">97</td>
+                    <td class="num">243</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    aag &lt;- utils::read.table(</pre>
+                      <pre class="language-r">  adex &lt;- adex %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">98</td>
+                    <td class="num">244</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sep = ",", header = TRUE,</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">99</td>
+                    <td class="num">245</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      text = paste(</pre>
+                      <pre class="language-r">    dplyr::mutate(EXSEQ = seq_len(dplyr::n())) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">100</td>
+                    <td class="num">246</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "NAMVAR,SRCVAR,GRPTYPE,REFNAME,REFTERM,SCOPE",</pre>
+                      <pre class="language-r">    dplyr::mutate(ASEQ = EXSEQ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">101</td>
+                    <td class="num">247</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "CQ01NAM,AEDECOD,CUSTOM,D.2.1.5.3/A.1.1.1.1 AESI,dcd D.2.1.5.3,",</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">102</td>
+                    <td class="num">248</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "CQ01NAM,AEDECOD,CUSTOM,D.2.1.5.3/A.1.1.1.1 AESI,dcd A.1.1.1.1,",</pre>
+                      <pre class="language-r">    dplyr::arrange(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
+                    <td class="num">249</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "SMQ01NAM,AEDECOD,SMQ,C.1.1.1.3/B.2.2.3.1 AESI,dcd C.1.1.1.3,BROAD",</pre>
+                      <pre class="language-r">      STUDYID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">104</td>
+                    <td class="num">250</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "SMQ01NAM,AEDECOD,SMQ,C.1.1.1.3/B.2.2.3.1 AESI,dcd B.2.2.3.1,BROAD",</pre>
+                      <pre class="language-r">      USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">105</td>
+                    <td class="num">251</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "SMQ02NAM,AEDECOD,SMQ,Y.9.9.9.9/Z.9.9.9.9 AESI,dcd Y.9.9.9.9,NARROW",</pre>
+                      <pre class="language-r">      PARAMCD,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
+                    <td class="num">252</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "SMQ02NAM,AEDECOD,SMQ,Y.9.9.9.9/Z.9.9.9.9 AESI,dcd Z.9.9.9.9,NARROW",</pre>
+                      <pre class="language-r">      ASTDTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
+                    <td class="num">253</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sep = "\n"</pre>
+                      <pre class="language-r">      AVISITN,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
+                    <td class="num">254</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">      EXSEQ</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <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">110</td>
+                    <td class="num">256</td>
                     <td class="coverage"></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">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # Adding EXDOSFRQ</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
+                    <td class="num">258</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(seed)) set.seed(seed)</pre>
+                      <pre class="language-r">  adex &lt;- adex %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
+                    <td class="num">259</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</pre>
+                      <pre class="language-r">    dplyr::mutate(EXDOSFRQ = dplyr::case_when(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">260</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      PARCAT1 == "INDIVIDUAL" ~ "ONCE",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">261</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      TRUE ~ ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</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">263</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="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # Adding EXROUTE</pre>
+                    </td>
+                  </tr>
                   <tr class="covered">
-                    <td class="num">115</td>
+                    <td class="num">265</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adae &lt;- Map(</pre>
+                      <pre class="language-r">  adex &lt;- adex %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
+                    <td class="num">266</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(id, sid) {</pre>
+                      <pre class="language-r">    dplyr::mutate(EXROUTE = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">267</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_aes &lt;- sample(c(0, seq_len(max_n_aes)), 1)</pre>
+                      <pre class="language-r">      PARCAT1 == "INDIVIDUAL" ~ sample(c("INTRAVENOUS", "SUBCUTANEOUS"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">268</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      i &lt;- sample(seq_len(nrow(lookup_ae)), n_aes, TRUE)</pre>
+                      <pre class="language-r">        nrow(adex),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">269</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::mutate(</pre>
+                      <pre class="language-r">        replace = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">270</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lookup_ae[i, ],</pre>
+                      <pre class="language-r">        prob = c(0.9, 0.1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">30<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">        USUBJID = id,</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">272</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        STUDYID = sid</pre>
+                      <pre class="language-r">      TRUE ~ ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</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">124</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">275</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # Fix VISIT according to AVISIT</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">125</td>
+                    <td class="num">276</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl$USUBJID,</pre>
+                      <pre class="language-r">  adex &lt;- adex %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">126</td>
+                    <td class="num">277</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl$STUDYID</pre>
+                      <pre class="language-r">    dplyr::mutate(VISIT = AVISIT)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">278</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">128</td>
-                    <td class="coverage">3<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">    Reduce(rbind, .) %&gt;%</pre>
+                      <pre class="language-r">  # Hack for VISITDY - to fix in ADSL</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
+                    <td class="num">280</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    `[`(c(10, 11, 1, 2, 3, 4, 5, 6, 7, 8, 9)) %&gt;%</pre>
+                      <pre class="language-r">  visit_levels &lt;- str_extract(levels(adex$VISIT), pattern = "[0-9]+")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">130</td>
+                    <td class="num">281</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(AETERM = gsub("dcd", "trm", AEDECOD)) %&gt;%</pre>
+                      <pre class="language-r">  vl_extracted &lt;- vapply(visit_levels, function(x) as.numeric(x[2]), numeric(1))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">131</td>
+                    <td class="num">282</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(AESEV = dplyr::case_when(</pre>
+                      <pre class="language-r">  vl_extracted &lt;- c(-1, 1, vl_extracted[!is.na(vl_extracted)])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">3<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">      AETOXGR == 1 ~ "MILD",</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">  # Adding VISITDY</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
+                    <td class="num">285</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AETOXGR %in% c(2, 3) ~ "MODERATE",</pre>
+                      <pre class="language-r">  adex &lt;- adex %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
+                    <td class="num">286</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AETOXGR %in% c(4, 5) ~ "SEVERE"</pre>
+                      <pre class="language-r">    dplyr::mutate(VISITDY = as.numeric(as.character(factor(VISIT, labels = vl_extracted))))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</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">136</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # Exposure time stamps</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">137</td>
+                    <td class="num">289</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adae &lt;- var_relabel(</pre>
+                      <pre class="language-r">  adex &lt;- adex %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">138</td>
+                    <td class="num">290</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adae,</pre>
+                      <pre class="language-r">    dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">139</td>
+                    <td class="num">291</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
+                      <pre class="language-r">      EXSTDTC = TRTSDTM + lubridate::days(VISITDY),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
+                    <td class="num">292</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</pre>
+                      <pre class="language-r">      EXENDTC = EXSTDTC + lubridate::hours(1),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">293</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      EXSTDY = VISITDY,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">294</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      EXENDY = VISITDY</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</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">142</td>
+                    <td class="num">296</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">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # merge adsl to be able to add AE date and study day variables</pre>
+                      <pre class="language-r">  # Correcting last exposure to treatment</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">144</td>
+                    <td class="num">298</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adae &lt;- dplyr::inner_join(adae, adsl, by = c("STUDYID", "USUBJID")) %&gt;%</pre>
+                      <pre class="language-r">  adex &lt;- adex %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">145</td>
+                    <td class="num">299</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::rowwise() %&gt;%</pre>
+                      <pre class="language-r">    dplyr::group_by(SUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">146</td>
+                    <td class="num">300</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(TRTENDT = lubridate::date(dplyr::case_when(</pre>
+                      <pre class="language-r">    dplyr::mutate(TRTEDTM = lubridate::as_datetime(max(EXENDTC, na.rm = TRUE))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">147</td>
+                    <td class="num">301</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is.na(TRTEDTM) ~ lubridate::floor_date(lubridate::date(TRTSDTM) + study_duration_secs, unit = "day"),</pre>
+                      <pre class="language-r">    dplyr::ungroup()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">3<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">      TRUE ~ TRTEDTM</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))) %&gt;%</pre>
+                      <pre class="language-r">  # Fixing Date - to add into ADSL</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">150</td>
+                    <td class="num">304</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ASTDTM = sample(</pre>
+                      <pre class="language-r">  adex &lt;- adex %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">151</td>
+                    <td class="num">305</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      seq(lubridate::as_datetime(TRTSDTM), lubridate::as_datetime(TRTENDT), by = "day"),</pre>
+                      <pre class="language-r">    dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">152</td>
+                    <td class="num">306</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size = 1</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">153</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )) %&gt;%</pre>
+                      <pre class="language-r">      TRTSDT = lubridate::date(TRTSDTM),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">154</td>
+                    <td class="num">307</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ASTDY = ceiling(difftime(ASTDTM, TRTSDTM, units = "days"))) %&gt;%</pre>
+                      <pre class="language-r">      TRTEDT = lubridate::date(TRTEDTM)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # add 1 to end of range incase both values passed to sample() are the same</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">3<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">    dplyr::mutate(AENDTM = sample(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">310</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      seq(lubridate::as_datetime(ASTDTM), lubridate::as_datetime(TRTENDT + 1), by = "day"),</pre>
+                      <pre class="language-r">  # Fixing analysis time stamps</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">158</td>
+                    <td class="num">311</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size = 1</pre>
+                      <pre class="language-r">  adex &lt;- adex %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">159</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">312</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">160</td>
+                    <td class="num">313</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(AENDY = ceiling(difftime(AENDTM, TRTSDTM, units = "days"))) %&gt;%</pre>
+                      <pre class="language-r">      ASTDY = EXSTDY,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">161</td>
+                    <td class="num">314</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(LDOSEDTM = dplyr::case_when(</pre>
+                      <pre class="language-r">      AENDY = EXENDY,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">162</td>
+                    <td class="num">315</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRTSDTM &lt; ASTDTM ~ lubridate::as_datetime(stats::runif(1, TRTSDTM, ASTDTM)),</pre>
+                      <pre class="language-r">      ASTDTM = EXSTDTC,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">163</td>
+                    <td class="num">316</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ ASTDTM</pre>
+                      <pre class="language-r">      AENDTM = EXENDTC</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">317</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">165</td>
-                    <td class="coverage">3<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">    dplyr::mutate(LDRELTM = as.numeric(difftime(ASTDTM, LDOSEDTM, units = "mins"))) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">166</td>
+                    <td class="num">319</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(-TRTENDT) %&gt;%</pre>
+                      <pre class="language-r">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">320</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">    adex &lt;- mutate_na(ds = adex, na_vars = na_vars, na_percentage = na_percentage)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">3<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">    dplyr::arrange(STUDYID, USUBJID, ASTDTM, AETERM)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">322</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">3<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">  adae &lt;- adae %&gt;%</pre>
+                      <pre class="language-r">  # apply metadata</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
+                    <td class="num">324</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">  adex &lt;- apply_metadata(adex, "metadata/ADEX.yml")</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">325</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(AESEQ = seq_len(dplyr::n())) %&gt;%</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">326</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ASEQ = AESEQ) %&gt;%</pre>
+                      <pre class="language-r"></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">327</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r"># Equivalent of stringr::str_extract_all()</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">328</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(</pre>
+                      <pre class="language-r">str_extract &lt;- function(string, pattern) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">329</td>
+                    <td class="coverage">2850<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID,</pre>
+                      <pre class="language-r">  regmatches(string, gregexpr(pattern, string))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">3<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">      USUBJID,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">3<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/radae.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">      ASTDTM,</pre>
+                      <pre class="language-r">#' Adverse Event Analysis Dataset (ADAE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">3<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">      AETERM,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">3<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">      AESEQ</pre>
+                      <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>
+                      <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"></pre>
+                      <pre class="language-r">#' Function for generating random Adverse Event Analysis Dataset for a given</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">3<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">  outcomes &lt;- c(</pre>
+                      <pre class="language-r">#' Subject-Level Analysis Dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">3<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">    "UNKNOWN",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">3<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">    "NOT RECOVERED/NOT RESOLVED",</pre>
+                      <pre class="language-r">#' @details One record per each record in the corresponding SDTM domain.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">3<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">    "RECOVERED/RESOLVED WITH SEQUELAE",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">3<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">    "RECOVERING/RESOLVING",</pre>
+                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `ASTDTM`, `AETERM`, `AESEQ`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">3<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">    "RECOVERED/RESOLVED"</pre>
+                      <pre class="language-r">#'</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">  )</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</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"></pre>
+                      <pre class="language-r">#' @param max_n_aes (`integer`)\cr Maximum number of AEs per patient. Defaults to 10.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">3<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">  actions &lt;- c(</pre>
+                      <pre class="language-r">#' @template param_cached</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">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "DOSE RATE REDUCED",</pre>
+                      <pre class="language-r">#' @templateVar data adae</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">193</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">    "UNKNOWN",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">194</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">    "NOT APPLICABLE",</pre>
+                      <pre class="language-r">#' @return `data.frame`</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">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "DRUG INTERRUPTED",</pre>
+                      <pre class="language-r">#' @export</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">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "DRUG WITHDRAWN",</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">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "DOSE INCREASED",</pre>
+                      <pre class="language-r">#' @examples</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">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "DOSE NOT CHANGED",</pre>
+                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, study_duration = 2, seed = 1)</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">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "DOSE REDUCED",</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">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "NOT EVALUABLE"</pre>
+                      <pre class="language-r">#' adae &lt;- radae(adsl, seed = 2)</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">#' adae</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"></pre>
+                      <pre class="language-r">#'</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">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adae &lt;- adae %&gt;%</pre>
+                      <pre class="language-r">#' # Add metadata.</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">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(AEOUT = factor(ifelse(</pre>
+                      <pre class="language-r">#' aag &lt;- utils::read.table(</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">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AETOXGR == "5",</pre>
+                      <pre class="language-r">#'   sep = ",", header = TRUE,</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">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "FATAL",</pre>
+                      <pre class="language-r">#'   text = paste(</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">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      as.character(sample_fct(outcomes, nrow(adae), prob = c(0.1, 0.2, 0.1, 0.3, 0.3)))</pre>
+                      <pre class="language-r">#'     "NAMVAR,SRCVAR,GRPTYPE,REFNAME,REFTERM,SCOPE",</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">    ))) %&gt;%</pre>
+                      <pre class="language-r">#'     "CQ01NAM,AEDECOD,CUSTOM,D.2.1.5.3/A.1.1.1.1 AESI,dcd D.2.1.5.3,",</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">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(AEACN = factor(ifelse(</pre>
+                      <pre class="language-r">#'     "CQ01NAM,AEDECOD,CUSTOM,D.2.1.5.3/A.1.1.1.1 AESI,dcd A.1.1.1.1,",</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">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AETOXGR == "5",</pre>
+                      <pre class="language-r">#'     "SMQ01NAM,AEDECOD,SMQ,C.1.1.1.3/B.2.2.3.1 AESI,dcd C.1.1.1.3,BROAD",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</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">      "NOT EVALUABLE",</pre>
+                      <pre class="language-r">#'     "SMQ01NAM,AEDECOD,SMQ,C.1.1.1.3/B.2.2.3.1 AESI,dcd B.2.2.3.1,BROAD",</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">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      as.character(sample_fct(actions, nrow(adae), prob = c(0.05, 0.05, 0.05, 0.01, 0.05, 0.1, 0.45, 0.1, 0.05)))</pre>
+                      <pre class="language-r">#'     "SMQ02NAM,AEDECOD,SMQ,Y.9.9.9.9/Z.9.9.9.9 AESI,dcd Y.9.9.9.9,NARROW",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))) %&gt;%</pre>
+                      <pre class="language-r">#'     "SMQ02NAM,AEDECOD,SMQ,Y.9.9.9.9/Z.9.9.9.9 AESI,dcd Z.9.9.9.9,NARROW",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">3<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">    dplyr::mutate(AESDTH = dplyr::case_when(</pre>
+                      <pre class="language-r">#'     sep = "\n"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">3<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">      AEOUT == "FATAL" ~ "Y",</pre>
+                      <pre class="language-r">#'   ), stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">3<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">      TRUE ~ "N"</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</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">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">3<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::mutate(TRTEMFL = ifelse(ASTDTM &gt;= TRTSDTM, "Y", "")) %&gt;%</pre>
+                      <pre class="language-r">#' adae &lt;- radae(adsl, lookup_aag = aag)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</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">    dplyr::mutate(AECONTRT = sample(c("Y", "N"), prob = c(0.4, 0.6), size = dplyr::n(), replace = TRUE)) %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">3<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">    dplyr::mutate(</pre>
+                      <pre class="language-r">#' with(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">3<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">      ANL01FL = ifelse(TRTEMFL == "Y" &amp; ASTDTM &lt;= TRTEDTM + lubridate::month(1), "Y", "")</pre>
+                      <pre class="language-r">#'   adae,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) %&gt;%</pre>
+                      <pre class="language-r">#'   cbind(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">3<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">    dplyr::mutate(ANL01FL = ifelse(is.na(ANL01FL), "", ANL01FL))</pre>
+                      <pre class="language-r">#'     table(AEDECOD, SMQ01NAM),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     table(AEDECOD, CQ01NAM)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">225</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">  adae &lt;- adae %&gt;%</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">226</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">    dplyr::mutate(AERELNST = sample(c("Y", "N"), prob = c(0.4, 0.6), size = dplyr::n(), replace = TRUE)) %&gt;%</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">227</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">    dplyr::mutate(AEACNOTH = sample(</pre>
+                      <pre class="language-r">radae &lt;- function(adsl,</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">51</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = c("MEDICATION", "PROCEDURE/SURGERY", "SUBJECT DISCONTINUED FROM STUDY", "NONE"),</pre>
+                      <pre class="language-r">                  max_n_aes = 10L,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">229</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">      prob = c(0.2, 0.4, 0.2, 0.2),</pre>
+                      <pre class="language-r">                  lookup = NULL,</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">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size = dplyr::n(),</pre>
+                      <pre class="language-r">                  lookup_aag = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">231</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">      replace = TRUE</pre>
+                      <pre class="language-r">                  seed = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">                  na_percentage = 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                  na_vars = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Split metadata for AEs of special interest (AESI).</pre>
+                      <pre class="language-r">                    AEBODSYS = c(NA, 0.1),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">3<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">  l_aag &lt;- split(aag, interaction(aag$NAMVAR, aag$SRCVAR, aag$GRPTYPE, drop = TRUE))</pre>
+                      <pre class="language-r">                    AEDECOD = c(1234, 0.1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                    AETOXGR = c(1234, 0.1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Create AESI flags</pre>
+                      <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">                  cached = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">62</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  l_aesi &lt;- lapply(l_aag, function(d_adag, d_adae) {</pre>
+                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">63</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    names(d_adag)[names(d_adag) == "REFTERM"] &lt;- d_adag$SRCVAR[1]</pre>
+                      <pre class="language-r">  if (cached) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">9<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">    names(d_adag)[names(d_adag) == "REFNAME"] &lt;- d_adag$NAMVAR[1]</pre>
+                      <pre class="language-r">    return(get_cached_data("cadae"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">65</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="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">9<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">    if (d_adag$GRPTYPE[1] == "CUSTOM") {</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">243</td>
+                    <td class="num">68</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      d_adag &lt;- d_adag[-which(names(d_adag) == "SCOPE")]</pre>
+                      <pre class="language-r">  checkmate::assert_integer(max_n_aes, len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">6<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">    } else if (d_adag$GRPTYPE[1] == "SMQ") {</pre>
+                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">6<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">      names(d_adag)[names(d_adag) == "SCOPE"] &lt;- paste0(substr(d_adag$NAMVAR[1], 1, 5), "SC")</pre>
+                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">246</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">71</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_true(na_percentage &lt; 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</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">248</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">    d_adag &lt;- d_adag[-which(names(d_adag) %in% c("NAMVAR", "SRCVAR", "GRPTYPE"))]</pre>
+                      <pre class="language-r">  # check lookup parameters</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    d_new &lt;- dplyr::left_join(x = d_adae, y = d_adag, by = intersect(names(d_adae), names(d_adag)))</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(lookup, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">75</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    d_new[, dplyr::setdiff(names(d_new), names(d_adae)), drop = FALSE]</pre>
+                      <pre class="language-r">  lookup_ae &lt;- if (!is.null(lookup)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">76</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }, adae)</pre>
+                      <pre class="language-r">    lookup</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</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>
                   <tr class="covered">
-                    <td class="num">253</td>
+                    <td class="num">78</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adae &lt;- dplyr::bind_cols(adae, l_aesi)</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">    tibble::tribble(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">255</td>
+                    <td class="num">79</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adae &lt;- dplyr::mutate(adae, AERELNST = sample(</pre>
+                      <pre class="language-r">      ~AEBODSYS, ~AELLT, ~AEDECOD, ~AEHLT, ~AEHLGT, ~AETOXGR, ~AESOC, ~AESER, ~AEREL,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">256</td>
+                    <td class="num">80</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = c("CONCURRENT ILLNESS", "OTHER", "DISEASE UNDER STUDY", "NONE"),</pre>
+                      <pre class="language-r">      "cl A.1", "llt A.1.1.1.1", "dcd A.1.1.1.1", "hlt A.1.1.1", "hlgt A.1.1", "1", "cl A", "N", "N",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">257</td>
+                    <td class="num">81</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    prob = c(0.3, 0.3, 0.3, 0.1),</pre>
+                      <pre class="language-r">      "cl A.1", "llt A.1.1.1.2", "dcd A.1.1.1.2", "hlt A.1.1.1", "hlgt A.1.1", "2", "cl A", "Y", "N",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">258</td>
+                    <td class="num">82</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size = dplyr::n(),</pre>
+                      <pre class="language-r">      "cl B.1", "llt B.1.1.1.1", "dcd B.1.1.1.1", "hlt B.1.1.1", "hlgt B.1.1", "5", "cl B", "Y", "Y",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">259</td>
+                    <td class="num">83</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    replace = TRUE</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">      "cl B.2", "llt B.2.1.2.1", "dcd B.2.1.2.1", "hlt B.2.1.2", "hlgt B.2.1", "3", "cl B", "N", "N",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">261</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      "cl B.2", "llt B.2.2.3.1", "dcd B.2.2.3.1", "hlt B.2.2.3", "hlgt B.2.2", "1", "cl B", "Y", "N",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">262</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">85</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      "cl C.1", "llt C.1.1.1.3", "dcd C.1.1.1.3", "hlt C.1.1.1", "hlgt C.1.1", "4", "cl C", "N", "Y",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">263</td>
+                    <td class="num">86</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adae &lt;- adae %&gt;%</pre>
+                      <pre class="language-r">      "cl C.2", "llt C.2.1.2.1", "dcd C.2.1.2.1", "hlt C.2.1.2", "hlgt C.2.1", "2", "cl C", "N", "Y",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">264</td>
+                    <td class="num">87</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(AES_FLAG = sample(</pre>
+                      <pre class="language-r">      "cl D.1", "llt D.1.1.1.1", "dcd D.1.1.1.1", "hlt D.1.1.1", "hlgt D.1.1", "5", "cl D", "Y", "Y",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">265</td>
+                    <td class="num">88</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = c("AESLIFE", "AESHOSP", "AESDISAB", "AESCONG", "AESMIE"),</pre>
+                      <pre class="language-r">      "cl D.1", "llt D.1.1.4.2", "dcd D.1.1.4.2", "hlt D.1.1.4", "hlgt D.1.1", "3", "cl D", "N", "N",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">266</td>
+                    <td class="num">89</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      prob = c(0.1, 0.2, 0.2, 0.2, 0.3),</pre>
+                      <pre class="language-r">      "cl D.2", "llt D.2.1.5.3", "dcd D.2.1.5.3", "hlt D.2.1.5", "hlgt D.2.1", "1", "cl D", "N", "Y"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">267</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">      size = dplyr::n(),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">3<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">      replace = TRUE</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">92</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">270</td>
+                    <td class="num">93</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(AES_FLAG = dplyr::case_when(</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(lookup_aag, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">271</td>
+                    <td class="num">94</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AESDTH == "Y" ~ "AESDTH",</pre>
+                      <pre class="language-r">  aag &lt;- if (!is.null(lookup_aag)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">95</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ AES_FLAG</pre>
+                      <pre class="language-r">    lookup_aag</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">96</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">274</td>
+                    <td class="num">97</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(</pre>
+                      <pre class="language-r">    aag &lt;- utils::read.table(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">275</td>
+                    <td class="num">98</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AESCONG = ifelse(AES_FLAG == "AESCONG", "Y", "N"),</pre>
+                      <pre class="language-r">      sep = ",", header = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">276</td>
+                    <td class="num">99</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AESDISAB = ifelse(AES_FLAG == "AESDISAB", "Y", "N"),</pre>
+                      <pre class="language-r">      text = paste(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">277</td>
+                    <td class="num">100</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AESHOSP = ifelse(AES_FLAG == "AESHOSP", "Y", "N"),</pre>
+                      <pre class="language-r">        "NAMVAR,SRCVAR,GRPTYPE,REFNAME,REFTERM,SCOPE",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">278</td>
+                    <td class="num">101</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AESLIFE = ifelse(AES_FLAG == "AESLIFE", "Y", "N"),</pre>
+                      <pre class="language-r">        "CQ01NAM,AEDECOD,CUSTOM,D.2.1.5.3/A.1.1.1.1 AESI,dcd D.2.1.5.3,",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">279</td>
+                    <td class="num">102</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AESMIE = ifelse(AES_FLAG == "AESMIE", "Y", "N")</pre>
+                      <pre class="language-r">        "CQ01NAM,AEDECOD,CUSTOM,D.2.1.5.3/A.1.1.1.1 AESI,dcd A.1.1.1.1,",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">280</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">    ) %&gt;%</pre>
+                      <pre class="language-r">        "SMQ01NAM,AEDECOD,SMQ,C.1.1.1.3/B.2.2.3.1 AESI,dcd C.1.1.1.3,BROAD",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">281</td>
+                    <td class="num">104</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(-"AES_FLAG")</pre>
+                      <pre class="language-r">        "SMQ01NAM,AEDECOD,SMQ,C.1.1.1.3/B.2.2.3.1 AESI,dcd B.2.2.3.1,BROAD",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">282</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"></pre>
+                      <pre class="language-r">        "SMQ02NAM,AEDECOD,SMQ,Y.9.9.9.9/Z.9.9.9.9 AESI,dcd Y.9.9.9.9,NARROW",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">283</td>
+                    <td class="num">106</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
+                      <pre class="language-r">        "SMQ02NAM,AEDECOD,SMQ,Y.9.9.9.9/Z.9.9.9.9 AESI,dcd Z.9.9.9.9,NARROW",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">284</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adae &lt;- mutate_na(ds = adae, na_vars = na_vars, na_percentage = na_percentage)</pre>
+                      <pre class="language-r">        sep = "\n"</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ), stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</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">286</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">287</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # apply metadata</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">288</td>
+                    <td class="num">112</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adae &lt;- apply_metadata(adae, "metadata/ADAE.yml")</pre>
+                      <pre class="language-r">  if (!is.null(seed)) set.seed(seed)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</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">290</td>
+                    <td class="num">115</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(adae)</pre>
+                      <pre class="language-r">  adae &lt;- Map(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">291</td>
-                    <td class="coverage"></td>
+                  <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">}</pre>
+                      <pre class="language-r">    function(id, sid) {</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/radeg.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">117</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ECG Analysis Dataset (ADEG)</pre>
+                      <pre class="language-r">      n_aes &lt;- sample(c(0, seq_len(max_n_aes)), 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">118</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      i &lt;- sample(seq_len(nrow(lookup_ae)), n_aes, TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">      dplyr::mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">120</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        lookup_ae[i, ],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">121</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function for generating random dataset from ECG Analysis Dataset for a given</pre>
+                      <pre class="language-r">        USUBJID = id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">122</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Subject-Level Analysis Dataset.</pre>
+                      <pre class="language-r">        STUDYID = sid</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</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">8</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details One record per subject per parameter per analysis visit per analysis date.</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">125</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    adsl$USUBJID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `PARAMCD`, `BASETYPE`, `AVISITN`, `ATPTN`, `DTYPE`, `ADTM`, `EGSEQ`, `ASPID`</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">#' @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 egcat (`character vector`)\cr EG category values.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">14</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">#' @param max_n_eg (`integer`)\cr Maximum number of EG results per patient. Defaults to 10.</pre>
+                      <pre class="language-r">    adsl$STUDYID</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @template param_cached</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</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">#' @templateVar data adeg</pre>
+                      <pre class="language-r">    Reduce(rbind, .) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</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">    `[`(c(10, 11, 1, 2, 3, 4, 5, 6, 7, 8, 9)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</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">#' @return `data.frame`</pre>
+                      <pre class="language-r">    dplyr::mutate(AETERM = gsub("dcd", "trm", AEDECOD)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</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">#' @export</pre>
+                      <pre class="language-r">    dplyr::mutate(AESEV = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</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">#'</pre>
+                      <pre class="language-r">      AETOXGR == 1 ~ "MILD",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</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">#' @author tomlinsj, npaszty, Xuefeng Hou, dipietrc</pre>
+                      <pre class="language-r">      AETOXGR %in% c(2, 3) ~ "MODERATE",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</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">      AETOXGR %in% c(4, 5) ~ "SEVERE"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">135</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">24</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</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">137</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  adae &lt;- rcd_var_relabel(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</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">#' adeg &lt;- radeg(adsl, visit_format = "WEEK", n_assessments = 7L, seed = 2)</pre>
+                      <pre class="language-r">    adae,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</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">#' adeg</pre>
+                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</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">    USUBJID = "Unique Subject Identifier"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adeg &lt;- radeg(adsl, visit_format = "CYCLE", n_assessments = 2L, seed = 2)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adeg</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">radeg &lt;- function(adsl,</pre>
+                      <pre class="language-r">  # merge adsl to be able to add AE date and study day variables</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</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">                  egcat = c("INTERVAL", "INTERVAL", "MEASUREMENT", "FINDING"),</pre>
+                      <pre class="language-r">  adae &lt;- dplyr::inner_join(adae, adsl, by = c("STUDYID", "USUBJID")) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</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">                  param = c(</pre>
+                      <pre class="language-r">    dplyr::rowwise() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</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">                    "QT Duration",</pre>
+                      <pre class="language-r">    dplyr::mutate(TRTENDT = lubridate::date(dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</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">                    "RR Duration",</pre>
+                      <pre class="language-r">      is.na(TRTEDTM) ~ lubridate::floor_date(lubridate::date(TRTSDTM) + study_duration_secs, unit = "day"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <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">                    "Heart Rate",</pre>
+                      <pre class="language-r">      TRUE ~ TRTEDTM</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">                    "ECG Interpretation"</pre>
+                      <pre class="language-r">    ))) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</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">                  ),</pre>
+                      <pre class="language-r">    dplyr::mutate(ASTDTM = sample(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</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">                  paramcd = c("QT", "RR", "HR", "ECGINTP"),</pre>
+                      <pre class="language-r">      seq(lubridate::as_datetime(TRTSDTM), lubridate::as_datetime(TRTENDT), by = "day"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</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">                  paramu = c("msec", "msec", "beats/min", ""),</pre>
+                      <pre class="language-r">      size = 1</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">                  visit_format = "WEEK",</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</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">                  n_assessments = 5L,</pre>
+                      <pre class="language-r">    dplyr::mutate(ASTDY = ceiling(difftime(ASTDTM, TRTSDTM, units = "days"))) %&gt;%</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">                  n_days = 5L,</pre>
+                      <pre class="language-r">    # add 1 to end of range incase both values passed to sample() are the same</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <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">                  max_n_eg = 10L,</pre>
+                      <pre class="language-r">    dplyr::mutate(AENDTM = sample(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <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">                  lookup = NULL,</pre>
+                      <pre class="language-r">      seq(lubridate::as_datetime(ASTDTM), lubridate::as_datetime(TRTENDT + 1), by = "day"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <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">                  seed = NULL,</pre>
+                      <pre class="language-r">      size = 1</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">                  na_percentage = 0,</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  na_vars = list(</pre>
+                      <pre class="language-r">    dplyr::mutate(AENDY = ceiling(difftime(AENDTM, TRTSDTM, units = "days"))) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</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">                    ABLFL = c(1235, 0.1), BASE = c(NA, 0.1), BASEC = c(NA, 0.1),</pre>
+                      <pre class="language-r">    dplyr::mutate(LDOSEDTM = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    CHG = c(1234, 0.1), PCHG = c(1234, 0.1)</pre>
+                      <pre class="language-r">      TRTSDTM &lt; ASTDTM ~ lubridate::as_datetime(stats::runif(1, TRTSDTM, ASTDTM)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ),</pre>
+                      <pre class="language-r">      TRUE ~ ASTDTM</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">                  cached = FALSE) {</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">165</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
+                      <pre class="language-r">    dplyr::mutate(LDRELTM = as.numeric(difftime(ASTDTM, LDOSEDTM, units = "mins"))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">166</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (cached) {</pre>
+                      <pre class="language-r">    dplyr::select(-TRTENDT) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">167</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(get_cached_data("cadeg"))</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    dplyr::arrange(STUDYID, USUBJID, ASTDTM, AETERM)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></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_data_frame(adsl)</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_character(egcat, min.len = 1, any.missing = FALSE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
+                    <td class="num">170</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(param, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  adae &lt;- adae %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
+                    <td class="num">171</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(paramcd, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
+                    <td class="num">172</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(paramu, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">    dplyr::mutate(AESEQ = seq_len(dplyr::n())) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">63</td>
+                    <td class="num">173</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(visit_format)</pre>
+                      <pre class="language-r">    dplyr::mutate(ASEQ = AESEQ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">64</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_integer(n_assessments, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">65</td>
+                    <td class="num">175</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(n_days, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">    dplyr::arrange(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">66</td>
+                    <td class="num">176</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(max_n_eg, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">      STUDYID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">67</td>
+                    <td class="num">177</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(lookup, null.ok = TRUE)</pre>
+                      <pre class="language-r">      USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">68</td>
+                    <td class="num">178</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
+                      <pre class="language-r">      ASTDTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
+                    <td class="num">179</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">      AETERM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">70</td>
+                    <td class="num">180</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
+                      <pre class="language-r">      AESEQ</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>
+                      <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">  # validate and initialize related variables</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">73</td>
+                    <td class="num">183</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  egcat_init_list &lt;- relvar_init(param, egcat)</pre>
+                      <pre class="language-r">  outcomes &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
+                    <td class="num">184</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  param_init_list &lt;- relvar_init(param, paramcd)</pre>
+                      <pre class="language-r">    "UNKNOWN",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
+                    <td class="num">185</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  unit_init_list &lt;- relvar_init(param, paramu)</pre>
+                      <pre class="language-r">    "NOT RECOVERED/NOT RESOLVED",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    "RECOVERED/RESOLVED WITH SEQUELAE",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
+                    <td class="num">187</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(seed)) {</pre>
+                      <pre class="language-r">    "RECOVERING/RESOLVING",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
+                    <td class="num">188</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set.seed(seed)</pre>
+                      <pre class="language-r">    "RECOVERED/RESOLVED"</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="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
+                    <td class="num">191</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- expand.grid(</pre>
+                      <pre class="language-r">  actions &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
+                    <td class="num">192</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID = unique(adsl$STUDYID),</pre>
+                      <pre class="language-r">    "DOSE RATE REDUCED",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
+                    <td class="num">193</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID = adsl$USUBJID,</pre>
+                      <pre class="language-r">    "UNKNOWN",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
+                    <td class="num">194</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAM = as.factor(param_init_list$relvar1),</pre>
+                      <pre class="language-r">    "NOT APPLICABLE",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
+                    <td class="num">195</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVISIT = visit_schedule(visit_format = visit_format, n_assessments = n_assessments, n_days = n_days),</pre>
+                      <pre class="language-r">    "DRUG INTERRUPTED",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">87</td>
+                    <td class="num">196</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stringsAsFactors = 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">  )</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">90</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  # assign related variable values: PARAMxEGCAT are related</pre>
+                      <pre class="language-r">    "DRUG WITHDRAWN",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">91</td>
+                    <td class="num">197</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- adeg %&gt;% rel_var(</pre>
+                      <pre class="language-r">    "DOSE INCREASED",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">92</td>
+                    <td class="num">198</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_name = "EGCAT",</pre>
+                      <pre class="language-r">    "DOSE NOT CHANGED",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">93</td>
+                    <td class="num">199</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    related_var = "PARAM",</pre>
+                      <pre class="language-r">    "DOSE REDUCED",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">94</td>
+                    <td class="num">200</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_values = egcat_init_list$relvar2</pre>
+                      <pre class="language-r">    "NOT EVALUABLE"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">201</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">202</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>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  # assign related variable values: PARAMxPARAMCD are related</pre>
-                    </td>
-                  </tr>
                   <tr class="covered">
-                    <td class="num">98</td>
+                    <td class="num">203</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- adeg %&gt;% rel_var(</pre>
+                      <pre class="language-r">  adae &lt;- adae %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">99</td>
+                    <td class="num">204</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_name = "PARAMCD",</pre>
+                      <pre class="language-r">    dplyr::mutate(AEOUT = factor(ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">100</td>
+                    <td class="num">205</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    related_var = "PARAM",</pre>
+                      <pre class="language-r">      AETOXGR == "5",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">101</td>
+                    <td class="num">206</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_values = param_init_list$relvar2</pre>
+                      <pre class="language-r">      "FATAL",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">207</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      as.character(sample_fct(outcomes, nrow(adae), prob = c(0.1, 0.2, 0.1, 0.3, 0.3)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</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">104</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- adeg %&gt;% dplyr::mutate(AVAL = dplyr::case_when(</pre>
+                      <pre class="language-r">    ))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">105</td>
+                    <td class="num">209</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == "QT" ~ stats::rnorm(nrow(adeg), mean = 350, sd = 100),</pre>
+                      <pre class="language-r">    dplyr::mutate(AEACN = factor(ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
+                    <td class="num">210</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == "RR" ~ stats::rnorm(nrow(adeg), mean = 1050, sd = 300),</pre>
+                      <pre class="language-r">      AETOXGR == "5",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
+                    <td class="num">211</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == "HR" ~ stats::rnorm(nrow(adeg), mean = 70, sd = 20),</pre>
+                      <pre class="language-r">      "NOT EVALUABLE",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
+                    <td class="num">212</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == "ECGINTP" ~ NA_real_</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">      as.character(sample_fct(actions, nrow(adae), prob = c(0.05, 0.05, 0.05, 0.01, 0.05, 0.1, 0.45, 0.1, 0.05)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">213</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">111</td>
+                    <td class="num">214</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- adeg %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(AESDTH = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
+                    <td class="num">215</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(EGTESTCD = PARAMCD) %&gt;%</pre>
+                      <pre class="language-r">      AEOUT == "FATAL" ~ "Y",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
+                    <td class="num">216</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(EGTEST = PARAM)</pre>
+                      <pre class="language-r">      TRUE ~ "N"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">217</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">115</td>
+                    <td class="num">218</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- adeg %&gt;% dplyr::mutate(AVISITN = dplyr::case_when(</pre>
+                      <pre class="language-r">    dplyr::mutate(TRTEMFL = ifelse(ASTDTM &gt;= TRTSDTM, "Y", "")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
+                    <td class="num">219</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVISIT == "SCREENING" ~ -1,</pre>
+                      <pre class="language-r">    dplyr::mutate(AECONTRT = sample(c("Y", "N"), prob = c(0.4, 0.6), size = dplyr::n(), replace = TRUE)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">117</td>
+                    <td class="num">220</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVISIT == "BASELINE" ~ 0,</pre>
+                      <pre class="language-r">    dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">118</td>
+                    <td class="num">221</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    (grepl("^WEEK", AVISIT) | grepl("^CYCLE", AVISIT)) ~ as.numeric(AVISIT) - 2,</pre>
+                      <pre class="language-r">      ANL01FL = ifelse(TRTEMFL == "Y" &amp; ASTDTM &lt;= TRTEDTM + lubridate::month(1), "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">    ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">119</td>
+                    <td class="num">223</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    TRUE ~ NA_real_</pre>
+                      <pre class="language-r">    dplyr::mutate(ANL01FL = ifelse(is.na(ANL01FL), "", ANL01FL))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</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">121</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">225</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  adae &lt;- adae %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">122</td>
+                    <td class="num">226</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- adeg %&gt;% rel_var(</pre>
+                      <pre class="language-r">    dplyr::mutate(AERELNST = sample(c("Y", "N"), prob = c(0.4, 0.6), size = dplyr::n(), replace = TRUE)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">123</td>
+                    <td class="num">227</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_name = "AVALU",</pre>
+                      <pre class="language-r">    dplyr::mutate(AEACNOTH = sample(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">124</td>
+                    <td class="num">228</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    related_var = "PARAM",</pre>
+                      <pre class="language-r">      x = c("MEDICATION", "PROCEDURE/SURGERY", "SUBJECT DISCONTINUED FROM STUDY", "NONE"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">125</td>
+                    <td class="num">229</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_values = unit_init_list$relvar2</pre>
+                      <pre class="language-r">      prob = c(0.2, 0.4, 0.2, 0.2),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">230</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      size = dplyr::n(),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">231</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      replace = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</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">127</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">128</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # order to prepare for change from screening and baseline values</pre>
+                      <pre class="language-r">  # Split metadata for AEs of special interest (AESI).</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
+                    <td class="num">235</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- adeg[order(adeg$STUDYID, adeg$USUBJID, adeg$PARAMCD, adeg$AVISITN), ]</pre>
+                      <pre class="language-r">  l_aag &lt;- split(aag, interaction(aag$NAMVAR, aag$SRCVAR, aag$GRPTYPE, drop = TRUE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <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">131</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- Reduce(rbind, lapply(split(adeg, adeg$USUBJID), function(x) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">30<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">    x$STUDYID &lt;- adsl$STUDYID[which(adsl$USUBJID == x$USUBJID[1])]</pre>
+                      <pre class="language-r">  # Create AESI flags</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">238</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x$ABLFL &lt;- ifelse(toupper(visit_format) == "WEEK" &amp; x$AVISIT == "BASELINE",</pre>
+                      <pre class="language-r">  l_aesi &lt;- lapply(l_aag, function(d_adag, d_adae) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">30<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">      "Y",</pre>
+                      <pre class="language-r">    names(d_adag)[names(d_adag) == "REFTERM"] &lt;- d_adag$SRCVAR[1]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">240</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ifelse(toupper(visit_format) == "CYCLE" &amp; x$AVISIT == "CYCLE 1 DAY 1", "Y", "")</pre>
+                      <pre class="language-r">    names(d_adag)[names(d_adag) == "REFNAME"] &lt;- d_adag$NAMVAR[1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</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="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">242</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x</pre>
+                      <pre class="language-r">    if (d_adag$GRPTYPE[1] == "CUSTOM") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                  <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">  }))</pre>
+                      <pre class="language-r">      d_adag &lt;- d_adag[-which(names(d_adag) == "SCOPE")]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">139</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">244</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    } else if (d_adag$GRPTYPE[1] == "SMQ") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">245</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg$BASE &lt;- ifelse(adeg$AVISITN &gt;= 0, retain(adeg, adeg$AVAL, adeg$ABLFL == "Y"), adeg$AVAL)</pre>
+                      <pre class="language-r">      names(d_adag)[names(d_adag) == "SCOPE"] &lt;- paste0(substr(d_adag$NAMVAR[1], 1, 5), "SC")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</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">142</td>
-                    <td class="coverage">3<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">  adeg &lt;- adeg %&gt;% dplyr::mutate(ANRLO = dplyr::case_when(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">248</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == "QT" ~ 200,</pre>
+                      <pre class="language-r">    d_adag &lt;- d_adag[-which(names(d_adag) %in% c("NAMVAR", "SRCVAR", "GRPTYPE"))]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">249</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == "RR" ~ 600,</pre>
+                      <pre class="language-r">    d_new &lt;- dplyr::left_join(x = d_adae, y = d_adag, by = intersect(names(d_adae), names(d_adag)))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">250</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == "HR" ~ 40,</pre>
+                      <pre class="language-r">    d_new[, dplyr::setdiff(names(d_new), names(d_adae)), drop = FALSE]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">146</td>
+                    <td class="num">251</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == "ECGINTP" ~ NA_real_</pre>
+                      <pre class="language-r">  }, adae)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">252</td>
                     <td class="coverage"></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">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  adae &lt;- dplyr::bind_cols(adae, l_aesi)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">254</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="num">255</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- adeg %&gt;% dplyr::mutate(ANRHI = dplyr::case_when(</pre>
+                      <pre class="language-r">  adae &lt;- dplyr::mutate(adae, AERELNST = sample(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">150</td>
+                    <td class="num">256</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == "QT" ~ 500,</pre>
+                      <pre class="language-r">    x = c("CONCURRENT ILLNESS", "OTHER", "DISEASE UNDER STUDY", "NONE"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">151</td>
+                    <td class="num">257</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == "RR" ~ 1500,</pre>
+                      <pre class="language-r">    prob = c(0.3, 0.3, 0.3, 0.1),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">152</td>
+                    <td class="num">258</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == "HR" ~ 100,</pre>
+                      <pre class="language-r">    size = dplyr::n(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">153</td>
+                    <td class="num">259</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == "ECGINTP" ~ NA_real_</pre>
+                      <pre class="language-r">    replace = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</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">155</td>
+                    <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">156</td>
-                    <td class="coverage">3<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">  adeg &lt;- adeg %&gt;% dplyr::mutate(ANRIND = factor(dplyr::case_when(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">157</td>
+                    <td class="num">263</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVAL &lt; ANRLO ~ "LOW",</pre>
+                      <pre class="language-r">  adae &lt;- adae %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">158</td>
+                    <td class="num">264</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVAL &gt;= ANRLO &amp; AVAL &lt;= ANRHI ~ "NORMAL",</pre>
+                      <pre class="language-r">    dplyr::mutate(AES_FLAG = sample(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">159</td>
+                    <td class="num">265</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVAL &gt; ANRHI ~ "HIGH"</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>
-                    </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">      x = c("AESLIFE", "AESHOSP", "AESDISAB", "AESCONG", "AESMIE"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">162</td>
+                    <td class="num">266</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- adeg %&gt;%</pre>
+                      <pre class="language-r">      prob = c(0.1, 0.2, 0.2, 0.2, 0.3),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">163</td>
+                    <td class="num">267</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(CHG = ifelse(AVISITN &gt; 0, AVAL - BASE, NA)) %&gt;%</pre>
+                      <pre class="language-r">      size = dplyr::n(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">164</td>
+                    <td class="num">268</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(PCHG = ifelse(AVISITN &gt; 0, 100 * (CHG / BASE), NA)) %&gt;%</pre>
+                      <pre class="language-r">      replace = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">3<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">    dplyr::mutate(BASETYPE = "LAST") %&gt;%</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">166</td>
+                    <td class="num">270</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID, PARAMCD, BASETYPE) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(AES_FLAG = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">167</td>
+                    <td class="num">271</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(BNRIND = ANRIND[ABLFL == "Y"]) %&gt;%</pre>
+                      <pre class="language-r">      AESDTH == "Y" ~ "AESDTH",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">168</td>
+                    <td class="num">272</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">      TRUE ~ AES_FLAG</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">273</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ATPTN = 1) %&gt;%</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
+                    <td class="num">274</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(DTYPE = NA) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
+                    <td class="num">275</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_relabel(</pre>
+                      <pre class="language-r">      AESCONG = ifelse(AES_FLAG == "AESCONG", "Y", "N"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">172</td>
+                    <td class="num">276</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID = attr(adeg$STUDYID, "label"),</pre>
+                      <pre class="language-r">      AESDISAB = ifelse(AES_FLAG == "AESDISAB", "Y", "N"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">173</td>
+                    <td class="num">277</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID = attr(adeg$USUBJID, "label")</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="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      AESHOSP = ifelse(AES_FLAG == "AESHOSP", "Y", "N"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">176</td>
+                    <td class="num">278</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg$ANRIND &lt;- factor(adeg$ANRIND, levels = c("LOW", "NORMAL", "HIGH"))</pre>
+                      <pre class="language-r">      AESLIFE = ifelse(AES_FLAG == "AESLIFE", "Y", "N"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">177</td>
+                    <td class="num">279</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg$BNRIND &lt;- factor(adeg$BNRIND, levels = c("LOW", "NORMAL", "HIGH"))</pre>
+                      <pre class="language-r">      AESMIE = ifelse(AES_FLAG == "AESMIE", "Y", "N")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">280</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">179</td>
+                    <td class="num">281</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- var_relabel(</pre>
+                      <pre class="language-r">    dplyr::select(-"AES_FLAG")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">3<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">    adeg,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">181</td>
+                    <td class="num">283</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
+                      <pre class="language-r">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">284</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</pre>
+                      <pre class="language-r">    adae &lt;- mutate_na(ds = adae, na_vars = na_vars, na_percentage = na_percentage)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <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">184</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # merge ADSL to be able to add EG date and study day variables</pre>
+                      <pre class="language-r">  # apply metadata</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">186</td>
+                    <td class="num">288</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- dplyr::inner_join(</pre>
+                      <pre class="language-r">  adae &lt;- apply_metadata(adae, "metadata/ADAE.yml")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">187</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">    adeg,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">188</td>
+                    <td class="num">290</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl,</pre>
+                      <pre class="language-r">  return(adae)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">3<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">    by = c("STUDYID", "USUBJID")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/radaette.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">190</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">#' Time to Adverse Event Analysis Dataset (ADAETTE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">3<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">    dplyr::rowwise() %&gt;%</pre>
+                      <pre class="language-r">#'</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">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(TRTENDT = lubridate::date(dplyr::case_when(</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">3<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">      is.na(TRTEDTM) ~ lubridate::floor_date(lubridate::date(TRTSDTM) + study_duration_secs, unit = "day"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">194</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">      TRUE ~ TRTEDTM</pre>
+                      <pre class="language-r">#' Function to generate random Time-to-AE Dataset for a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))) %&gt;%</pre>
+                      <pre class="language-r">#' given Subject-Level Analysis Dataset.</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">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup()</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">8</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">  adeg &lt;- adeg %&gt;%</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">    dplyr::group_by(USUBJID) %&gt;%</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">    dplyr::arrange(USUBJID, AVISITN) %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ADTM = rep(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      sort(sample(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        seq(lubridate::as_datetime(TRTSDTM[1]), lubridate::as_datetime(TRTENDT[1]), by = "day"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        size = nlevels(AVISIT)</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">9</td>
                     <td class="coverage"></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">3<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">      each = n() / nlevels(AVISIT)</pre>
+                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `PARAMCD`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">11</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">208</td>
-                    <td class="coverage">3<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">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</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">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ADY = ceiling(difftime(ADTM, TRTSDTM, units = "days"))) %&gt;%</pre>
+                      <pre class="language-r">#' @param event_descr (`character vector`)\cr Descriptions of events. Defaults to `NULL`.</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">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(-TRTENDT) %&gt;%</pre>
+                      <pre class="language-r">#' @param censor_descr (`character vector`)\cr Descriptions of censors. Defaults to `NULL`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</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">    dplyr::arrange(STUDYID, USUBJID, ADTM)</pre>
+                      <pre class="language-r">#' @template param_cached</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @templateVar data adaette</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</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">  adeg &lt;- adeg %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">3<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">    dplyr::mutate(ASPID = sample(seq_len(dplyr::n()))) %&gt;%</pre>
+                      <pre class="language-r">#' @return `data.frame`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</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">    dplyr::group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">216</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">    dplyr::mutate(EGSEQ = seq_len(dplyr::n())) %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">217</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">    dplyr::mutate(ASEQ = EGSEQ) %&gt;%</pre>
+                      <pre class="language-r">#' @author Xiuting Mi</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</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">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</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">    dplyr::arrange(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</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">      STUDYID,</pre>
+                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">3<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">      USUBJID,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">3<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">      PARAMCD,</pre>
+                      <pre class="language-r">#' adaette &lt;- radaette(adsl, seed = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">3<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">      BASETYPE,</pre>
+                      <pre class="language-r">#' adaette</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">3<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">      AVISITN,</pre>
+                      <pre class="language-r">radaette &lt;- function(adsl,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">3<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">      ATPTN,</pre>
+                      <pre class="language-r">                     event_descr = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">3<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">      DTYPE,</pre>
+                      <pre class="language-r">                     censor_descr = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">3<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">      ADTM,</pre>
+                      <pre class="language-r">                     lookup = NULL,</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">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      EGSEQ,</pre>
+                      <pre class="language-r">                     seed = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">229</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">      ASPID</pre>
+                      <pre class="language-r">                     na_percentage = 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                     na_vars = list(CNSR = c(NA, 0.1), AVAL = c(1234, 0.1)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                     cached = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">36</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- adeg %&gt;% dplyr::mutate(ONTRTFL = factor(dplyr::case_when(</pre>
+                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">37</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    !AVISIT %in% c("SCREENING", "BASELINE") ~ "Y",</pre>
+                      <pre class="language-r">  if (cached) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">38</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    TRUE ~ ""</pre>
+                      <pre class="language-r">    return(get_cached_data("cadaette"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</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">236</td>
+                    <td class="num">40</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">3<em>x</em></td>
+                    <td class="num">41</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- adeg %&gt;% dplyr::mutate(AVALC = ifelse(</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">42</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == "ECGINTP",</pre>
+                      <pre class="language-r">  checkmate::assert_character(censor_descr, null.ok = TRUE, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">43</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    as.character(sample_fct(c("ABNORMAL", "NORMAL"), nrow(adeg), prob = c(0.25, 0.75))),</pre>
+                      <pre class="language-r">  checkmate::assert_character(event_descr, null.ok = TRUE, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    as.character(AVAL)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">241</td>
-                    <td class="coverage"></td>
+                    <td class="num">44</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(seed, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">242</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">45</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(na_percentage, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">243</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">46</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Temporarily creating a row_check column to easily match newly created</pre>
+                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # observations with their row correct arrangement.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">48</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- adeg %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(lookup, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">49</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(row_check = seq_len(nrow(adeg)))</pre>
+                      <pre class="language-r">  lookup_adaette &lt;- if (!is.null(lookup)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">247</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">50</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    lookup</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Created function to add in new observations for DTYPE, "MINIMUM" &amp; "MAXIMUM" in this case.</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">3<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">  get_groups &lt;- function(data,</pre>
+                      <pre class="language-r">    tibble::tribble(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">3<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">                         minimum) {</pre>
+                      <pre class="language-r">      ~ARM, ~CATCD, ~CAT, ~LAMBDA, ~CNSR_P,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">6<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">    data &lt;- data %&gt;%</pre>
+                      <pre class="language-r">      "ARM A", "1", "any adverse event", 1 / 80, 0.4,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">55</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::group_by(USUBJID, PARAMCD, BASETYPE) %&gt;%</pre>
+                      <pre class="language-r">      "ARM B", "1", "any adverse event", 1 / 100, 0.2,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">56</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::arrange(ADTM, ASPID, EGSEQ) %&gt;%</pre>
+                      <pre class="language-r">      "ARM C", "1", "any adverse event", 1 / 60, 0.42,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">57</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::filter(</pre>
+                      <pre class="language-r">      "ARM A", "2", "any serious adverse event", 1 / 100, 0.3,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">58</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        (AVISIT != "BASELINE" &amp; AVISIT != "SCREENING") &amp;</pre>
+                      <pre class="language-r">      "ARM B", "2", "any serious adverse event", 1 / 150, 0.1,</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">          (ONTRTFL == "Y" | ADTM &lt;= TRTSDTM)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">257</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      ) %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">258</td>
-                    <td class="coverage"></td>
+                    <td class="num">59</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      {</pre>
+                      <pre class="language-r">      "ARM C", "2", "any serious adverse event", 1 / 80, 0.32,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">60</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (minimum == TRUE) {</pre>
+                      <pre class="language-r">      "ARM A", "3", "a grade 3-5 adverse event", 1 / 80, 0.2,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">61</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dplyr::filter(., AVAL == min(AVAL)) %&gt;%</pre>
+                      <pre class="language-r">      "ARM B", "3", "a grade 3-5 adverse event", 1 / 100, 0.08,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">62</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::mutate(., DTYPE = "MINIMUM", AVISIT = "POST-BASELINE MINIMUM")</pre>
+                      <pre class="language-r">      "ARM C", "3", "a grade 3-5 adverse event", 1 / 60, 0.23</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</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">          dplyr::filter(., AVAL == max(AVAL)) %&gt;%</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">            dplyr::mutate(., DTYPE = "MAXIMUM", AVISIT = "POST-BASELINE MAXIMUM")</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</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">266</td>
+                    <td class="num">65</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">267</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">66</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::slice(1) %&gt;%</pre>
+                      <pre class="language-r">  if (!is.null(seed)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">67</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::ungroup()</pre>
+                      <pre class="language-r">    set.seed(seed)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</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="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    return(data)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">271</td>
-                    <td class="coverage"></td>
+                    <td class="num">69</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</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"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">273</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  # Binding the new observations to the dataset from the function above and rearranging in the correct order.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- rbind(adeg, get_groups(adeg, TRUE), get_groups(adeg, FALSE)) %&gt;%</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">    dplyr::arrange(row_check) %&gt;%</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">    dplyr::group_by(USUBJID, PARAMCD, BASETYPE) %&gt;%</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">    dplyr::arrange(AVISIT, .by_group = TRUE) %&gt;%</pre>
-                    </td>
-                  </tr>
                   <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">71</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup()</pre>
+                      <pre class="language-r">  evntdescr_sel &lt;- if (!is.null(event_descr)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">279</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">72</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    event_descr</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Dropping the "row_check" column created above.</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- adeg[, -which(names(adeg) %in% c("row_check"))]</pre>
+                      <pre class="language-r">    "Preferred Term"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</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">283</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Created function to easily match rows which comply to ONTRTFL derivation</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">284</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  flag_variables &lt;- function(data, worst_obs) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">77</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_compare &lt;- data %&gt;%</pre>
+                      <pre class="language-r">  cnsdtdscr_sel &lt;- if (!is.null(censor_descr)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">286</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">78</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::mutate(row_check = seq_len(nrow(data)))</pre>
+                      <pre class="language-r">    censor_descr</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">79</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">288</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    data &lt;- data_compare %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">289</td>
-                    <td class="coverage"></td>
+                    <td class="num">80</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      {</pre>
+                      <pre class="language-r">    c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">290</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">81</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (worst_obs == FALSE) {</pre>
+                      <pre class="language-r">      "Clinical Cut Off",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">291</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">82</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dplyr::group_by(., USUBJID, PARAMCD, BASETYPE, AVISIT) %&gt;%</pre>
+                      <pre class="language-r">      "Completion or Discontinuation",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">292</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">83</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::arrange(., ADTM, ASPID, EGSEQ)</pre>
+                      <pre class="language-r">      "End of AE Reporting Period"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">84</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">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          dplyr::group_by(., USUBJID, PARAMCD, BASETYPE)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</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">296</td>
+                    <td class="num">86</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">297</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">87</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::filter(</pre>
+                      <pre class="language-r">  random_patient_data &lt;- function(patient_info) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">298</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">88</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        AVISITN &gt; 0 &amp; (ONTRTFL == "Y" | ADTM &lt;= TRTSDTM) &amp;</pre>
+                      <pre class="language-r">    startdt &lt;- lubridate::date(patient_info$TRTSDTM)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          is.na(DTYPE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">300</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      ) %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">301</td>
-                    <td class="coverage"></td>
+                    <td class="num">89</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      {</pre>
+                      <pre class="language-r">    trtedtm &lt;- lubridate::floor_date(dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">302</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">90</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (worst_obs == TRUE) {</pre>
+                      <pre class="language-r">      is.na(patient_info$TRTEDTM) ~ lubridate::date(patient_info$TRTSDTM) + study_duration_secs,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">303</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">91</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dplyr::arrange(., AVALC) %&gt;% dplyr::filter(., ifelse(</pre>
+                      <pre class="language-r">      TRUE ~ lubridate::date(patient_info$TRTEDTM)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">92</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            PARAMCD == "ECGINTP",</pre>
+                      <pre class="language-r">    ), unit = "day")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">93</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ifelse(AVALC == "ABNORMAL", AVALC == "ABNORMAL", AVALC == "NORMAL"),</pre>
+                      <pre class="language-r">    enddts &lt;- c(patient_info$EOSDT, lubridate::date(trtedtm))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">306</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            AVAL == min(AVAL)</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>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">308</td>
-                    <td class="coverage"></td>
+                    <td class="num">94</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">    enddts_min_index &lt;- which.min(enddts)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">309</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">95</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dplyr::filter(., ifelse(</pre>
+                      <pre class="language-r">    adt &lt;- enddts[enddts_min_index]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">96</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            PARAMCD == "ECGINTP",</pre>
+                      <pre class="language-r">    adtm &lt;- lubridate::as_datetime(adt)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">311</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">97</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            AVALC == "ABNORMAL" | AVALC == "NORMAL",</pre>
+                      <pre class="language-r">    ady &lt;- as.numeric(adt - startdt + 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            AVAL == min(AVAL)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <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">314</td>
-                    <td class="coverage"></td>
+                    <td class="num">98</td>
+                    <td class="coverage">50<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">315</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">99</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } %&gt;%</pre>
+                      <pre class="language-r">      ARM = patient_info$ARM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">316</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">100</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::slice(1) %&gt;%</pre>
+                      <pre class="language-r">      STUDYID = patient_info$STUDYID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">317</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      {</pre>
+                      <pre class="language-r">      SITEID = patient_info$SITEID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">102</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (worst_obs == TRUE) {</pre>
+                      <pre class="language-r">      USUBJID = patient_info$USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">103</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dplyr::mutate(., new_var = dplyr::case_when(</pre>
+                      <pre class="language-r">      PARAMCD = "AEREPTTE",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">104</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            (AVALC == "ABNORMAL" | AVALC == "NORMAL") ~ "Y",</pre>
+                      <pre class="language-r">      PARAM = "Time to end of AE reporting period",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">321</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">105</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            (!is.na(AVAL) &amp; is.na(DTYPE)) ~ "Y",</pre>
+                      <pre class="language-r">      CNSR = 0,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">322</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            TRUE ~ ""</pre>
+                      <pre class="language-r">      AVAL = lubridate::days(ady) / lubridate::years(1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">323</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ))</pre>
+                      <pre class="language-r">      AVALU = "YEARS",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">324</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">      EVNTDESC = ifelse(enddts_min_index == 1, "Completion or Discontinuation", "End of AE Reporting Period"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">325</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">109</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dplyr::mutate(., new_var = dplyr::case_when(</pre>
+                      <pre class="language-r">      CNSDTDSC = NA,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">326</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">110</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            (AVALC == "ABNORMAL" | AVALC == "NORMAL") ~ "Y",</pre>
+                      <pre class="language-r">      ADTM = adtm,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">327</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">111</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            (!is.na(AVAL) &amp; is.na(DTYPE)) ~ "Y",</pre>
+                      <pre class="language-r">      ADY = ady,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">328</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">112</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            TRUE ~ ""</pre>
+                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</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">330</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">331</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">332</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::ungroup()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # validate and initialize related variables for Hy's law</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">334</td>
-                    <td class="coverage">6<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">    data_compare$new_var &lt;- ifelse(data_compare$row_check %in% data$row_check, "Y", "")</pre>
+                      <pre class="language-r">  paramcd_hy &lt;- c("HYSTTEUL", "HYSTTEBL")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">335</td>
-                    <td class="coverage">6<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">    data_compare &lt;- data_compare[, -which(names(data_compare) %in% c("row_check"))]</pre>
+                      <pre class="language-r">  param_hy &lt;- c("Time to Hy's Law Elevation in relation to ULN", "Time to Hy's Law Elevation in relation to Baseline")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">336</td>
-                    <td class="coverage"></td>
+                  <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"></pre>
+                      <pre class="language-r">  param_init_list &lt;- relvar_init(param_hy, paramcd_hy)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">337</td>
-                    <td class="coverage">6<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">    return(data_compare)</pre>
+                      <pre class="language-r">  adsl_hy &lt;- dplyr::select(adsl, "STUDYID", "USUBJID", "TRTSDTM", "SITEID", "ARM")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</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">339</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">340</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- flag_variables(adeg, FALSE) %&gt;% dplyr::rename(WORS01FL = "new_var")</pre>
+                      <pre class="language-r">  # create all combinations of unique values in STUDYID, USUBJID, PARAM, AVISIT</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">341</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- flag_variables(adeg, TRUE) %&gt;% dplyr::rename(WORS02FL = "new_var")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">342</td>
-                    <td class="coverage"></td>
+                    <td class="num">123</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  adaette_hy &lt;- expand.grid(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">343</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">124</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- adeg %&gt;% dplyr::mutate(ANL01FL = factor(ifelse(</pre>
+                      <pre class="language-r">    STUDYID = unique(adsl$STUDYID),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">125</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    (ABLFL == "Y" | (is.na(DTYPE) &amp; WORS01FL == "Y")) &amp;</pre>
+                      <pre class="language-r">    USUBJID = adsl$USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">345</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">126</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      (AVISIT != "SCREENING"),</pre>
+                      <pre class="language-r">    PARAM = as.factor(param_init_list$relvar1),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">127</td>
+                    <td class="coverage">5<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">347</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">348</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">349</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # Add other variables to adaette_hy</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">131</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- adeg %&gt;%</pre>
+                      <pre class="language-r">  adaette_hy &lt;- dplyr::left_join(adaette_hy, adsl_hy, by = c("STUDYID", "USUBJID")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">132</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID, PARAMCD, BASETYPE) %&gt;%</pre>
+                      <pre class="language-r">    rel_var(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">133</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(BASEC = ifelse(</pre>
+                      <pre class="language-r">      var_name = "PARAMCD",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">353</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">134</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "ECGINTP",</pre>
+                      <pre class="language-r">      related_var = "PARAM",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">135</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVALC[AVISIT == "BASELINE"],</pre>
+                      <pre class="language-r">      var_values = param_init_list$relvar2</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">136</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">137</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      as.character(BASE)</pre>
+                      <pre class="language-r">    dplyr::mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">356</td>
-                    <td class="coverage"></td>
+                  <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">    )) %&gt;%</pre>
+                      <pre class="language-r">      CNSR = sample(c(0, 1), prob = c(0.1, 0.9), size = dplyr::n(), replace = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">139</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ANL03FL = dplyr::case_when(</pre>
+                      <pre class="language-r">      EVNTDESC = dplyr::if_else(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">358</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">140</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      DTYPE == "MINIMUM" ~ "Y",</pre>
+                      <pre class="language-r">        CNSR == 0,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">359</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">141</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ABLFL == "Y" &amp; PARAMCD != "ECGINTP" ~ "Y",</pre>
+                      <pre class="language-r">        "First Post-Baseline Raised ALT or AST Elevation Result",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">360</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">142</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ ""</pre>
+                      <pre class="language-r">        NA_character_</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">361</td>
+                    <td class="num">143</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">362</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">144</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ANL04FL = dplyr::case_when(</pre>
+                      <pre class="language-r">      CNSDTDSC = dplyr::if_else(CNSR == 0, NA_character_,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">145</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      DTYPE == "MAXIMUM" ~ "Y",</pre>
+                      <pre class="language-r">        sample(c("Last Post-Baseline ALT or AST Result", "Treatment Start"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">146</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ABLFL == "Y" &amp; PARAMCD != "ECGINTP" ~ "Y",</pre>
+                      <pre class="language-r">          prob = c(0.9, 0.1),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">365</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">147</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ ""</pre>
+                      <pre class="language-r">          size = dplyr::n(), replace = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">148</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">367</td>
-                    <td class="coverage">3<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">    dplyr::ungroup()</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">150</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">369</td>
-                    <td class="coverage">3<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">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
+                      <pre class="language-r">    dplyr::rowwise() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">370</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adeg &lt;- mutate_na(ds = adeg, na_vars = na_vars, na_percentage = na_percentage)</pre>
+                      <pre class="language-r">    dplyr::mutate(ADTM = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">371</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">153</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      CNSDTDSC == "Treatment Start" ~ TRTSDTM,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">372</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"></pre>
+                      <pre class="language-r">      TRUE ~ TRTSDTM + sample(seq(0, study_duration_secs), size = dplyr::n(), replace = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # apply metadata</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">374</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">156</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adeg &lt;- apply_metadata(adeg, "metadata/ADEG.yml")</pre>
+                      <pre class="language-r">    dplyr::mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">375</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ADY_int = lubridate::date(ADTM) - lubridate::date(TRTSDTM) + 1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">376</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">158</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(adeg)</pre>
+                      <pre class="language-r">      ADY = as.numeric(ADY_int),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">377</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">      AVAL = lubridate::days(ADY_int) / lubridate::weeks(1),</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/radaette.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">160</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Time to Adverse Event Analysis Dataset (ADAETTE)</pre>
+                      <pre class="language-r">      AVALU = "WEEKS"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">161</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">3</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">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    dplyr::select(-TRTSDTM, -ADY_int)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</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">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function to generate random Time-to-AE Dataset for a</pre>
+                      <pre class="language-r">  random_ae_data &lt;- function(lookup_info, patient_info, patient_data) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' given Subject-Level Analysis Dataset.</pre>
+                      <pre class="language-r">    cnsr &lt;- sample(c(0, 1), 1, prob = c(1 - lookup_info$CNSR_P, lookup_info$CNSR_P))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    ae_rep_tte &lt;- patient_data$AVAL[patient_data$PARAMCD == "AEREPTTE"]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">    data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ARM = rep(patient_data$ARM, 2),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `PARAMCD`</pre>
+                      <pre class="language-r">      STUDYID = rep(patient_data$STUDYID, 2),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      SITEID = rep(patient_data$SITEID, 2),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">      USUBJID = rep(patient_data$USUBJID, 2),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param event_descr (`character vector`)\cr Descriptions of events. Defaults to `NULL`.</pre>
+                      <pre class="language-r">      PARAMCD = c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param censor_descr (`character vector`)\cr Descriptions of censors. Defaults to `NULL`.</pre>
+                      <pre class="language-r">        paste0("AETTE", lookup_info$CATCD),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @template param_cached</pre>
+                      <pre class="language-r">        paste0("AETOT", lookup_info$CATCD)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @templateVar data adaette</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">176</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      PARAM = c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `data.frame`</pre>
+                      <pre class="language-r">        paste("Time to first occurrence of", lookup_info$CAT),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">        paste("Number of occurrences of", lookup_info$CAT)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</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">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @author Xiuting Mi</pre>
+                      <pre class="language-r">      CNSR = c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        cnsr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">182</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">        NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</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">184</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      AVAL = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adaette &lt;- radaette(adsl, seed = 2)</pre>
+                      <pre class="language-r">        # We generate these values conditional on the censoring information.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adaette</pre>
+                      <pre class="language-r">        # If this time to event is censored, then there were no AEs reported and the time is set</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">radaette &lt;- function(adsl,</pre>
+                      <pre class="language-r">        # to the AE reporting period time. Otherwise we draw from truncated distributions to make</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     event_descr = NULL,</pre>
+                      <pre class="language-r">        # sure that we are within the AE reporting time and above 0 AEs.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     censor_descr = NULL,</pre>
+                      <pre class="language-r">        ifelse(cnsr == 1, ae_rep_tte, rtexp(1, lookup_info$LAMBDA * 365.25, r = ae_rep_tte)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     lookup = NULL,</pre>
+                      <pre class="language-r">        ifelse(cnsr == 1, 0, rtpois(1, lookup_info$LAMBDA * 365.25))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     seed = NULL,</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">192</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     na_percentage = 0,</pre>
+                      <pre class="language-r">      AVALU = c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">193</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     na_vars = list(CNSR = c(NA, 0.1), AVAL = c(1234, 0.1)),</pre>
+                      <pre class="language-r">        "YEARS",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">150<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     cached = FALSE) {</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">196</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
+                      <pre class="language-r">      EVNTDESC = c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">197</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (cached) {</pre>
+                      <pre class="language-r">        ifelse(cnsr == 0, sample(evntdescr_sel, 1), ""),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">198</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(get_cached_data("cadaette"))</pre>
+                      <pre class="language-r">        NA</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">  }</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">200</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      CNSDTDSC = c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">201</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
+                      <pre class="language-r">        ifelse(cnsr == 1, sample(cnsdtdscr_sel, 1), ""),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">202</td>
+                    <td class="coverage">150<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        NA</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(censor_descr, null.ok = TRUE, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">204</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(event_descr, null.ok = TRUE, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">205</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
+                      <pre class="language-r">    ) %&gt;% dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">206</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">      ADY = dplyr::if_else(is.na(AVALU), NA_real_, ceiling(as.numeric(lubridate::dyears(AVAL), "days"))),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">207</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
+                      <pre class="language-r">      ADTM = dplyr::if_else(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">208</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        is.na(AVALU),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">209</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(lookup, null.ok = TRUE)</pre>
+                      <pre class="language-r">        lubridate::as_datetime(NA),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lookup_adaette &lt;- if (!is.null(lookup)) {</pre>
+                      <pre class="language-r">        patient_info$TRTSDTM + lubridate::days(ADY)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">50</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">    lookup</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">212</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">52</td>
-                    <td class="coverage">5<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">    tibble::tribble(</pre>
+                      <pre class="language-r">  }</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">214</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ~ARM, ~CATCD, ~CAT, ~LAMBDA, ~CNSR_P,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">54</td>
+                    <td class="num">215</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ARM A", "1", "any adverse event", 1 / 80, 0.4,</pre>
+                      <pre class="language-r">  adaette &lt;- split(adsl, adsl$USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">55</td>
+                    <td class="num">216</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ARM B", "1", "any adverse event", 1 / 100, 0.2,</pre>
+                      <pre class="language-r">    lapply(function(patient_info) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">217</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ARM C", "1", "any adverse event", 1 / 60, 0.42,</pre>
+                      <pre class="language-r">      patient_data &lt;- random_patient_data(patient_info)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">218</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ARM A", "2", "any serious adverse event", 1 / 100, 0.3,</pre>
+                      <pre class="language-r">      lookup_arm &lt;- lookup_adaette %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">219</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ARM B", "2", "any serious adverse event", 1 / 150, 0.1,</pre>
+                      <pre class="language-r">        dplyr::filter(ARM == as.character(patient_info$ARMCD))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">220</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ARM C", "2", "any serious adverse event", 1 / 80, 0.32,</pre>
+                      <pre class="language-r">      ae_data &lt;- split(lookup_arm, lookup_arm$CATCD) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">221</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ARM A", "3", "a grade 3-5 adverse event", 1 / 80, 0.2,</pre>
+                      <pre class="language-r">        lapply(random_ae_data, patient_data = patient_data, patient_info = patient_info) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">222</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ARM B", "3", "a grade 3-5 adverse event", 1 / 100, 0.08,</pre>
+                      <pre class="language-r">        Reduce(rbind, .)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">223</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ARM C", "3", "a grade 3-5 adverse event", 1 / 60, 0.23</pre>
+                      <pre class="language-r">      dplyr::bind_rows(patient_data, ae_data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">224</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">64</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">    Reduce(rbind, .) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    rcd_var_relabel(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">66</td>
+                    <td class="num">227</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(seed)) {</pre>
+                      <pre class="language-r">      STUDYID = "Study Identifier",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">67</td>
+                    <td class="num">228</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set.seed(seed)</pre>
+                      <pre class="language-r">      USUBJID = "Unique Subject Identifier"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">229</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">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</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">71</td>
+                    <td class="num">231</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  evntdescr_sel &lt;- if (!is.null(event_descr)) {</pre>
+                      <pre class="language-r">  adaette &lt;- rcd_var_relabel(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">72</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">    event_descr</pre>
+                      <pre class="language-r">    adaette,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <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">  } else {</pre>
+                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
+                    <td class="num">234</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Preferred Term"</pre>
+                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</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">76</td>
+                    <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">77</td>
+                    <td class="num">237</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cnsdtdscr_sel &lt;- if (!is.null(censor_descr)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">78</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    censor_descr</pre>
+                      <pre class="language-r">  adaette &lt;- rbind(adaette, adaette_hy)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">238</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">80</td>
+                    <td class="num">239</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c(</pre>
+                      <pre class="language-r">  adaette &lt;- dplyr::inner_join(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
+                    <td class="num">240</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Clinical Cut Off",</pre>
+                      <pre class="language-r">    dplyr::select(adaette, -"SITEID", -"ARM"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
+                    <td class="num">241</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Completion or Discontinuation",</pre>
+                      <pre class="language-r">    adsl,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
+                    <td class="num">242</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "End of AE Reporting Period"</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">    by = c("STUDYID", "USUBJID")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">243</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">86</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"></pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">87</td>
+                    <td class="num">245</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  random_patient_data &lt;- function(patient_info) {</pre>
+                      <pre class="language-r">    dplyr::arrange(ADTM) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">50<em>x</em></td>
+                    <td class="num">246</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    startdt &lt;- lubridate::date(patient_info$TRTSDTM)</pre>
+                      <pre class="language-r">    dplyr::mutate(TTESEQ = seq_len(dplyr::n())) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">50<em>x</em></td>
+                    <td class="num">247</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    trtedtm &lt;- lubridate::floor_date(dplyr::case_when(</pre>
+                      <pre class="language-r">    dplyr::mutate(ASEQ = TTESEQ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">50<em>x</em></td>
+                    <td class="num">248</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is.na(patient_info$TRTEDTM) ~ lubridate::date(patient_info$TRTSDTM) + study_duration_secs,</pre>
+                      <pre class="language-r">    dplyr::mutate(PARAM = as.factor(PARAM)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">50<em>x</em></td>
+                    <td class="num">249</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ lubridate::date(patient_info$TRTEDTM)</pre>
+                      <pre class="language-r">    dplyr::mutate(PARAMCD = as.factor(PARAMCD)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">50<em>x</em></td>
+                    <td class="num">250</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ), unit = "day")</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">50<em>x</em></td>
+                    <td class="num">251</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    enddts &lt;- c(patient_info$EOSDT, lubridate::date(trtedtm))</pre>
+                      <pre class="language-r">    dplyr::arrange(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">50<em>x</em></td>
+                    <td class="num">252</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    enddts_min_index &lt;- which.min(enddts)</pre>
+                      <pre class="language-r">      STUDYID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">50<em>x</em></td>
+                    <td class="num">253</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adt &lt;- enddts[enddts_min_index]</pre>
+                      <pre class="language-r">      USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">50<em>x</em></td>
+                    <td class="num">254</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adtm &lt;- lubridate::as_datetime(adt)</pre>
+                      <pre class="language-r">      PARAMCD,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">50<em>x</em></td>
+                    <td class="num">255</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ady &lt;- as.numeric(adt - startdt + 1)</pre>
+                      <pre class="language-r">      ADTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">50<em>x</em></td>
+                    <td class="num">256</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">      TTESEQ</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">50<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">      ARM = patient_info$ARM,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">50<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">      STUDYID = patient_info$STUDYID,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">50<em>x</em></td>
+                    <td class="num">259</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      SITEID = patient_info$SITEID,</pre>
+                      <pre class="language-r">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">50<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">      USUBJID = patient_info$USUBJID,</pre>
+                      <pre class="language-r">    adaette &lt;- dplyr::mutate(ds = adaette, na_vars = na_vars, na_percentage = na_percentage)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">50<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">      PARAMCD = "AEREPTTE",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">50<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">      PARAM = "Time to end of AE reporting period",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">50<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">      CNSR = 0,</pre>
+                      <pre class="language-r">  # apply metadata</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">50<em>x</em></td>
+                    <td class="num">264</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL = lubridate::days(ady) / lubridate::years(1),</pre>
+                      <pre class="language-r">  adaette &lt;- apply_metadata(adaette, "metadata/ADAETTE.yml")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">50<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">      AVALU = "YEARS",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">50<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">      EVNTDESC = ifelse(enddts_min_index == 1, "Completion or Discontinuation", "End of AE Reporting Period"),</pre>
+                      <pre class="language-r">  return(adaette)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">50<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">      CNSDTDSC = NA,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">50<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/radpp.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">      ADTM = adtm,</pre>
+                      <pre class="language-r">#' Pharmacokinetics Parameters Dataset (ADPP)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">50<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">      ADY = ady,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">50<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">      stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</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">114</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' Function for generating a random Pharmacokinetics Parameters Dataset for a given</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Subject-Level Analysis Dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # validate and initialize related variables for Hy's law</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">5<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">  paramcd_hy &lt;- c("HYSTTEUL", "HYSTTEBL")</pre>
+                      <pre class="language-r">#' @details One record per study, subject, parameter category, parameter and visit.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">5<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">  param_hy &lt;- c("Time to Hy's Law Elevation in relation to ULN", "Time to Hy's Law Elevation in relation to Baseline")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">5<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">  param_init_list &lt;- relvar_init(param_hy, paramcd_hy)</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">5<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">  adsl_hy &lt;- dplyr::select(adsl, "STUDYID", "USUBJID", "TRTSDTM", "SITEID", "ARM")</pre>
+                      <pre class="language-r">#' @param ppcat (`character vector`)\cr Categories of parameters.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</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 ppspec (`character vector`)\cr Specimen material types.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # create all combinations of unique values in STUDYID, USUBJID, PARAM, AVISIT</pre>
+                      <pre class="language-r">#' @template param_cached</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">5<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">  adaette_hy &lt;- expand.grid(</pre>
+                      <pre class="language-r">#' @templateVar data adpp</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">5<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">    STUDYID = unique(adsl$STUDYID),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">5<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">    USUBJID = adsl$USUBJID,</pre>
+                      <pre class="language-r">#' @return `data.frame`</pre>
                     </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">5<em>x</em></td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAM = as.factor(param_init_list$relvar1),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">5<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">    stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">19</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">129</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add other variables to adaette_hy</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">5<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">  adaette_hy &lt;- dplyr::left_join(adaette_hy, adsl_hy, by = c("STUDYID", "USUBJID")) %&gt;%</pre>
+                      <pre class="language-r">#' adpp &lt;- radpp(adsl, seed = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">5<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">    rel_var(</pre>
+                      <pre class="language-r">#' adpp</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">5<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_name = "PARAMCD",</pre>
+                      <pre class="language-r">radpp &lt;- function(adsl,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">5<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">      related_var = "PARAM",</pre>
+                      <pre class="language-r">                  ppcat = c("Plasma Drug X", "Plasma Drug Y", "Metabolite Drug X", "Metabolite Drug Y"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">5<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">      var_values = param_init_list$relvar2</pre>
+                      <pre class="language-r">                  ppspec = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) %&gt;%</pre>
+                      <pre class="language-r">                    "Plasma", "Plasma", "Plasma", "Matrix of PD", "Matrix of PD",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">5<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">    dplyr::mutate(</pre>
+                      <pre class="language-r">                    "Urine", "Urine", "Urine", "Urine"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">5<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">      CNSR = sample(c(0, 1), prob = c(0.1, 0.9), size = dplyr::n(), replace = TRUE),</pre>
+                      <pre class="language-r">                  ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">5<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">      EVNTDESC = dplyr::if_else(</pre>
+                      <pre class="language-r">                  paramcd = c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">5<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">        CNSR == 0,</pre>
+                      <pre class="language-r">                    "AUCIFO", "CMAX", "CLO", "RMAX", "TON",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">5<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">        "First Post-Baseline Raised ALT or AST Elevation Result",</pre>
+                      <pre class="language-r">                    "RENALCL", "RENALCLD", "RCAMINT", "RCPCINT"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">5<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">        NA_character_</pre>
+                      <pre class="language-r">                  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</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 = c(</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">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      CNSDTDSC = dplyr::if_else(CNSR == 0, NA_character_,</pre>
+                      <pre class="language-r">                    "AUC Infinity Obs", "Max Conc", "Total CL Obs", "Time of Maximum Response",</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">36</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sample(c("Last Post-Baseline ALT or AST Result", "Treatment Start"),</pre>
+                      <pre class="language-r">                    "Time to Onset", "Renal CL", "Renal CL Norm by Dose",</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">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          prob = c(0.9, 0.1),</pre>
+                      <pre class="language-r">                    "Amt Rec from T1 to T2", "Pct Rec from T1 to T2"</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">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          size = dplyr::n(), replace = TRUE</pre>
+                      <pre class="language-r">                  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                  paramu = c("day*ug/mL", "ug/mL", "ml/day/kg", "hr", "hr", "L/hr", "L/hr/mg", "mg", "%"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">                  aval_mean = c(200, 30, 5, 10, 3, 0.05, 0.005, 1.5613, 15.65),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) %&gt;%</pre>
+                      <pre class="language-r">                  visit_format = "CYCLE",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">5<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">    dplyr::rowwise() %&gt;%</pre>
+                      <pre class="language-r">                  n_days = 2L,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">5<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">    dplyr::mutate(ADTM = dplyr::case_when(</pre>
+                      <pre class="language-r">                  seed = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">5<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">      CNSDTDSC == "Treatment Start" ~ TRTSDTM,</pre>
+                      <pre class="language-r">                  na_percentage = 0,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">5<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">      TRUE ~ TRTSDTM + sample(seq(0, study_duration_secs), size = dplyr::n(), replace = TRUE)</pre>
+                      <pre class="language-r">                  na_vars = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) %&gt;%</pre>
+                      <pre class="language-r">                    AVAL = c(NA, 0.1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">5<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">    dplyr::mutate(</pre>
+                      <pre class="language-r">                  ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">5<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">      ADY_int = lubridate::date(ADTM) - lubridate::date(TRTSDTM) + 1,</pre>
+                      <pre class="language-r">                  cached = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">49</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ADY = as.numeric(ADY_int),</pre>
+                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">5<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">      AVAL = lubridate::days(ADY_int) / lubridate::weeks(1),</pre>
+                      <pre class="language-r">  if (cached) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">51</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVALU = "WEEKS"</pre>
+                      <pre class="language-r">    return(get_cached_data("cadlb"))</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">    ) %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <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">    dplyr::select(-TRTSDTM, -ADY_int)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</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">164</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">54</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  random_ae_data &lt;- function(lookup_info, patient_info, patient_data) {</pre>
+                      <pre class="language-r">  checkmate::assert_character(ppcat)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="num">55</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cnsr &lt;- sample(c(0, 1), 1, prob = c(1 - lookup_info$CNSR_P, lookup_info$CNSR_P))</pre>
+                      <pre class="language-r">  checkmate::assert_character(ppspec)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="num">56</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ae_rep_tte &lt;- patient_data$AVAL[patient_data$PARAMCD == "AEREPTTE"]</pre>
+                      <pre class="language-r">  checkmate::assert_character(paramcd)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="num">57</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">  checkmate::assert_character(param)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="num">58</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ARM = rep(patient_data$ARM, 2),</pre>
+                      <pre class="language-r">  checkmate::assert_character(paramu)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="num">59</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID = rep(patient_data$STUDYID, 2),</pre>
+                      <pre class="language-r">  checkmate::assert_vector(aval_mean)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">150<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">      SITEID = rep(patient_data$SITEID, 2),</pre>
+                      <pre class="language-r">  checkmate::assert_string(visit_format)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="num">61</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID = rep(patient_data$USUBJID, 2),</pre>
+                      <pre class="language-r">  checkmate::assert_integer(n_days)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="num">62</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD = c(</pre>
+                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="num">63</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        paste0("AETTE", lookup_info$CATCD),</pre>
+                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">150<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        paste0("AETOT", lookup_info$CATCD)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                    <td class="num">64</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_true(na_percentage &lt; 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="num">65</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAM = c(</pre>
+                      <pre class="language-r">  checkmate::assert_list(na_vars)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">150<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">        paste("Time to first occurrence of", lookup_info$CAT),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">150<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        paste("Number of occurrences of", lookup_info$CAT)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">179</td>
-                    <td class="coverage"></td>
+                    <td class="num">67</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">  checkmate::assertTRUE(length(ppspec) == length(paramcd))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="num">68</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      CNSR = c(</pre>
+                      <pre class="language-r">  checkmate::assertTRUE(length(ppspec) == length(param))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">150<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">        cnsr,</pre>
+                      <pre class="language-r">  checkmate::assertTRUE(length(ppspec) == length(paramu))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">150<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">        NA</pre>
+                      <pre class="language-r">  checkmate::assertTRUE(length(ppspec) == length(aval_mean))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</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">184</td>
-                    <td class="coverage">150<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">      AVAL = c(</pre>
+                      <pre class="language-r">  if (!is.null(seed)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">73</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # We generate these values conditional on the censoring information.</pre>
+                      <pre class="language-r">    set.seed(seed)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # If this time to event is censored, then there were no AEs reported and the time is set</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # to the AE reporting period time. Otherwise we draw from truncated distributions to make</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # sure that we are within the AE reporting time and above 0 AEs.</pre>
+                      <pre class="language-r">  # validate and initialize related variables</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">150<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">        ifelse(cnsr == 1, ae_rep_tte, rtexp(1, lookup_info$LAMBDA * 365.25, r = ae_rep_tte)),</pre>
+                      <pre class="language-r">  ppspec_init_list &lt;- relvar_init(param, ppspec)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">150<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">        ifelse(cnsr == 1, 0, rtpois(1, lookup_info$LAMBDA * 365.25))</pre>
+                      <pre class="language-r">  param_init_list &lt;- relvar_init(param, paramcd)</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">  unit_init_list &lt;- relvar_init(param, paramu)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</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="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">150<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">      AVALU = c(</pre>
+                      <pre class="language-r">  adpp &lt;- expand.grid(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">150<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">        "YEARS",</pre>
+                      <pre class="language-r">    STUDYID = unique(adsl$STUDYID),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="num">83</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NA</pre>
+                      <pre class="language-r">    USUBJID = adsl$USUBJID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">    PPCAT = as.factor(ppcat),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">150<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">      EVNTDESC = c(</pre>
+                      <pre class="language-r">    PARAM = as.factor(param_init_list$relvar1),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="num">86</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ifelse(cnsr == 0, sample(evntdescr_sel, 1), ""),</pre>
+                      <pre class="language-r">    AVISIT = visit_schedule(visit_format = visit_format, n_assessments = 1L, n_days = n_days),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="num">87</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NA</pre>
+                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</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">200</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="num">89</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      CNSDTDSC = c(</pre>
+                      <pre class="language-r">  adpp &lt;- adpp %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="num">90</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ifelse(cnsr == 1, sample(cnsdtdscr_sel, 1), ""),</pre>
+                      <pre class="language-r">    dplyr::mutate(AVAL = stats::rnorm(nrow(adpp), mean = 1, sd = 0.2)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="num">91</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NA</pre>
+                      <pre class="language-r">    dplyr::left_join(data.frame(PARAM = param, ADJUST = aval_mean), by = "PARAM") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">203</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">    dplyr::mutate(AVAL = AVAL * ADJUST) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="num">93</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">    dplyr::select(-"ADJUST")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">150<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">    ) %&gt;% dplyr::mutate(</pre>
+                      <pre class="language-r"></pre>
                     </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">150<em>x</em></td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">95</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ADY = dplyr::if_else(is.na(AVALU), NA_real_, ceiling(as.numeric(lubridate::dyears(AVAL), "days"))),</pre>
+                      <pre class="language-r">  # assign related variable values: PARAMxPPSPEC are related</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="num">96</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ADTM = dplyr::if_else(</pre>
+                      <pre class="language-r">  adpp &lt;- adpp %&gt;% rel_var(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">150<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">        is.na(AVALU),</pre>
+                      <pre class="language-r">    var_name = "PPSPEC",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">150<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">        lubridate::as_datetime(NA),</pre>
+                      <pre class="language-r">    related_var = "PARAM",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">150<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">        patient_info$TRTSDTM + lubridate::days(ADY)</pre>
+                      <pre class="language-r">    var_values = ppspec_init_list$relvar2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</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="never">
-                    <td class="num">212</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">213</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  # assign related variable values: PARAMxPARAMCD are related</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">214</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"></pre>
+                      <pre class="language-r">  adpp &lt;- adpp %&gt;% rel_var(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">104</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adaette &lt;- split(adsl, adsl$USUBJID) %&gt;%</pre>
+                      <pre class="language-r">    var_name = "PARAMCD",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">105</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(function(patient_info) {</pre>
+                      <pre class="language-r">    related_var = "PARAM",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">50<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      patient_data &lt;- random_patient_data(patient_info)</pre>
+                      <pre class="language-r">    var_values = param_init_list$relvar2</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">50<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">      lookup_arm &lt;- lookup_adaette %&gt;%</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">50<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">        dplyr::filter(ARM == as.character(patient_info$ARMCD))</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">  # assign related variable values: PARAMxAVALU are related</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">50<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">      ae_data &lt;- split(lookup_arm, lookup_arm$CATCD) %&gt;%</pre>
+                      <pre class="language-r">  adpp &lt;- adpp %&gt;% rel_var(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">50<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">        lapply(random_ae_data, patient_data = patient_data, patient_info = patient_info) %&gt;%</pre>
+                      <pre class="language-r">    var_name = "AVALU",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">50<em>x</em></td>
+                    <td class="num">112</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Reduce(rbind, .)</pre>
+                      <pre class="language-r">    related_var = "PARAM",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">50<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">      dplyr::bind_rows(patient_data, ae_data)</pre>
+                      <pre class="language-r">    var_values = unit_init_list$relvar2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">114</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">225</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">    Reduce(rbind, .) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">226</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">    var_relabel(</pre>
+                      <pre class="language-r">  # derive AVISITN based AVISIT and AVALC based on AVAL</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">117</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID = "Study Identifier",</pre>
+                      <pre class="language-r">  adpp &lt;- adpp %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">5<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">      USUBJID = "Unique Subject Identifier"</pre>
+                      <pre class="language-r">    dplyr::mutate(AVALC = as.character(AVAL)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">229</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">    dplyr::mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">230</td>
-                    <td class="coverage"></td>
+                  <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"></pre>
+                      <pre class="language-r">      AVISITN = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">5<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">  adaette &lt;- var_relabel(</pre>
+                      <pre class="language-r">        AVISIT == "SCREENING" ~ 0,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">5<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">    adaette,</pre>
+                      <pre class="language-r">        (grepl("^WEEK", AVISIT) | grepl("^CYCLE", AVISIT)) ~ as.numeric(AVISIT) - 1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">5<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">    STUDYID = "Study Identifier",</pre>
+                      <pre class="language-r">        TRUE ~ NA_real_</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">124</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</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">236</td>
+                    <td class="num">126</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="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # derive REGIMEN variable</pre>
+                    </td>
+                  </tr>
                   <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">5<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">  adaette &lt;- rbind(adaette, adaette_hy)</pre>
+                      <pre class="language-r">  adpp &lt;- adpp %&gt;% dplyr::mutate(REGIMEN = "BID")</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>
                     </td>
                   </tr>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # derive PPSTINT and PPENINT based on PARAMCD</pre>
+                    </td>
+                  </tr>
                   <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">5<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">  adaette &lt;- dplyr::inner_join(</pre>
+                      <pre class="language-r">  t1_t2 &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">132</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(adaette, -"SITEID", -"ARM"),</pre>
+                      <pre class="language-r">    PARAMCD = c("RCAMINT", "RCAMINT", "RCPCINT", "RCPCINT"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">133</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl,</pre>
+                      <pre class="language-r">    PPSTINT = c("P0H", "P0H", "P0H", "P0H"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">134</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    by = c("STUDYID", "USUBJID")</pre>
+                      <pre class="language-r">    PPENINT = c("P12H", "P24H", "P12H", "P24H")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">135</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">244</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">136</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">  adpp &lt;- adpp %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">137</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(ADTM) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::left_join(t1_t2, by = c("PARAMCD"), multiple = "all", relationship = "many-to-many")</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">138</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(TTESEQ = seq_len(dplyr::n())) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">139</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ASEQ = TTESEQ) %&gt;%</pre>
+                      <pre class="language-r">  adpp &lt;- dplyr::inner_join(adpp, adsl, by = c("STUDYID", "USUBJID")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">140</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(PARAM = as.factor(PARAM)) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::filter(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">141</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(PARAMCD = as.factor(PARAMCD)) %&gt;%</pre>
+                      <pre class="language-r">      ACTARM != "B: Placebo",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">142</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">      !(ACTARM == "A: Drug X" &amp; (PPCAT == "Plasma Drug Y" | PPCAT == "Metabolite Drug Y"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">5<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">    dplyr::arrange(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">252</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">      STUDYID,</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">  # derive PKARMCD column for creating more cohorts</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">146</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID,</pre>
+                      <pre class="language-r">  adpp &lt;- adpp %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">147</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD,</pre>
+                      <pre class="language-r">    dplyr::mutate(PKARMCD = factor(1 + (seq_len(nrow(adpp)) - 1) %/% (nrow(adpp) / 10), labels = c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">148</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ADTM,</pre>
+                      <pre class="language-r">      "Drug A", "Drug B", "Drug C", "Drug D", "Drug E", "Drug F", "Drug G", "Drug H",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">149</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TTESEQ</pre>
+                      <pre class="language-r">      "Drug I", "Drug J"</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">    )</pre>
+                      <pre class="language-r">    )))</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="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">152</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">260</td>
+                    <td class="num">153</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adaette &lt;- dplyr::mutate(ds = adaette, na_vars = na_vars, na_percentage = na_percentage)</pre>
+                      <pre class="language-r">    adpp &lt;- mutate_na(ds = adpp, na_vars = na_vars, na_percentage = na_percentage)</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"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">263</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  # apply metadata</pre>
-                    </td>
-                  </tr>
                   <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  adaette &lt;- apply_metadata(adaette, "metadata/ADAETTE.yml")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">265</td>
-                    <td class="coverage"></td>
+                    <td class="num">156</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  adpp &lt;- apply_metadata(adpp, "metadata/ADPP.yml")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">5<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">  return(adaette)</pre>
+                      <pre class="language-r">  return(adpp)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -21930,14 +21838,14 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/utils.R" class="hidden">
+            <div id="R/radeg.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">#' Load Cached Data</pre>
+                      <pre class="language-r">#' ECG Analysis Dataset (ADEG)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -21951,7 +21859,7 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Return data attached to package.</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -21965,105 +21873,105 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <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">#' Function for generating random dataset from ECG Analysis Dataset for a given</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#' Subject-Level Analysis Dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_cached_data &lt;- function(dataname) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">8</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(dataname)</pre>
+                      <pre class="language-r">#' @details One record per subject per parameter per analysis visit per analysis date.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">9</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!("package:random.cdisc.data" %in% search())) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">10</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("cached data can only be loaded if the random.cdisc.data package is attached.",</pre>
+                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `PARAMCD`, `BASETYPE`, `AVISITN`, `ATPTN`, `DTYPE`, `ADTM`, `EGSEQ`, `ASPID`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">11</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Please run library(random.cdisc.data) before loading cached data.",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">12</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      call. = FALSE</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 egcat (`character vector`)\cr EG category values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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 max_n_eg (`integer`)\cr Maximum number of EG results per patient. Defaults to 10.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">15</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get(dataname, envir = asNamespace("random.cdisc.data"))</pre>
+                      <pre class="language-r">#' @template param_cached</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">#' @templateVar data adeg</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">#'</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 `data.frame`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a Factor with Random Elements of x</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -22077,7 +21985,7 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Sample elements from `x` with replacement to build a factor.</pre>
+                      <pre class="language-r">#' @author tomlinsj, npaszty, Xuefeng Hou, dipietrc</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -22091,1099 +21999,1099 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`character vector` or `factor`)\cr If character vector then it is also used</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">#'   as levels of the returned factor. If factor then the levels are used as the new levels.</pre>
+                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</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 N (`numeric`)\cr Number of items to choose.</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">#' @param ... Additional arguments to be passed to `sample`.</pre>
+                      <pre class="language-r">#' adeg &lt;- radeg(adsl, visit_format = "WEEK", n_assessments = 7L, seed = 2)</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">#' adeg</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A factor of length `N`.</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">#' @export</pre>
+                      <pre class="language-r">#' adeg &lt;- radeg(adsl, visit_format = "CYCLE", n_assessments = 2L, seed = 2)</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">#' adeg</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">radeg &lt;- function(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">#' sample_fct(letters[1:3], 10)</pre>
+                      <pre class="language-r">                  egcat = c("INTERVAL", "INTERVAL", "MEASUREMENT", "FINDING"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' sample_fct(iris$Species, 10)</pre>
+                      <pre class="language-r">                  param = 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">sample_fct &lt;- function(x, N, ...) { # nolint</pre>
+                      <pre class="language-r">                    "QT Duration",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">35</td>
-                    <td class="coverage">296<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(N)</pre>
+                      <pre class="language-r">                    "RR Duration",</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">                    "Heart Rate",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">37</td>
-                    <td class="coverage">296<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  factor(sample(x, N, replace = TRUE, ...), levels = if (is.factor(x)) levels(x) else x)</pre>
+                      <pre class="language-r">                    "ECG Interpretation"</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">                  ),</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">                  paramcd = c("QT", "RR", "HR", "ECGINTP"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Related Variables: Initialize</pre>
+                      <pre class="language-r">                  paramu = c("msec", "msec", "beats/min", ""),</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">                  visit_format = "WEEK",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Verify and initialize related variable values.</pre>
+                      <pre class="language-r">                  n_assessments = 5L,</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 example, `relvar_init("Alanine Aminotransferase Measurement", "ALT")`.</pre>
+                      <pre class="language-r">                  n_days = 5L,</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">                  max_n_eg = 10L,</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 relvar1 (`list` of `character`)\cr List of n elements.</pre>
+                      <pre class="language-r">                  lookup = NULL,</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 relvar2 (`list` of `character`)\cr List of n elements.</pre>
+                      <pre class="language-r">                  seed = NULL,</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">                  na_percentage = 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A vector of n elements.</pre>
+                      <pre class="language-r">                  na_vars = list(</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">                    ABLFL = c(1235, 0.1), BASE = c(NA, 0.1), BASEC = c(NA, 0.1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                    CHG = c(1234, 0.1), PCHG = c(1234, 0.1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">relvar_init &lt;- function(relvar1, relvar2) {</pre>
+                      <pre class="language-r">                  ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">52</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(relvar1, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">                  cached = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">53</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(relvar2, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">54</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">  if (cached) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">55</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(relvar1) != length(relvar2)) {</pre>
+                      <pre class="language-r">    return(get_cached_data("cadeg"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">56</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    message(simpleError(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">57</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "The argument value length of relvar1 and relvar2 differ. They must contain the same number of elements."</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">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage">!</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">  checkmate::assert_character(egcat, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">60</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_character(param, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage">63<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(list("relvar1" = relvar1, "relvar2" = relvar2))</pre>
+                      <pre class="language-r">  checkmate::assert_character(paramcd, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">62</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_character(paramu, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">63</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_string(visit_format)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Related Variables: Assign</pre>
+                      <pre class="language-r">  checkmate::assert_integer(n_assessments, len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">65</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_integer(n_days, len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Assign values to a related variable within a domain.</pre>
+                      <pre class="language-r">  checkmate::assert_integer(max_n_eg, len = 1, any.missing = FALSE)</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">  checkmate::assert_data_frame(lookup, null.ok = TRUE)</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">#' @param df (`data.frame`)\cr Data frame containing the related variables.</pre>
+                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</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">#' @param var_name (`character`)\cr Name of variable related to `rel_var` to add to `df`.</pre>
+                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</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">#' @param var_values (`any`)\cr Vector of values related to values of `related_var`.</pre>
+                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</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 related_var (`character`)\cr Name of variable within `df` with values to which values</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">#' of `var_name` must relate.</pre>
+                      <pre class="language-r">  # validate and initialize related variables</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">73</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">  egcat_init_list &lt;- relvar_init(param, egcat)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `df` with added factor variable `var_name` containing `var_values` corresponding to `related_var`.</pre>
+                      <pre class="language-r">  param_init_list &lt;- relvar_init(param, paramcd)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">75</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  unit_init_list &lt;- relvar_init(param, paramu)</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"></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">#' @examples</pre>
+                      <pre class="language-r">  if (!is.null(seed)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">78</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Example with data.frame.</pre>
+                      <pre class="language-r">    set.seed(seed)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' params &lt;- c("Level A", "Level B", "Level C")</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">#' adlb_df &lt;- data.frame(</pre>
+                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ID = 1:9,</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">#'   PARAM = factor(</pre>
+                      <pre class="language-r">  adeg &lt;- expand.grid(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">83</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rep(c("Level A", "Level B", "Level C"), 3),</pre>
+                      <pre class="language-r">    STUDYID = unique(adsl$STUDYID),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">84</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     levels = params</pre>
+                      <pre class="language-r">    USUBJID = adsl$USUBJID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">85</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">    PARAM = as.factor(param_init_list$relvar1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">86</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">    AVISIT = visit_schedule(visit_format = visit_format, n_assessments = n_assessments, n_days = n_days),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">87</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rel_var(</pre>
+                      <pre class="language-r">    stringsAsFactors = 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">#'   df = adlb_df,</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">#'   var_name = "PARAMCD",</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">#'   var_values = c("A", "B", "C"),</pre>
+                      <pre class="language-r">  # assign related variable values: PARAMxEGCAT are related</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">91</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   related_var = "PARAM"</pre>
+                      <pre class="language-r">  adeg &lt;- adeg %&gt;% rel_var(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">92</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">    var_name = "EGCAT",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">93</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">    related_var = "PARAM",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">94</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Example with tibble.</pre>
+                      <pre class="language-r">    var_values = egcat_init_list$relvar2</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb_tbl &lt;- tibble::tibble(</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">#'   ID = 1:9,</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">#'   PARAM = factor(</pre>
+                      <pre class="language-r">  # assign related variable values: PARAMxPARAMCD are related</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">98</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rep(c("Level A", "Level B", "Level C"), 3),</pre>
+                      <pre class="language-r">  adeg &lt;- adeg %&gt;% rel_var(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">99</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     levels = params</pre>
+                      <pre class="language-r">    var_name = "PARAMCD",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">100</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">    related_var = "PARAM",</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">    var_values = param_init_list$relvar2</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rel_var(</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">#'   df = adlb_tbl,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">104</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   var_name = "PARAMCD",</pre>
+                      <pre class="language-r">  adeg &lt;- adeg %&gt;% dplyr::mutate(AVAL = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">105</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   var_values = c("A", "B", "C"),</pre>
+                      <pre class="language-r">    PARAMCD == "QT" ~ stats::rnorm(nrow(adeg), mean = 350, sd = 100),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">106</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   related_var = "PARAM"</pre>
+                      <pre class="language-r">    PARAMCD == "RR" ~ stats::rnorm(nrow(adeg), mean = 1050, sd = 300),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">107</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">    PARAMCD == "HR" ~ stats::rnorm(nrow(adeg), mean = 70, sd = 20),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">108</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">rel_var &lt;- function(df, var_name, related_var, var_values = NULL) {</pre>
+                      <pre class="language-r">    PARAMCD == "ECGINTP" ~ NA_real_</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">109</td>
-                    <td class="coverage">64<em>x</em></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">
+                  <tr class="never">
                     <td class="num">110</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(var_name)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">111</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(related_var)</pre>
+                      <pre class="language-r">  adeg &lt;- adeg %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">112</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_relvar1 &lt;- length(unique(df[, related_var, drop = TRUE]))</pre>
+                      <pre class="language-r">    dplyr::mutate(EGTESTCD = PARAMCD) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">113</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(var_values, null.ok = TRUE, len = n_relvar1, any.missing = FALSE)</pre>
+                      <pre class="language-r">    dplyr::mutate(EGTEST = PARAM)</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">  if (is.null(var_values)) var_values &lt;- rep(NA, n_relvar1)</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">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  adeg &lt;- adeg %&gt;% dplyr::mutate(AVISITN = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">116</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  relvar1 &lt;- unique(df[, related_var, drop = TRUE])</pre>
+                      <pre class="language-r">    AVISIT == "SCREENING" ~ -1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">117</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  relvar2_values &lt;- rep(NA, nrow(df))</pre>
+                      <pre class="language-r">    AVISIT == "BASELINE" ~ 0,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">118</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (r in seq_len(n_relvar1)) {</pre>
+                      <pre class="language-r">    (grepl("^WEEK", AVISIT) | grepl("^CYCLE", AVISIT)) ~ as.numeric(AVISIT) - 2,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">119</td>
-                    <td class="coverage">538<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    matched &lt;- which(df[, related_var, drop = TRUE] == relvar1[r])</pre>
+                      <pre class="language-r">    TRUE ~ NA_real_</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">120</td>
-                    <td class="coverage">538<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    relvar2_values[matched] &lt;- var_values[r]</pre>
+                      <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">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">122</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df[[var_name]] &lt;- factor(relvar2_values)</pre>
+                      <pre class="language-r">  adeg &lt;- adeg %&gt;% rel_var(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">123</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(df)</pre>
+                      <pre class="language-r">    var_name = "AVALU",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">124</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">    related_var = "PARAM",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">125</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">    var_values = unit_init_list$relvar2</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create Visit Schedule</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">#'</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">#' Create a visit schedule as a factor.</pre>
+                      <pre class="language-r">  # order to prepare for change from screening and baseline values</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">129</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">  adeg &lt;- adeg[order(adeg$STUDYID, adeg$USUBJID, adeg$PARAMCD, adeg$AVISITN), ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' X number of visits, or X number of cycles and Y number of days.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">131</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">  adeg &lt;- Reduce(rbind, lapply(split(adeg, adeg$USUBJID), function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">132</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">    x$STUDYID &lt;- adsl$STUDYID[which(adsl$USUBJID == x$USUBJID[1])]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">133</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    x$ABLFL &lt;- ifelse(toupper(visit_format) == "WEEK" &amp; x$AVISIT == "BASELINE",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">134</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A factor of length `n_assessments`.</pre>
+                      <pre class="language-r">      "Y",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">135</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      ifelse(toupper(visit_format) == "CYCLE" &amp; x$AVISIT == "CYCLE 1 DAY 1", "Y", "")</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">
+                  <tr class="covered">
                     <td class="num">137</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    x</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' visit_schedule(visit_format = "WEeK", n_assessments = 10L)</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">#' visit_schedule(visit_format = "CyCLE", n_assessments = 5L, n_days = 2L)</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">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">visit_schedule &lt;- function(visit_format = "WEEK",</pre>
+                      <pre class="language-r">  adeg$BASE &lt;- ifelse(adeg$AVISITN &gt;= 0, retain(adeg, adeg$AVAL, adeg$ABLFL == "Y"), adeg$AVAL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           n_assessments = 10L,</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">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           n_days = 5L) {</pre>
+                      <pre class="language-r">  adeg &lt;- adeg %&gt;% dplyr::mutate(ANRLO = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">143</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(visit_format, pattern = "^WEEK$|^CYCLE$", ignore.case = TRUE)</pre>
+                      <pre class="language-r">    PARAMCD == "QT" ~ 200,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">144</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(n_assessments, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">    PARAMCD == "RR" ~ 600,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">145</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(n_days, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">    PARAMCD == "HR" ~ 40,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">146</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">    PARAMCD == "ECGINTP" ~ NA_real_</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">147</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (toupper(visit_format) == "WEEK") {</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">    # numeric vector of n assessments/cycles/days</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">149</td>
-                    <td class="coverage">49<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assessments &lt;- 1:n_assessments</pre>
+                      <pre class="language-r">  adeg &lt;- adeg %&gt;% dplyr::mutate(ANRHI = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">150</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # numeric vector for ordering including screening (-1) and baseline (0) place holders</pre>
+                      <pre class="language-r">    PARAMCD == "QT" ~ 500,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">151</td>
-                    <td class="coverage">49<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assessments_ord &lt;- -1:n_assessments</pre>
+                      <pre class="language-r">    PARAMCD == "RR" ~ 1500,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">152</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # character vector of nominal visit values</pre>
+                      <pre class="language-r">    PARAMCD == "HR" ~ 100,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">153</td>
-                    <td class="coverage">49<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    visit_values &lt;- c("SCREENING", "BASELINE", paste(toupper(visit_format), assessments, "DAY", (assessments * 7) + 1))</pre>
+                      <pre class="language-r">    PARAMCD == "ECGINTP" ~ NA_real_</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">154</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (toupper(visit_format) == "CYCLE") {</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">155</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cycles &lt;- sort(rep(1:n_assessments, times = 1, each = n_days))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">156</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">    days &lt;- rep(seq(1:n_days), times = n_assessments, each = 1)</pre>
+                      <pre class="language-r">  adeg &lt;- adeg %&gt;% dplyr::mutate(ANRIND = factor(dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">157</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">    assessments_ord &lt;- 0:(n_assessments * n_days)</pre>
+                      <pre class="language-r">    AVAL &lt; ANRLO ~ "LOW",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">158</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">    visit_values &lt;- c("SCREENING", paste(toupper(visit_format), cycles, "DAY", days))</pre>
+                      <pre class="language-r">    AVAL &gt;= ANRLO &amp; AVAL &lt;= ANRHI ~ "NORMAL",</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">    AVAL &gt; ANRHI ~ "HIGH"</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">  )))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # create and order factor variable to return from function</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">162</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  visit_values &lt;- stats::reorder(factor(visit_values), assessments_ord)</pre>
+                      <pre class="language-r">  adeg &lt;- adeg %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">163</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">    dplyr::mutate(CHG = ifelse(AVISITN &gt; 0, AVAL - BASE, NA)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">164</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">    dplyr::mutate(PCHG = ifelse(AVISITN &gt; 0, 100 * (CHG / BASE), NA)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">165</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Primary Keys: Retain Values</pre>
+                      <pre class="language-r">    dplyr::mutate(BASETYPE = "LAST") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">166</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">    dplyr::group_by(USUBJID, PARAMCD, BASETYPE) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">167</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Retain values within primary keys.</pre>
+                      <pre class="language-r">    dplyr::mutate(BNRIND = ANRIND[ABLFL == "Y"]) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">168</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">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">169</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param df (`data.frame`)\cr Data frame in which to apply the retain.</pre>
+                      <pre class="language-r">    dplyr::mutate(ATPTN = 1) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">170</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param value_var (`any`)\cr Variable in `df` containing the value to be retained.</pre>
+                      <pre class="language-r">    dplyr::mutate(DTYPE = NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param event (`expression`)\cr Expression returning a logical value to trigger the retain.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">172</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param outside (`any`)\cr Additional value to retain. Defaults to `NA`.</pre>
+                      <pre class="language-r">  adeg$ANRIND &lt;- factor(adeg$ANRIND, levels = c("LOW", "NORMAL", "HIGH"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">173</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A vector of values where expression is true.</pre>
+                      <pre class="language-r">  adeg$BNRIND &lt;- factor(adeg$BNRIND, levels = c("LOW", "NORMAL", "HIGH"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">174</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">
+                  <tr class="covered">
                     <td class="num">175</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">retain &lt;- function(df, value_var, event, outside = NA) {</pre>
+                      <pre class="language-r">  adeg &lt;- rcd_var_relabel(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">176</td>
-                    <td class="coverage">31<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  indices &lt;- c(1, which(event == TRUE), nrow(df) + 1)</pre>
+                      <pre class="language-r">    adeg,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">177</td>
-                    <td class="coverage">31<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  values &lt;- c(outside, value_var[event == TRUE])</pre>
+                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">178</td>
-                    <td class="coverage">31<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rep(values, diff(indices))</pre>
+                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</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">
@@ -23197,588 +23105,588 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Primary Keys: Labels</pre>
+                      <pre class="language-r">  # merge ADSL to be able to add EG date and study day variables</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">182</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">  adeg &lt;- dplyr::inner_join(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">183</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Relabel a subset of variables in a data set.</pre>
+                      <pre class="language-r">    adeg,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">184</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">    adsl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">185</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`data.frame`)\cr Data frame containing variables to which labels are applied.</pre>
+                      <pre class="language-r">    by = c("STUDYID", "USUBJID")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... (`named character`)\cr Name-Value pairs, where name corresponds to a variable</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">187</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' name in `x` and the value to the new variable label.</pre>
+                      <pre class="language-r">    dplyr::rowwise() %&gt;%</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">#' @return x (`data.frame`)\cr Data frame with labels applied.</pre>
+                      <pre class="language-r">    dplyr::mutate(TRTENDT = lubridate::date(dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">189</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">      is.na(TRTEDTM) ~ lubridate::floor_date(lubridate::date(TRTSDTM) + study_duration_secs, unit = "day"),</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">#' @export</pre>
+                      <pre class="language-r">      TRUE ~ TRTEDTM</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">    ))) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">192</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">    dplyr::ungroup()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- radsl()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">194</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' var_relabel(adsl,</pre>
+                      <pre class="language-r">  adeg &lt;- adeg %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">195</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   STUDYID = "Study Identifier",</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</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">#'   USUBJID = "Unique Subject Identifier"</pre>
+                      <pre class="language-r">    dplyr::arrange(USUBJID, AVISITN) %&gt;%</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">    dplyr::mutate(ADTM = rep(</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">var_relabel &lt;- function(x, ...) {</pre>
+                      <pre class="language-r">      sort(sample(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">199</td>
-                    <td class="coverage">82<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dots &lt;- list(...)</pre>
+                      <pre class="language-r">        seq(lubridate::as_datetime(TRTSDTM[1]), lubridate::as_datetime(TRTENDT[1]), by = "day"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">200</td>
-                    <td class="coverage">82<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  varnames &lt;- names(dots)</pre>
+                      <pre class="language-r">        size = nlevels(AVISIT)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">201</td>
-                    <td class="coverage">82<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(varnames)) {</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">    stop("missing variable declarations")</pre>
+                      <pre class="language-r">      each = n() / nlevels(AVISIT)</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">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">204</td>
-                    <td class="coverage">81<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  map_varnames &lt;- match(varnames, names(x))</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">205</td>
-                    <td class="coverage">81<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_along(map_varnames)) {</pre>
+                      <pre class="language-r">    dplyr::mutate(ADY = ceiling(difftime(ADTM, TRTSDTM, units = "days"))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">206</td>
-                    <td class="coverage">161<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    attr(x[[map_varnames[[i]]]], "label") &lt;- dots[[i]]</pre>
+                      <pre class="language-r">    dplyr::select(-TRTENDT) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">207</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">    dplyr::arrange(STUDYID, USUBJID, ADTM)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">208</td>
-                    <td class="coverage">81<em>x</em></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">
+                  <tr class="covered">
                     <td class="num">209</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">  adeg &lt;- adeg %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">210</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">    dplyr::mutate(ASPID = sample(seq_len(dplyr::n()))) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">211</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Apply Metadata</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">212</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">    dplyr::mutate(EGSEQ = seq_len(dplyr::n())) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">213</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Apply label and variable ordering attributes to domains.</pre>
+                      <pre class="language-r">    dplyr::mutate(ASEQ = EGSEQ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">214</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">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">215</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param df (`data.frame`)\cr Data frame to which metadata is applied.</pre>
+                      <pre class="language-r">    dplyr::arrange(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">216</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filename (`yaml`)\cr File containing domain metadata.</pre>
+                      <pre class="language-r">      STUDYID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">217</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param add_adsl (`logical`)\cr Should ADSL data be merged to domain.</pre>
+                      <pre class="language-r">      USUBJID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">218</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param adsl_filename (`yaml`)\cr File containing ADSL metadata.</pre>
+                      <pre class="language-r">      PARAMCD,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">219</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Data frame with metadata applied.</pre>
+                      <pre class="language-r">      BASETYPE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">220</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">      AVISITN,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">221</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      ATPTN,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">222</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">      DTYPE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">223</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' seed &lt;- 1</pre>
+                      <pre class="language-r">      ADTM,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">224</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- radsl(seed = seed)</pre>
+                      <pre class="language-r">      EGSEQ,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">225</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsub &lt;- radsub(adsl, seed = seed)</pre>
+                      <pre class="language-r">      ASPID</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' yaml_path &lt;- file.path(path.package("random.cdisc.data"), "inst", "metadata")</pre>
+                      <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">#' adsl &lt;- apply_metadata(adsl, file.path(yaml_path, "ADSL.yml"), FALSE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">228</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsub &lt;- apply_metadata(</pre>
+                      <pre class="language-r">  adeg &lt;- adeg %&gt;% dplyr::mutate(ONTRTFL = factor(dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">229</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   adsub, file.path(yaml_path, "ADSUB.yml"), TRUE,</pre>
+                      <pre class="language-r">    !AVISIT %in% c("SCREENING", "BASELINE") ~ "Y",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">230</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   file.path(yaml_path, "ADSL.yml")</pre>
+                      <pre class="language-r">    TRUE ~ ""</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">  )))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">apply_metadata &lt;- function(df, filename, add_adsl = TRUE, adsl_filename = "metadata/ADSL.yml") {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">233</td>
-                    <td class="coverage">90<em>x</em></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">  adeg &lt;- adeg %&gt;% dplyr::mutate(AVALC = ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">234</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(filename)</pre>
+                      <pre class="language-r">    PARAMCD == "ECGINTP",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">235</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(add_adsl)</pre>
+                      <pre class="language-r">    as.character(sample_fct(c("ABNORMAL", "NORMAL"), nrow(adeg), prob = c(0.25, 0.75))),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">236</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(adsl_filename)</pre>
+                      <pre class="language-r">    as.character(AVAL)</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">  ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">238</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  apply_type &lt;- function(df, var, type) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">239</td>
-                    <td class="coverage">5986<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(type)) {</pre>
+                      <pre class="language-r">  # Temporarily creating a row_check column to easily match newly created</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">240</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return()</pre>
+                      <pre class="language-r">  # observations with their row correct arrangement.</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">    }</pre>
+                      <pre class="language-r">  adeg &lt;- adeg %&gt;%</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">    dplyr::mutate(row_check = seq_len(nrow(adeg)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">243</td>
-                    <td class="coverage">5986<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (type == "character" &amp;&amp; !is.character(df[[var]])) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">244</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df[[var]] &lt;- as.character(df[[var]])</pre>
+                      <pre class="language-r">  # Created function to add in new observations for DTYPE, "MINIMUM" &amp; "MAXIMUM" in this case.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">245</td>
-                    <td class="coverage">5974<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else if (type == "factor" &amp;&amp; !is.factor(df[[var]])) {</pre>
+                      <pre class="language-r">  get_groups &lt;- function(data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">246</td>
-                    <td class="coverage">730<em>x</em></td>
+                    <td class="coverage">3<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">                         minimum) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">247</td>
-                    <td class="coverage">5244<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else if (type == "integer" &amp;&amp; !is.integer(df[[var]])) {</pre>
+                      <pre class="language-r">    data &lt;- data %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">248</td>
-                    <td class="coverage">225<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df[[var]] &lt;- as.integer(df[[var]])</pre>
+                      <pre class="language-r">      dplyr::group_by(USUBJID, PARAMCD, BASETYPE) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">249</td>
-                    <td class="coverage">5019<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else if (type == "numeric" &amp;&amp; !is.numeric(df[[var]])) {</pre>
+                      <pre class="language-r">      dplyr::arrange(ADTM, ASPID, EGSEQ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">250</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df[[var]] &lt;- as.numeric(df[[var]])</pre>
+                      <pre class="language-r">      dplyr::filter(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">251</td>
-                    <td class="coverage">5016<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else if (type == "logical" &amp;&amp; !is.logical(df[[var]])) {</pre>
+                      <pre class="language-r">        (AVISIT != "BASELINE" &amp; AVISIT != "SCREENING") &amp;</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <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">      df[[var]] &lt;- as.logical(df[[var]])</pre>
+                      <pre class="language-r">          (ONTRTFL == "Y" | ADTM &lt;= TRTSDTM)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">253</td>
-                    <td class="coverage">5016<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else if (type == "datetime" &amp;&amp; !lubridate::is.POSIXct(df[[var]])) {</pre>
+                      <pre class="language-r">      ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">254</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df[[var]] &lt;- as.POSIXct(df[[var]])</pre>
+                      <pre class="language-r">      {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">255</td>
-                    <td class="coverage">5007<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else if (type == "date" &amp;&amp; !lubridate::is.Date(df[[var]])) {</pre>
+                      <pre class="language-r">        if (minimum == TRUE) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">256</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df[[var]] &lt;- as.Date(df[[var]])</pre>
+                      <pre class="language-r">          dplyr::filter(., AVAL == min(AVAL)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">257</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">            dplyr::mutate(., DTYPE = "MINIMUM", AVISIT = "POST-BASELINE MINIMUM")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">258</td>
-                    <td class="coverage">5986<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(df)</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">259</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">          dplyr::filter(., AVAL == max(AVAL)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">260</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">            dplyr::mutate(., DTYPE = "MAXIMUM", AVISIT = "POST-BASELINE MAXIMUM")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # remove existing attributes</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">262</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (i in base::setdiff(names(attributes(df)), names(attributes(data.frame())))) {</pre>
+                      <pre class="language-r">      } %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">263</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    attr(df, i) &lt;- NULL</pre>
+                      <pre class="language-r">      dplyr::slice(1) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">264</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">      dplyr::ungroup()</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -23788,67 +23696,67 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">266</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # get metadata</pre>
+                      <pre class="language-r">    return(data)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">267</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  metadata &lt;- yaml::yaml.load_file(system.file(filename, package = "random.cdisc.data"))</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">268</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adsl_metadata &lt;- if (add_adsl) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">269</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    yaml::yaml.load_file(system.file(adsl_filename, package = "random.cdisc.data"))</pre>
+                      <pre class="language-r">  # Binding the new observations to the dataset from the function above and rearranging in the correct order.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">270</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">  adeg &lt;- rbind(adeg, get_groups(adeg, TRUE), get_groups(adeg, FALSE)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">271</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NULL</pre>
+                      <pre class="language-r">    dplyr::arrange(row_check) %&gt;%</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">  }</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID, PARAMCD, BASETYPE) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">273</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  metadata_variables &lt;- append(adsl_metadata$variables, metadata$variables)</pre>
+                      <pre class="language-r">    dplyr::arrange(AVISIT, .by_group = TRUE) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">274</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  metadata_varnames &lt;- names(metadata_variables)</pre>
+                      <pre class="language-r">    dplyr::ungroup()</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -23862,406 +23770,406 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # find variables that does not have labels and are not it metadata</pre>
+                      <pre class="language-r">  # Dropping the "row_check" column created above.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">277</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  missing_vars_map &lt;- vapply(</pre>
+                      <pre class="language-r">  adeg &lt;- adeg[, -which(names(adeg) %in% c("row_check"))]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">278</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    names(df),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">279</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(x) {</pre>
+                      <pre class="language-r">  # Created function to easily match rows which comply to ONTRTFL derivation</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">280</td>
-                    <td class="coverage">5986<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      !(x %in% c("STUDYID", "USUBJID", metadata_varnames)) &amp;&amp; is.null(attr(df[[x]], "label"))</pre>
+                      <pre class="language-r">  flag_variables &lt;- function(data, worst_obs) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">281</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">    data_compare &lt;- data %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">282</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logical(1)</pre>
+                      <pre class="language-r">      dplyr::mutate(row_check = seq_len(nrow(data)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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="covered">
                     <td class="num">284</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  missing_vars &lt;- names(df)[missing_vars_map]</pre>
+                      <pre class="language-r">    data &lt;- data_compare %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">285</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(missing_vars) &gt; 0) {</pre>
+                      <pre class="language-r">      {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">286</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    msg &lt;- paste0(</pre>
+                      <pre class="language-r">        if (worst_obs == FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">287</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Following variables does not have label or are not found in ",</pre>
+                      <pre class="language-r">          dplyr::group_by(., USUBJID, PARAMCD, BASETYPE, AVISIT) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">288</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      filename,</pre>
+                      <pre class="language-r">            dplyr::arrange(., ADTM, ASPID, EGSEQ)</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>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">290</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste0(missing_vars, collapse = ", ")</pre>
+                      <pre class="language-r">          dplyr::group_by(., USUBJID, PARAMCD, BASETYPE)</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">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">292</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(msg)</pre>
+                      <pre class="language-r">      } %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">293</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">      dplyr::filter(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">294</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">        AVISITN &gt; 0 &amp; (ONTRTFL == "Y" | ADTM &lt;= TRTSDTM) &amp;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">295</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!all(metadata_varnames %in% names(df))) {</pre>
+                      <pre class="language-r">          is.na(DTYPE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">296</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    metadata_varnames &lt;- metadata_varnames[metadata_varnames %in% names(df)]</pre>
+                      <pre class="language-r">      ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">297</td>
                     <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">298</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">        if (worst_obs == TRUE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">299</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # assign labels to variables</pre>
+                      <pre class="language-r">          dplyr::arrange(., AVALC) %&gt;% dplyr::filter(., ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">300</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (var in metadata_varnames) {</pre>
+                      <pre class="language-r">            PARAMCD == "ECGINTP",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">301</td>
-                    <td class="coverage">5986<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df &lt;- apply_type(df, var, metadata_variables[[var]]$type)</pre>
+                      <pre class="language-r">            ifelse(AVALC == "ABNORMAL", AVALC == "ABNORMAL", AVALC == "NORMAL"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">302</td>
-                    <td class="coverage">5986<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    attr(df[[var]], "label") &lt;- metadata_variables[[var]]$label</pre>
+                      <pre class="language-r">            AVAL == min(AVAL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">304</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">305</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # reorder data frame columns to expected BDS order</pre>
+                      <pre class="language-r">          dplyr::filter(., ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">306</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df &lt;- df[, unique(c("STUDYID", "USUBJID", metadata_varnames, names(df)))]</pre>
+                      <pre class="language-r">            PARAMCD == "ECGINTP",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">307</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">            AVALC == "ABNORMAL" | AVALC == "NORMAL",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">308</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # assign label to data frame</pre>
+                      <pre class="language-r">            AVAL == min(AVAL)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">309</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(df, "label") &lt;- metadata$domain$label</pre>
+                      <pre class="language-r">          ))</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="covered">
+                  <tr class="never">
                     <td class="num">311</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df</pre>
+                      <pre class="language-r">      } %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">312</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">      dplyr::slice(1) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">
+                  <tr class="covered">
                     <td class="num">314</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Replace Values in a Vector by NA</pre>
+                      <pre class="language-r">        if (worst_obs == TRUE) {</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">          dplyr::mutate(., new_var = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">316</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">            (AVALC == "ABNORMAL" | AVALC == "NORMAL") ~ "Y",</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">            (!is.na(AVAL) &amp; is.na(DTYPE)) ~ "Y",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">318</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Randomized replacement of values by `NA`.</pre>
+                      <pre class="language-r">            TRUE ~ ""</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">          ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">321</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param v (`any`)\cr Vector of any type.</pre>
+                      <pre class="language-r">          dplyr::mutate(., new_var = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">322</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param percentage (`proportion`)\cr Value between 0 and 1 defining</pre>
+                      <pre class="language-r">            (AVALC == "ABNORMAL" | AVALC == "NORMAL") ~ "Y",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">323</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   how much of the vector shall be replaced by `NA`. This number</pre>
+                      <pre class="language-r">            (!is.na(AVAL) &amp; is.na(DTYPE)) ~ "Y",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">324</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   is randomized by +/- 5% to have full randomization.</pre>
+                      <pre class="language-r">            TRUE ~ ""</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">          ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return The input vector `v` where a certain number of values are replaced by `NA`.</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">#'</pre>
+                      <pre class="language-r">      } %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">328</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      dplyr::ungroup()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">replace_na &lt;- function(v, percentage = 0.05, seed = NULL) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">330</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">  checkmate::assert_number(percentage, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">    data_compare$new_var &lt;- ifelse(data_compare$row_check %in% data$row_check, "Y", "")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">331</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">    data_compare &lt;- data_compare[, -which(names(data_compare) %in% c("row_check"))]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">332</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (percentage == 0) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">333</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(v)</pre>
+                      <pre class="language-r">    return(data_compare)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -24280,1853 +24188,1986 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                   </tr>
                   <tr class="covered">
                     <td class="num">336</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">  if (!is.null(seed) &amp;&amp; !is.na(seed)) {</pre>
+                      <pre class="language-r">  adeg &lt;- flag_variables(adeg, FALSE) %&gt;% dplyr::rename(WORS01FL = "new_var")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">337</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">    set.seed(seed)</pre>
+                      <pre class="language-r">  adeg &lt;- flag_variables(adeg, TRUE) %&gt;% dplyr::rename(WORS02FL = "new_var")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">
+                  <tr class="covered">
                     <td class="num">339</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">  adeg &lt;- adeg %&gt;% dplyr::mutate(ANL01FL = factor(ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">340</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # randomize the percentage</pre>
+                      <pre class="language-r">    (ABLFL == "Y" | (is.na(DTYPE) &amp; WORS01FL == "Y")) &amp;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">341</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">  ind &lt;- sample(seq_along(v), round(length(v) * percentage))</pre>
+                      <pre class="language-r">      (AVISIT != "SCREENING"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">342</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">    "Y",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">343</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  v[ind] &lt;- NA</pre>
+                      <pre class="language-r">    ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">344</td>
                     <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">345</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(v)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">346</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">  adeg &lt;- adeg %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">347</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">    dplyr::group_by(USUBJID, PARAMCD, BASETYPE) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">348</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Replace Values with NA</pre>
+                      <pre class="language-r">    dplyr::mutate(BASEC = ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">349</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">      PARAMCD == "ECGINTP",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">350</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">      AVALC[AVISIT == "BASELINE"],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">351</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">      as.character(BASE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Replace column values with `NA`s.</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">353</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">    dplyr::mutate(ANL03FL = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">354</td>
-                    <td class="coverage"></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">      DTYPE == "MINIMUM" ~ "Y",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">355</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ds (`data.frame`)\cr Any data set.</pre>
+                      <pre class="language-r">      ABLFL == "Y" &amp; PARAMCD != "ECGINTP" ~ "Y",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">356</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">      TRUE ~ ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return dataframe without `NA` values.</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">358</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">    dplyr::mutate(ANL04FL = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">359</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      DTYPE == "MAXIMUM" ~ "Y",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">360</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">mutate_na &lt;- function(ds, na_vars = NULL, na_percentage = 0.05) {</pre>
+                      <pre class="language-r">      ABLFL == "Y" &amp; PARAMCD != "ECGINTP" ~ "Y",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">361</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 (!is.null(na_vars)) {</pre>
+                      <pre class="language-r">      TRUE ~ ""</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">362</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stopifnot(is.list(na_vars)) # any list is OK; as values can be left NA</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">363</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">    stopifnot(length(names(na_vars)) == length(na_vars)) # names for all elements</pre>
+                      <pre class="language-r">    dplyr::ungroup()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">364</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">365</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">    na_vars &lt;- names(ds)</pre>
+                      <pre class="language-r">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">366</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    adeg &lt;- mutate_na(ds = adeg, na_vars = na_vars, na_percentage = na_percentage)</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">367</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">369</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # apply metadata</pre>
+                    </td>
+                  </tr>
                   <tr class="covered">
-                    <td class="num">368</td>
-                    <td class="coverage">5<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">  stopifnot(is.numeric(na_percentage))</pre>
+                      <pre class="language-r">  adeg &lt;- apply_metadata(adeg, "metadata/ADEG.yml")</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">369</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">372</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stopifnot(na_percentage &gt;= 0 &amp;&amp; na_percentage &lt; 1)</pre>
+                      <pre class="language-r">  return(adeg)</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>
+                    </td>
+                  </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/radhy.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">#' Hy's Law Analysis Dataset (ADHY)</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">370</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">371</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">  for (na_var in names(na_vars)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">372</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">    if (!is.na(na_var)) {</pre>
+                      <pre class="language-r">#' Function for generating a random Hy's Law Analysis Dataset for a given</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">373</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">      if (!na_var %in% names(ds)) {</pre>
+                      <pre class="language-r">#' Subject-Level Analysis Dataset.</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">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        warning(paste(na_var, "not in column names"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</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">#' @details One record per subject per parameter per analysis visit per analysis date.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">376</td>
-                    <td class="coverage">7<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">        ds &lt;- ds %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">377</td>
-                    <td class="coverage">7<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">          ungroup_rowwise_df() %&gt;%</pre>
+                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `PARAMCD`, `AVISITN`, `ADTM`, `SRCSEQ`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">378</td>
-                    <td class="coverage">7<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">          dplyr::mutate(</pre>
+                      <pre class="language-r">#</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">7<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">            !!na_var := ds[[na_var]] %&gt;%</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">7<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">              replace_na(</pre>
+                      <pre class="language-r">#' @template param_cached</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">7<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">                percentage = ifelse(is.na(na_vars[[na_var]][2]), na_percentage, na_vars[[na_var]][2]),</pre>
+                      <pre class="language-r">#' @templateVar data adhy</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">7<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">                seed = na_vars[[na_var]][1]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">383</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 `data.frame`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">384</td>
+                    <td class="num">17</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">385</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">386</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @author wojciakw</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</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">388</td>
-                    <td class="coverage">5<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">  return(ds)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">390</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">391</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ungroup_rowwise_df &lt;- function(x) {</pre>
+                      <pre class="language-r">#' adhy &lt;- radhy(adsl, seed = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">392</td>
-                    <td class="coverage">7<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">  class(x) &lt;- c("tbl", "tbl_df", "data.frame")</pre>
+                      <pre class="language-r">#' adhy</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">393</td>
-                    <td class="coverage">7<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">  return(x)</pre>
+                      <pre class="language-r">radhy &lt;- function(adsl,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</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 = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                    "TBILI &lt;= 2 times ULN and ALT value category",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Zero-Truncated Poisson Distribution</pre>
+                      <pre class="language-r">                    "TBILI &gt; 2 times ULN and AST value category",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                    "TBILI &gt; 2 times ULN and ALT value category",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">                    "TBILI &lt;= 2 times ULN and AST value category",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                    "TBILI &gt; 2 times ULN and ALKPH &lt;= 2 times ULN and ALT value category",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This generates random numbers from a zero-truncated Poisson distribution,</pre>
+                      <pre class="language-r">                    "TBILI &gt; 2 times ULN and ALKPH &lt;= 2 times ULN and AST value category",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">401</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' i.e. from `X | X &gt; 0` when `X ~ Poisson(lambda)`. The advantage here is that</pre>
+                      <pre class="language-r">                    "TBILI &gt; 2 times ULN and ALKPH &lt;= 5 times ULN and ALT value category",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' we guarantee to return exactly `n` numbers and without using a loop internally.</pre>
+                      <pre class="language-r">                    "TBILI &gt; 2 times ULN and ALKPH &lt;= 5 times ULN and AST value category",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">403</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This solution was provided in a post by</pre>
+                      <pre class="language-r">                    "TBILI &lt;= 2 times ULN and two consecutive elevations of ALT in relation to ULN",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [Peter Dalgaard](https://stat.ethz.ch/pipermail/r-help/2005-May/070680.html).</pre>
+                      <pre class="language-r">                    "TBILI &gt; 2 times ULN and two consecutive elevations of AST in relation to ULN",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                    "TBILI &lt;= 2 times ULN and two consecutive elevations of AST in relation to ULN",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param n (`numeric`)\cr Number of random numbers.</pre>
+                      <pre class="language-r">                    "TBILI &gt; 2 times ULN and two consecutive elevations of ALT in relation to ULN",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param lambda (`numeric`)\cr Non-negative mean(s).</pre>
+                      <pre class="language-r">                    "TBILI &gt; 2 times ULN and two consecutive elevations of ALT in relation to Baseline",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">408</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                    "TBILI &lt;= 2 times ULN and two consecutive elevations of ALT in relation to Baseline",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">409</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return The random numbers.</pre>
+                      <pre class="language-r">                    "TBILI &gt; 2 times ULN and two consecutive elevations of AST in relation to Baseline",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">410</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                    "TBILI &lt;= 2 times ULN and two consecutive elevations of AST in relation to Baseline",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">411</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                    "ALT &gt; 3 times ULN by Period",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">412</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">                    "AST &gt; 3 times ULN by Period",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">413</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- rpois(1e6, lambda = 5)</pre>
+                      <pre class="language-r">                    "ALT or AST &gt; 3 times ULN by Period",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">414</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- x[x &gt; 0]</pre>
+                      <pre class="language-r">                    "ALT &gt; 3 times Baseline by Period",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">415</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' hist(x)</pre>
+                      <pre class="language-r">                    "AST &gt; 3 times Baseline by Period",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">416</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                    "ALT or AST &gt; 3 times Baseline by Period"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">417</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' y &lt;- rtpois(1e6, lambda = 5)</pre>
+                      <pre class="language-r">                  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">418</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' hist(y)</pre>
+                      <pre class="language-r">                  paramcd = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">419</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">rtpois &lt;- function(n, lambda) {</pre>
+                      <pre class="language-r">                    "BLAL",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">420</td>
-                    <td class="coverage">121<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">  stats::qpois(stats::runif(n, stats::dpois(0, lambda), 1), lambda)</pre>
+                      <pre class="language-r">                    "BGAS",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">421</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                    "BGAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">422</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                    "BLAS",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">423</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Truncated Exponential Distribution</pre>
+                      <pre class="language-r">                    "BA2AL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">424</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                    "BA2AS",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">425</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">                    "BA5AL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">426</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                    "BA5AS",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This generates random numbers from a truncated Exponential distribution,</pre>
+                      <pre class="language-r">                    "BL2AL2CU",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' i.e. from `X | X &gt; l` or `X | X &lt; r` when `X ~ Exp(rate)`. The advantage here is that</pre>
+                      <pre class="language-r">                    "BG2AS2CU",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' we guarantee to return exactly `n` numbers and without using a loop internally.</pre>
+                      <pre class="language-r">                    "BL2AS2CU",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">430</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This can be derived from the quantile functions of the left- and right-truncated</pre>
+                      <pre class="language-r">                    "BG2AL2CU",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">431</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Exponential distributions.</pre>
+                      <pre class="language-r">                    "BG2AL2CB",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">432</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                    "BL2AL2CB",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">433</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param n (`numeric`)\cr Number of random numbers.</pre>
+                      <pre class="language-r">                    "BG2AS2CB",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">434</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param rate (`numeric`)\cr Non-negative rate.</pre>
+                      <pre class="language-r">                    "BL2AS2CB",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">435</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param l (`numeric`)\cr Positive left-hand truncation parameter.</pre>
+                      <pre class="language-r">                    "ALTPULN",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">436</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param r (`numeric`)\cr Positive right-hand truncation parameter.</pre>
+                      <pre class="language-r">                    "ASTPULN",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">437</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                    "ALTASTPU",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">438</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return The random numbers. If neither `l` nor `r` are provided then the usual Exponential</pre>
+                      <pre class="language-r">                    "ALTPBASE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  distribution is used.</pre>
+                      <pre class="language-r">                    "ASTPBASE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">440</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">                    "ALTASTPB"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">441</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">442</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                  seed = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">443</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- stats::rexp(1e6, rate = 5)</pre>
+                      <pre class="language-r">                  cached = FALSE) {</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">  checkmate::assert_flag(cached)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">444</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- x[x &gt; 0.5]</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="col-sm-12">
+                      <pre class="language-r">  if (cached) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    return(get_cached_data("cadhy"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">445</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' hist(x)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</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">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_character(param, min.len = 1, any.missing = FALSE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">85</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_character(paramcd, min.len = 1, any.missing = FALSE)</pre>
+                    </td>
+                  </tr>
+                  <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">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">447</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' y &lt;- rtexp(1e6, rate = 5, l = 0.5)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">448</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' hist(y)</pre>
+                      <pre class="language-r">  # validate and initialize related variables</pre>
+                    </td>
+                  </tr>
+                  <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">  param_init_list &lt;- relvar_init(param, paramcd)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">449</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">91</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (!is.null(seed)) {</pre>
+                    </td>
+                  </tr>
+                  <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">    set.seed(seed)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">450</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' z &lt;- rtexp(1e6, rate = 5, r = 0.5)</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <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">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">451</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' hist(z)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">452</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">rtexp &lt;- function(n, rate, l = NULL, r = NULL) {</pre>
+                      <pre class="language-r">  # create all combinations of unique values in STUDYID, USUBJID, PARAM, AVISIT</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">453</td>
-                    <td class="coverage">123<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">  if (!is.null(l)) {</pre>
+                      <pre class="language-r">  adhy &lt;- expand.grid(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">454</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">    l - log(1 - stats::runif(n)) / rate</pre>
+                      <pre class="language-r">    STUDYID = unique(adsl$STUDYID),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">455</td>
-                    <td class="coverage">122<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">  } else if (!is.null(r)) {</pre>
+                      <pre class="language-r">    USUBJID = adsl$USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">456</td>
-                    <td class="coverage">121<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">    -log(1 - stats::runif(n) * (1 - exp(-r * rate))) / rate</pre>
+                      <pre class="language-r">    PARAM = as.factor(param_init_list$relvar1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">457</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">  } else {</pre>
+                      <pre class="language-r">    AVISIT = as.factor(c("BASELINE", "POST-BASELINE")),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">458</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">    APERIODC = as.factor(c("PERIOD 1", "PERIOD 2")),</pre>
+                    </td>
+                  </tr>
+                  <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">    stats::rexp(n, rate)</pre>
+                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">459</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">460</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>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/radpc.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Pharmacokinetics Analysis Dataset (ADPC)</pre>
+                      <pre class="language-r">  # remove records that are not needed and were created as a side product of expand.grid above</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  adhy &lt;- dplyr::filter(adhy, !(AVISIT == "BASELINE" &amp; APERIODC == "PERIOD 2"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">108</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">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # define TBILI ALT/AST params, period dependent parameters and the parameters that will be assigned values "Y" or "N"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function for generating a random Pharmacokinetics Analysis Dataset for a given</pre>
+                      <pre class="language-r">  paramcd_tbilialtast &lt;- c("BLAL", "BGAS", "BGAL", "BLAS", "BA2AL", "BA2AS", "BA5AL", "BA5AS")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Subject-Level Analysis Dataset.</pre>
+                      <pre class="language-r">  paramcd_by_period &lt;- c("ALTPULN", "ASTPULN", "ALTASTPU", "ALTPBASE", "ASTPBASE", "ALTASTPB")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">112</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  paramcd_yn &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details One record per study, subject, parameter, and time point.</pre>
+                      <pre class="language-r">    "BL2AL2CU", "BG2AS2CU", "BL2AS2CU", "BG2AL2CU", "BG2AL2CB", "BL2AL2CB", "BG2AS2CB", "BL2AS2CB",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">114</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    paramcd_by_period</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">115</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">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param avalu (`character`)\cr Analysis value units.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param constants (`character vector`)\cr Constant parameters to be used in formulas for creating analysis values.</pre>
+                      <pre class="language-r">  # add other variables to adhy</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <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">#' @param duration (`numeric`)\cr Duration in number of days.</pre>
+                      <pre class="language-r">  adhy &lt;- adhy %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</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">#' @template param_cached</pre>
+                      <pre class="language-r">    rel_var(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <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">#' @templateVar data adpc</pre>
+                      <pre class="language-r">      var_name = "PARAMCD",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">121</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      related_var = "PARAM",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">122</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `data.frame`</pre>
+                      <pre class="language-r">      var_values = param_init_list$relvar2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</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">    ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</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">    dplyr::mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</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">#' @examples</pre>
+                      <pre class="language-r">      AVALC = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</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">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</pre>
+                      <pre class="language-r">        PARAMCD %in% paramcd_tbilialtast ~ sample(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          x = c("&gt;3-5ULN", "&gt;5-10ULN", "&gt;10-20ULN", "&gt;20ULN", "Criteria not met"), size = dplyr::n(), replace = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adpc &lt;- radpc(adsl, seed = 2)</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</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">#' adpc</pre>
+                      <pre class="language-r">        PARAMCD %in% paramcd_yn ~ sample(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</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">#'</pre>
+                      <pre class="language-r">          x = c("Y", "N"), prob = c(0.1, 0.9), size = dplyr::n(), replace = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adpc &lt;- radpc(adsl, seed = 2, duration = 3)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adpc</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">133</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">radpc &lt;- function(adsl,</pre>
+                      <pre class="language-r">      AVAL = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</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">                  avalu = "ug/mL",</pre>
+                      <pre class="language-r">        AVALC == "&gt;3-5ULN" ~ 1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  constants = c(D = 100, ka = 0.8, ke = 1),</pre>
+                      <pre class="language-r">        AVALC == "&gt;5-10ULN" ~ 2,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  duration = 2,</pre>
+                      <pre class="language-r">        AVALC == "&gt;10-20ULN" ~ 3,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</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">                  seed = NULL,</pre>
+                      <pre class="language-r">        AVALC == "&gt;20ULN" ~ 4,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</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">                  na_percentage = 0,</pre>
+                      <pre class="language-r">        AVALC == "Y" ~ 1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</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">                  na_vars = list(</pre>
+                      <pre class="language-r">        AVALC == "N" ~ 0,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</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">                    AVAL = c(NA, 0.1)</pre>
+                      <pre class="language-r">        AVALC == "Criteria not met" ~ 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</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">37</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">                  cached = FALSE) {</pre>
+                      <pre class="language-r">      AVISITN = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">143</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
+                      <pre class="language-r">        AVISIT == "BASELINE" ~ 0L,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">5<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">  if (cached) {</pre>
+                      <pre class="language-r">        AVISIT == "POST-BASELINE" ~ 9995L,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">1<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">    return(get_cached_data("cadpc"))</pre>
+                      <pre class="language-r">        TRUE ~ NA_integer_</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</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">42</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"></pre>
+                      <pre class="language-r">      APERIOD = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">148</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
+                      <pre class="language-r">        APERIODC == "PERIOD 1" ~ 1L,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">149</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(avalu, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">        APERIODC == "PERIOD 2" ~ 2L,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">150</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(names(constants), c("D", "ka", "ke"))</pre>
+                      <pre class="language-r">        TRUE ~ NA_integer_</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">46</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">  checkmate::assert_numeric(x = duration, max.len = 1)</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">152</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
+                      <pre class="language-r">      ABLFL = dplyr::if_else(AVISIT == "BASELINE", "Y", NA_character_),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">153</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">      ONTRTFL = dplyr::if_else(AVISIT == "POST-BASELINE", "Y", NA_character_),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">154</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
+                      <pre class="language-r">      ANL01FL = "Y",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">155</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(na_vars)</pre>
+                      <pre class="language-r">      SRCSEQ = NA_integer_</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</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">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">4<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">  if (!is.null(seed)) {</pre>
+                      <pre class="language-r">  # remove records for parameters with period 2 and not in paramcd_by_period</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">4<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">    set.seed(seed)</pre>
+                      <pre class="language-r">  adhy &lt;- dplyr::filter(adhy, PARAMCD %in% paramcd_by_period | APERIODC == "PERIOD 1")</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">  }</pre>
+                      <pre class="language-r"></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">  # add baseline variables</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">162</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  radpc_core &lt;- function(day) {</pre>
+                      <pre class="language-r">  adhy &lt;- adhy %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">163</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adpc_day &lt;- tidyr::expand_grid(</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID, PARAMCD) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">164</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">    dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">165</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        STUDYID = adsl$STUDYID,</pre>
+                      <pre class="language-r">      BASEC = AVALC[AVISIT == "BASELINE"],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">166</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        USUBJID = adsl$USUBJID,</pre>
+                      <pre class="language-r">      BASE = AVAL[AVISIT == "BASELINE"]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">61</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">        ARMCD = adsl$ARMCD,</pre>
+                      <pre class="language-r">    ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">168</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        A0 = unname(constants["D"]),</pre>
+                      <pre class="language-r">    dplyr::ungroup()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">63</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">        ka = unname(constants["ka"]) - stats::runif(length(adsl$USUBJID), -0.2, 0.2),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">170</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ke = unname(constants["ke"]) - stats::runif(length(adsl$USUBJID), -0.2, 0.2)</pre>
+                      <pre class="language-r">  adhy &lt;- adhy %&gt;%</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">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">    rcd_var_relabel(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">172</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PCTPTNUM = if (day == 1) c(0, 0.5, 1, 1.5, 2, 3, 4, 8, 12) else 24 * (day - 1),</pre>
+                      <pre class="language-r">      STUDYID = attr(adsl$STUDYID, "label"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">173</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAM = factor(c("Plasma Drug X", "Urine Drug X", "Plasma Drug Y", "Urine Drug Y"))</pre>
+                      <pre class="language-r">      USUBJID = attr(adsl$USUBJID, "label")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <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">69</td>
-                    <td class="coverage">8<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    adpc_day &lt;- adpc_day[!(grepl("Urine", adpc_day$PARAM) &amp; adpc_day$PCTPTNUM %in% c(0.5, 1, 1.5, 2, 3)), ] %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">8<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">      dplyr::arrange(USUBJID, PARAM) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">8<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">      dplyr::mutate(</pre>
+                      <pre class="language-r">  # merge ADSL to be able to add analysis datetime and analysis relative day variables</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">177</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        VISITDY = day,</pre>
+                      <pre class="language-r">  adhy &lt;- dplyr::inner_join(adhy, adsl, by = c("STUDYID", "USUBJID"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">8<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">        VISIT = ifelse(day &lt;= 7, paste("Day", VISITDY), paste("Week", (VISITDY - 1) / 7)),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">8<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">        PCVOLU = ifelse(grepl("Urine", PARAM), "mL", ""),</pre>
+                      <pre class="language-r">  # define a simple helper function to create ADY variable</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">8<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">        ASMED = ifelse(grepl("Urine", PARAM), "URINE", "PLASMA"),</pre>
+                      <pre class="language-r">  add_ady &lt;- function(x, avisit) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">181</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        PCTPT = factor(dplyr::case_when(</pre>
+                      <pre class="language-r">    if (avisit == "BASELINE") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">8<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">          PCTPTNUM == 0 ~ "Predose",</pre>
+                      <pre class="language-r">      dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">183</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          (day == 1 &amp; grepl("Urine", PARAM)) ~</pre>
+                      <pre class="language-r">        x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">184</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            paste0(lag(PCTPTNUM), "H - ", PCTPTNUM, "H"),</pre>
+                      <pre class="language-r">        ADY = sample(x = -(1:14), size = dplyr::n(), replace = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">8<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">          (day != 1 &amp; grepl("Urine", PARAM)) ~</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">186</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            paste0(as.numeric(PCTPTNUM) - 24, "H - ", PCTPTNUM, "H"),</pre>
+                      <pre class="language-r">    } else if (avisit == "POST-BASELINE") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">187</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          TRUE ~ paste0(PCTPTNUM, "H")</pre>
+                      <pre class="language-r">      dplyr::rowwise(x) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</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">        dplyr::mutate(ADY = as.integer(sample(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">189</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ARELTM1 = PCTPTNUM,</pre>
+                      <pre class="language-r">          dplyr::if_else(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">190</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NRELTM1 = PCTPTNUM,</pre>
+                      <pre class="language-r">            !is.na(TRTEDTM),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">8<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">        ARELTM2 = ARELTM1 - (24 * (day - 1)),</pre>
+                      <pre class="language-r">            as.numeric(difftime(TRTEDTM, TRTSDTM, units = "days")),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">192</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NRELTM2 = NRELTM1 - (24 * (day - 1)),</pre>
+                      <pre class="language-r">            as.numeric(study_duration_secs, "days")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">8<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">        A0 = ifelse(PARAM == "Plasma Drug Y", A0, A0 / 2),</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">8<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">        AVAL = round(</pre>
+                      <pre class="language-r">          size = 1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">8<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">          (A0 * ka * (</pre>
+                      <pre class="language-r">          replace = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">8<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">            exp(-ka * ARELTM1) - exp(-ke * ARELTM1)</pre>
+                      <pre class="language-r">        )))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">197</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">93</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">198</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          / (ke - ka),</pre>
+                      <pre class="language-r">      dplyr::mutate(x, ADY = NA_integer_)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">8<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">          digits = 3</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</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">96</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="never">
+                    <td class="num">202</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # add ADY and ADTM variables</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">8<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">      dplyr::mutate(</pre>
+                      <pre class="language-r">  adhy &lt;- adhy %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">8<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">        PCVOL = ifelse(</pre>
+                      <pre class="language-r">    dplyr::group_by(AVISIT, .add = FALSE) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">8<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">          ASMED == "URINE",</pre>
+                      <pre class="language-r">    dplyr::group_modify(~ add_ady(.x, .y$AVISIT)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">8<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">          round(abs(((PCTPTNUM - 1) %% 24) * A0 * ka * exp(PCTPTNUM %% 1.8 / 10)), 2),</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">8<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">          NA</pre>
+                      <pre class="language-r">    dplyr::mutate(ADTM = TRTSDTM + lubridate::days(ADY))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</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">103</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # PK Equation</pre>
+                      <pre class="language-r">  # order columns and arrange rows; column order follows ADaM_1.1 specification</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">8<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">        AVALC = ifelse(AVAL == 0, "BLQ", as.character(AVAL)),</pre>
+                      <pre class="language-r">  adhy &lt;-</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">8<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">        AVALU = avalu,</pre>
+                      <pre class="language-r">    adhy[, c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">8<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">        RELTMU = "hr"</pre>
+                      <pre class="language-r">      colnames(adsl),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">213</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) %&gt;%</pre>
+                      <pre class="language-r">      "PARAM",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">214</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::select(-c("A0", "ka", "ke"))</pre>
+                      <pre class="language-r">      "PARAMCD",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">215</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">216</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(adpc_day)</pre>
+                      <pre class="language-r">      "AVALC",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">217</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      "BASE",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">218</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      "BASEC",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">219</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adpc &lt;- list()</pre>
+                      <pre class="language-r">      "ABLFL",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">220</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      "ADTM",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">221</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (day in seq(duration)[seq(duration) &lt;= 7 | ((seq(duration) - 1) %% 7 == 0)]) {</pre>
+                      <pre class="language-r">      "ADY",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">222</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adpc[[day]] &lt;- radpc_core(day = day)</pre>
+                      <pre class="language-r">      "AVISIT",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      "AVISITN",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      "APERIOD",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">225</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adpc &lt;- do.call(rbind, adpc)</pre>
+                      <pre class="language-r">      "APERIODC",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      "ONTRTFL",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">227</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adpc &lt;- dplyr::inner_join(adpc, adsl, by = c("STUDYID", "USUBJID", "ARMCD")) %&gt;%</pre>
+                      <pre class="language-r">      "SRCSEQ",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">4<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">    dplyr::filter(ACTARM != "B: Placebo", !(ACTARM == "A: Drug X" &amp; PARAM == "Plasma Drug Y"))</pre>
+                      <pre class="language-r">      "ANL01FL"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</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">124</td>
-                    <td class="coverage">4<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">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</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">231</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adpc &lt;- mutate_na(ds = adpc, na_vars = na_vars, na_percentage = na_percentage)</pre>
+                      <pre class="language-r">  adhy &lt;- adhy %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    dplyr::arrange(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">127</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      STUDYID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">234</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adpc &lt;- adpc %&gt;%</pre>
+                      <pre class="language-r">      USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">235</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rename(</pre>
+                      <pre class="language-r">      PARAMCD,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">236</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVALCAT1 = AVALC,</pre>
+                      <pre class="language-r">      AVISITN,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">237</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      NFRLT = NRELTM1,</pre>
+                      <pre class="language-r">      ADTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">238</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AFRLT = ARELTM1,</pre>
+                      <pre class="language-r">      SRCSEQ</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">133</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">      NRRLT = NRELTM2,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">134</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">      ARRLT = ARELTM2</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) %&gt;%</pre>
+                      <pre class="language-r">  # apply metadata</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">242</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mutate(ANL02FL = "Y")</pre>
+                      <pre class="language-r">  adhy &lt;- apply_metadata(adhy, "metadata/ADHY.yml")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</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">138</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">244</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adpc &lt;- apply_metadata(adpc, "metadata/ADPC.yml")</pre>
+                      <pre class="language-r">  return(adhy)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -27157,7 +27198,7 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">146</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adsub &lt;- var_relabel(</pre>
+                      <pre class="language-r">  adsub &lt;- rcd_var_relabel(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
@@ -27835,14 +27876,14 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/radvs.R" class="hidden">
+            <div id="R/radsl.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">#' Vital Signs Analysis Dataset (ADVS)</pre>
+                      <pre class="language-r">#' Subject-Level Analysis Dataset (ADSL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -27870,42 +27911,42 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function for generating a random Vital Signs Analysis Dataset for a given</pre>
+                      <pre class="language-r">#' The Subject-Level Analysis Dataset (ADSL) is used to provide the variables</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Subject-Level Analysis Dataset.</pre>
+                      <pre class="language-r">#' that describe attributes of a subject. ADSL is a source for subject-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">#' variables used in other analysis data sets, such as population flags and</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details One record per subject per parameter per analysis visit per analysis date.</pre>
+                      <pre class="language-r">#' treatment variables. There is only one ADSL per study. ADSL and its related</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">#' metadata are required in a CDISC-based submission of data from a clinical</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `PARAMCD`, `BASETYPE`, `AVISITN`, `ATPTN`, `DTYPE`, `ADTM`, `VSSEQ`, `ASPID`</pre>
+                      <pre class="language-r">#' trial even if no other analysis data sets are submitted.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -27919,21 +27960,21 @@ <h2>random.cdisc.data coverage - 98.86%</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 One record per subject.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @template param_cached</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">#' @templateVar data advs</pre>
+                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -27947,1698 +27988,1768 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `data.frame`</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">#' @export</pre>
+                      <pre class="language-r">#' @param N (`numeric`)\cr Number of patients.</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 study_duration (`numeric`)\cr Duration of study in 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">#' @author npaszty</pre>
+                      <pre class="language-r">#' @param with_trt02 (`logical`)\cr Should period 2 be added.</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 ae_withdrawal_prob (`proportion`)\cr Probability that there is at least one</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">#' Adverse Event leading to the withdrawal of a study drug.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</pre>
+                      <pre class="language-r">#' @template param_cached</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">#' @templateVar data adsl</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' advs &lt;- radvs(adsl, visit_format = "WEEK", n_assessments = 7L, seed = 2)</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">#' advs</pre>
+                      <pre class="language-r">#' @return `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">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' advs &lt;- radvs(adsl, visit_format = "CYCLE", n_assessments = 3L, seed = 2)</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">#' advs</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">radvs &lt;- function(adsl,</pre>
+                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, study_duration = 2, seed = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  param = c(</pre>
+                      <pre class="language-r">#' adsl</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "Diastolic Blood Pressure",</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">                    "Pulse Rate",</pre>
+                      <pre class="language-r">#' adsl &lt;- radsl(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "Respiratory Rate",</pre>
+                      <pre class="language-r">#'   N = 10, seed = 1,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "Systolic Blood Pressure",</pre>
+                      <pre class="language-r">#'   na_percentage = 0.1,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "Temperature", "Weight"</pre>
+                      <pre class="language-r">#'   na_vars = list(</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">#'     DTHDT = c(seed = 1234, percentage = 0.1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  paramcd = c("DIABP", "PULSE", "RESP", "SYSBP", "TEMP", "WEIGHT"),</pre>
+                      <pre class="language-r">#'     LSTALVDT = c(seed = 1234, percentage = 0.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">                  paramu = c("Pa", "beats/min", "breaths/min", "Pa", "C", "Kg"),</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">                  visit_format = "WEEK",</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">                  n_assessments = 5L,</pre>
+                      <pre class="language-r">#' adsl</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  n_days = 5L,</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">                  seed = NULL,</pre>
+                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, na_percentage = .1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  na_percentage = 0,</pre>
+                      <pre class="language-r">#' adsl</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  na_vars = list(</pre>
+                      <pre class="language-r">radsl &lt;- function(N = 400, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    CHG2 = c(1235, 0.1), PCHG2 = c(1235, 0.1), CHG = c(1234, 0.1), PCHG = c(1234, 0.1),</pre>
+                      <pre class="language-r">                  study_duration = 2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    AVAL = c(123, 0.1), AVALU = c(123, 0.1)</pre>
+                      <pre class="language-r">                  seed = NULL,</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">                  with_trt02 = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  cached = FALSE) {</pre>
+                      <pre class="language-r">                  na_percentage = 0,</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">  checkmate::assert_flag(cached)</pre>
+                      <pre class="language-r">                  na_vars = list(</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">  if (cached) {</pre>
+                      <pre class="language-r">                    "AGE" = NA, "SEX" = NA, "RACE" = NA, "STRATA1" = NA, "STRATA2" = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">51</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(get_cached_data("cadvs"))</pre>
+                      <pre class="language-r">                    "BMRKR1" = c(seed = 1234, percentage = 0.1), "BMRKR2" = c(1234, 0.1), "BEP01FL" = NA</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"></pre>
+                      <pre class="language-r">                  ae_withdrawal_prob = 0.05,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">54</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
+                      <pre class="language-r">                  cached = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">55</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(param, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">56</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(paramcd, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  if (cached) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">57</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">  checkmate::assert_character(paramu, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">    return(get_cached_data("cadsl"))</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">  checkmate::assert_string(visit_format)</pre>
+                      <pre class="language-r">  }</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">  checkmate::assert_integer(n_assessments, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">60</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(n_days, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  checkmate::assert_number(N)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">62</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1, na.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
+                      <pre class="language-r">  checkmate::assert_number(study_duration, lower = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage"></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_number(na_percentage, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">65</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # validate and initialize param vectors</pre>
+                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">66</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  param_init_list &lt;- relvar_init(param, paramcd)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">67</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  unit_init_list &lt;- relvar_init(param, paramu)</pre>
+                      <pre class="language-r">  if (!is.null(seed)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">68</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    set.seed(seed)</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">  if (!is.null(seed)) {</pre>
+                      <pre class="language-r">  }</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">    set.seed(seed)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">71</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(lubridate::years(study_duration))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</pre>
+                      <pre class="language-r">  sys_dtm &lt;- lubridate::fast_strptime("20/2/2019 11:16:16.683", "%d/%m/%Y %H:%M:%OS")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">73</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  discons &lt;- max(1, floor((N * .3)))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  advs &lt;- expand.grid(</pre>
+                      <pre class="language-r">  country_site_prob &lt;- c(.5, .121, .077, .077, .075, .052, .046, .025, .014, .003)</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">    STUDYID = unique(adsl$STUDYID),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID = adsl$USUBJID,</pre>
+                      <pre class="language-r">  adsl &lt;- tibble::tibble(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">77</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAM = as.factor(param_init_list$relvar1),</pre>
+                      <pre class="language-r">    STUDYID = rep("AB12345", N),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">78</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVISIT = visit_schedule(visit_format = visit_format, n_assessments = n_assessments),</pre>
+                      <pre class="language-r">    COUNTRY = sample_fct(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">79</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">      c("CHN", "USA", "BRA", "PAK", "NGA", "RUS", "JPN", "GBR", "CAN", "CHE"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      N,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">81</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      prob = country_site_prob</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <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">  advs &lt;- dplyr::mutate(</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">83</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    advs,</pre>
+                      <pre class="language-r">    SITEID = sample_fct(1:20, N, prob = rep(country_site_prob, times = 2)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">84</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVISITN = dplyr::case_when(</pre>
+                      <pre class="language-r">    SUBJID = paste("id", seq_len(N), sep = "-"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">85</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISIT == "SCREENING" ~ -1,</pre>
+                      <pre class="language-r">    AGE = sapply(stats::rchisq(N, df = 5, ncp = 10), max, 0) + 20,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">86</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISIT == "BASELINE" ~ 0,</pre>
+                      <pre class="language-r">    AGEU = "YEARS",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">87</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      (grepl("^WEEK", AVISIT) | grepl("^CYCLE", AVISIT)) ~ as.numeric(AVISIT) - 2,</pre>
+                      <pre class="language-r">    SEX = c("F", "M") %&gt;% sample_fct(N, prob = c(.52, .48)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">88</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ NA_real_</pre>
+                      <pre class="language-r">    ARMCD = c("ARM A", "ARM B", "ARM C") %&gt;% sample_fct(N),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">89</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    RACE = c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">90</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      "ASIAN", "BLACK OR AFRICAN AMERICAN", "WHITE", "AMERICAN INDIAN OR ALASKA NATIVE",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">91</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      "MULTIPLE", "NATIVE HAWAIIAN OR OTHER PACIFIC ISLANDER", "OTHER", "UNKNOWN"</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">  advs$VSCAT &lt;- "VITAL SIGNS"</pre>
+                      <pre class="language-r">    ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">93</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      sample_fct(N, prob = c(.55, .23, .16, .05, .004, .003, .002, .002)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">94</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # assign related variable values: PARAMxPARAMCD are related</pre>
+                      <pre class="language-r">    TRTSDTM = sys_dtm + sample(seq(0, study_duration_secs), size = N, replace = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">95</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  advs &lt;- advs %&gt;% rel_var(</pre>
+                      <pre class="language-r">    RANDDT = lubridate::date(TRTSDTM - lubridate::days(floor(stats::runif(N, min = 0, max = 5)))),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">96</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_name = "PARAMCD",</pre>
+                      <pre class="language-r">    TRTEDTM = TRTSDTM + study_duration_secs,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">97</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    related_var = "PARAM",</pre>
+                      <pre class="language-r">    STRATA1 = c("A", "B", "C") %&gt;% sample_fct(N),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">98</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_values = param_init_list$relvar2</pre>
+                      <pre class="language-r">    STRATA2 = c("S1", "S2") %&gt;% sample_fct(N),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">99</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    BMRKR1 = stats::rchisq(N, 6),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">100</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    BMRKR2 = sample_fct(c("LOW", "MEDIUM", "HIGH"), N),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">101</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # assign related variable values: PARAMxAVALU are related</pre>
+                      <pre class="language-r">    BMEASIFL = sample_fct(c("Y", "N"), N),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">102</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  advs &lt;- advs %&gt;% rel_var(</pre>
+                      <pre class="language-r">    BEP01FL = sample_fct(c("Y", "N"), N),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">103</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_name = "AVALU",</pre>
+                      <pre class="language-r">    AEWITHFL = sample_fct(c("Y", "N"), N, prob = c(ae_withdrawal_prob, 1 - ae_withdrawal_prob))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">104</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    related_var = "PARAM",</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">105</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_values = unit_init_list$relvar2</pre>
+                      <pre class="language-r">    dplyr::mutate(ARM = dplyr::recode(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">106</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      ARMCD,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">107</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      "ARM A" = "A: Drug X", "ARM B" = "B: Placebo", "ARM C" = "C: Combination"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">108</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  advs &lt;- advs %&gt;%</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">109</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(VSTESTCD = PARAMCD) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(ACTARM = ARM) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">110</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(VSTEST = PARAM)</pre>
+                      <pre class="language-r">    dplyr::mutate(ACTARMCD = ARMCD) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">111</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    dplyr::mutate(TRT01P = ARM) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">112</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  advs &lt;- advs %&gt;% dplyr::mutate(AVAL = dplyr::case_when(</pre>
+                      <pre class="language-r">    dplyr::mutate(TRT01A = ACTARM) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">113</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == paramcd[1] ~ stats::rnorm(nrow(advs), mean = 100, sd = 20),</pre>
+                      <pre class="language-r">    dplyr::mutate(ITTFL = factor("Y")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">114</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == paramcd[2] ~ stats::rnorm(nrow(advs), mean = 80, sd = 15),</pre>
+                      <pre class="language-r">    dplyr::mutate(SAFFL = factor("Y")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">115</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == paramcd[3] ~ stats::rnorm(nrow(advs), mean = 16, sd = 5),</pre>
+                      <pre class="language-r">    dplyr::arrange(TRTSDTM)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">116</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == paramcd[4] ~ stats::rnorm(nrow(advs), mean = 150, sd = 30),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">117</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == paramcd[5] ~ stats::rnorm(nrow(advs), mean = 36.65, sd = 1),</pre>
+                      <pre class="language-r">  adds &lt;- adsl[sample(nrow(adsl), discons), ] %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">118</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD == paramcd[6] ~ stats::rnorm(nrow(advs), mean = 70, sd = 20)</pre>
+                      <pre class="language-r">    dplyr::mutate(TRTEDTM_discon = sample(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">119</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r">      seq(from = max(TRTSDTM), to = sys_dtm + study_duration_secs, by = 1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">120</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      size = discons,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">121</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # order to prepare for change from screening and baseline values</pre>
+                      <pre class="language-r">      replace = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">122</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  advs &lt;- advs[order(advs$STUDYID, advs$USUBJID, advs$PARAMCD, advs$AVISITN), ]</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">123</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    dplyr::select(SUBJID, TRTSDTM, TRTEDTM_discon) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">124</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  advs &lt;- Reduce(rbind, lapply(split(advs, advs$USUBJID), function(x) {</pre>
+                      <pre class="language-r">    dplyr::arrange(TRTSDTM)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">125</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x$STUDYID &lt;- adsl$STUDYID[which(adsl$USUBJID == x$USUBJID[1])]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">126</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x$ABLFL2 &lt;- ifelse(x$AVISIT == "SCREENING", "Y", "")</pre>
+                      <pre class="language-r">  adsl &lt;- dplyr::left_join(adsl, adds, by = c("SUBJID", "TRTSDTM")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">127</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x$ABLFL &lt;- ifelse(</pre>
+                      <pre class="language-r">    dplyr::mutate(TRTEDTM = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">128</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      toupper(visit_format) == "WEEK" &amp; x$AVISIT == "BASELINE",</pre>
+                      <pre class="language-r">      !is.na(TRTEDTM_discon) ~ TRTEDTM_discon,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">129</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Y",</pre>
+                      <pre class="language-r">      TRTSDTM &gt;= quantile(TRTSDTM)[2] &amp; TRTSDTM &lt;= quantile(TRTSDTM)[3] ~ lubridate::as_datetime(NA),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">130</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ifelse(</pre>
+                      <pre class="language-r">      TRUE ~ TRTEDTM</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">131</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        toupper(visit_format) == "CYCLE" &amp; x$AVISIT == "CYCLE 1 DAY 1",</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">132</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Y",</pre>
+                      <pre class="language-r">    dplyr::select(-"TRTEDTM_discon")</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">  # add period 2 if needed</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">135</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  if (with_trt02) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">136</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x</pre>
+                      <pre class="language-r">    with_trt02 &lt;- lubridate::seconds(lubridate::years(1))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">137</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }))</pre>
+                      <pre class="language-r">    adsl &lt;- adsl %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">138</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      dplyr::mutate(TRT02P = sample(ARM)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">139</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  advs$BASE2 &lt;- retain(advs, advs$AVAL, advs$ABLFL2 == "Y")</pre>
+                      <pre class="language-r">      dplyr::mutate(TRT02A = sample(ACTARM)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">140</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  advs$BASE &lt;- ifelse(advs$ABLFL2 != "Y", retain(advs, advs$AVAL, advs$ABLFL == "Y"), NA)</pre>
+                      <pre class="language-r">      dplyr::mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">141</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        TRT01SDTM = TRTSDTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">142</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  advs &lt;- advs %&gt;%</pre>
+                      <pre class="language-r">        AP01SDTM = TRT01SDTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">143</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(CHG2 = AVAL - BASE2) %&gt;%</pre>
+                      <pre class="language-r">        TRT01EDTM = TRTEDTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">144</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(PCHG2 = 100 * (CHG2 / BASE2)) %&gt;%</pre>
+                      <pre class="language-r">        AP01EDTM = TRT01EDTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">145</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(CHG = AVAL - BASE) %&gt;%</pre>
+                      <pre class="language-r">        TRT02SDTM = TRTEDTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">146</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(PCHG = 100 * (CHG / BASE)) %&gt;%</pre>
+                      <pre class="language-r">        AP02SDTM = TRT02SDTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">147</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ANRLO = dplyr::case_when(</pre>
+                      <pre class="language-r">        TRT02EDTM = TRT01EDTM + with_trt02,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">148</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "DIABP" ~ 80,</pre>
+                      <pre class="language-r">        AP02EDTM = TRT02EDTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">149</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "PULSE" ~ 60,</pre>
+                      <pre class="language-r">        TRTEDTM = TRT02EDTM</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">150</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "RESP" ~ 12,</pre>
+                      <pre class="language-r">      )</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">      PARAMCD == "SYSBP" ~ 120,</pre>
+                      <pre class="language-r">  }</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">      PARAMCD == "TEMP" ~ 36.1,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">153</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "WEIGHT" ~ 40</pre>
+                      <pre class="language-r">  adsl &lt;- adsl %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">154</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(EOSDT = lubridate::date(TRTEDTM)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">155</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ANRHI = dplyr::case_when(</pre>
+                      <pre class="language-r">    dplyr::mutate(EOSDY = ceiling(difftime(TRTEDTM, TRTSDTM))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">156</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "DIABP" ~ 120,</pre>
+                      <pre class="language-r">    dplyr::mutate(EOSSTT = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">157</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "PULSE" ~ 100,</pre>
+                      <pre class="language-r">      EOSDY == max(EOSDY, na.rm = TRUE) ~ "COMPLETED",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">158</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "RESP" ~ 20,</pre>
+                      <pre class="language-r">      EOSDY &lt; max(EOSDY, na.rm = TRUE) ~ "DISCONTINUED",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">159</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "SYSBP" ~ 180,</pre>
+                      <pre class="language-r">      is.na(TRTEDTM) ~ "ONGOING"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">160</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "TEMP" ~ 37.2,</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">161</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "WEIGHT" ~ 100</pre>
+                      <pre class="language-r">    dplyr::mutate(EOTSTT = EOSSTT)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">162</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">
+                  <tr class="never">
                     <td class="num">163</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ANRIND = factor(dplyr::case_when(</pre>
+                      <pre class="language-r">  # disposition related variables</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">164</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL &lt; ANRLO ~ "LOW",</pre>
+                      <pre class="language-r">  # using probability of 1 for the "DEATH" level to ensure at least one death record exists</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">165</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL &gt; ANRHI ~ "HIGH",</pre>
+                      <pre class="language-r">  l_dcsreas &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">166</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ "NORMAL"</pre>
+                      <pre class="language-r">    choices = c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">167</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))) %&gt;%</pre>
+                      <pre class="language-r">      "ADVERSE EVENT", "DEATH", "LACK OF EFFICACY", "PHYSICIAN DECISION",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">168</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(VSSTRESC = dplyr::case_when(</pre>
+                      <pre class="language-r">      "PROTOCOL VIOLATION", "WITHDRAWAL BY PARENT/GUARDIAN", "WITHDRAWAL BY SUBJECT"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">169</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "DIABP" ~ "&lt;80",</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">170</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "PULSE" ~ "&lt;60",</pre>
+                      <pre class="language-r">    prob = c(.2, 1, .1, .1, .2, .1, .1)</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">      PARAMCD == "RESP" ~ "&gt;20",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">172</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "SYSBP" ~ "&gt;180",</pre>
+                      <pre class="language-r">  l_dthcat_other &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">173</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "TEMP" ~ "&lt;36.1",</pre>
+                      <pre class="language-r">    choices = c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">174</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD == "WEIGHT" ~ "&lt;40"</pre>
+                      <pre class="language-r">      "Post-study reporting of death", "LOST TO FOLLOW UP", "MISSING", "SUICIDE", "UNKNOWN"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">175</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">176</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::rowwise() %&gt;%</pre>
+                      <pre class="language-r">    prob = c(.1, .3, .3, .2, .1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">177</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(LOQFL = factor(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">178</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ifelse(eval(parse(text = paste(AVAL, VSSTRESC))), "Y", "N")</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">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) %&gt;%</pre>
+                      <pre class="language-r">  adsl &lt;- adsl %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">180</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">181</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(BASETYPE = "LAST") %&gt;%</pre>
+                      <pre class="language-r">      DCSREAS = ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">182</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID, PARAMCD, BASETYPE) %&gt;%</pre>
+                      <pre class="language-r">        EOSSTT == "DISCONTINUED",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">183</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(BNRIND = ANRIND[ABLFL == "Y"]) %&gt;%</pre>
+                      <pre class="language-r">        sample(x = l_dcsreas$choices, size = N, replace = TRUE, prob = l_dcsreas$prob),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">184</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">        as.character(NA)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">185</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ATPTN = 1) %&gt;%</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">186</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(DTYPE = NA) %&gt;%</pre>
+                      <pre class="language-r">    ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">187</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_relabel(</pre>
+                      <pre class="language-r">    dplyr::mutate(DTHFL = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">188</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID = attr(adsl$USUBJID, "label"),</pre>
+                      <pre class="language-r">      DCSREAS == "DEATH" ~ "Y",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">189</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID = attr(adsl$STUDYID, "label")</pre>
+                      <pre class="language-r">      TRUE ~ "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">    )) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">191</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">192</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  advs &lt;- var_relabel(</pre>
+                      <pre class="language-r">      DTHCAT = ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">193</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    advs,</pre>
+                      <pre class="language-r">        DCSREAS == "DEATH",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">194</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
+                      <pre class="language-r">        sample(x = c("ADVERSE EVENT", "PROGRESSIVE DISEASE", "OTHER"), size = N, replace = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">195</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</pre>
+                      <pre class="language-r">        as.character(NA)</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="never">
                     <td class="num">197</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">
+                  <tr class="covered">
                     <td class="num">198</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # merge ADSL to be able to add LB date and study day variables</pre>
+                      <pre class="language-r">    dplyr::mutate(DTHCAUS = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">199</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  advs &lt;- dplyr::inner_join(</pre>
+                      <pre class="language-r">      DTHCAT == "ADVERSE EVENT" ~ "ADVERSE EVENT",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">200</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    advs,</pre>
+                      <pre class="language-r">      DTHCAT == "PROGRESSIVE DISEASE" ~ "DISEASE PROGRESSION",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">201</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl,</pre>
+                      <pre class="language-r">      DTHCAT == "OTHER" ~ sample(x = l_dthcat_other$choices, size = N, replace = TRUE, prob = l_dthcat_other$prob),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">202</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    by = c("STUDYID", "USUBJID")</pre>
+                      <pre class="language-r">      TRUE ~ as.character(NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">204</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::rowwise() %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(ADTHAUT = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">205</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(TRTENDT = lubridate::date(dplyr::case_when(</pre>
+                      <pre class="language-r">      DTHCAUS %in% c("ADVERSE EVENT", "DISEASE PROGRESSION") ~ "Yes",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">206</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is.na(TRTEDTM) ~ lubridate::floor_date(lubridate::date(TRTSDTM) + study_duration_secs, unit = "day"),</pre>
+                      <pre class="language-r">      DTHCAUS %in% c("UNKNOWN", "SUICIDE", "Post-study reporting of death") ~ sample(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">207</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ TRTEDTM</pre>
+                      <pre class="language-r">        x = c("Yes", "No"), size = N, replace = TRUE, prob = c(0.25, 0.75)</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">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">209</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup()</pre>
+                      <pre class="language-r">      TRUE ~ as.character(NA)</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">    )) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">211</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  advs &lt;- advs %&gt;%</pre>
+                      <pre class="language-r">    # adding some random number of days post last treatment date so that death days from last trt admin</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">212</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">    # supports the LDDTHGR1 derivation below</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">213</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(USUBJID, AVISITN) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(DTHDT = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">214</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ADTM = rep(</pre>
+                      <pre class="language-r">      DCSREAS == "DEATH" ~ lubridate::date(TRTEDTM + lubridate::days(sample(0:50, size = N, replace = TRUE))),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">215</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sort(sample(</pre>
+                      <pre class="language-r">      TRUE ~ NA</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">216</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        seq(lubridate::as_datetime(TRTSDTM[1]), lubridate::as_datetime(TRTENDT[1]), by = "day"),</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">217</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        size = nlevels(AVISIT)</pre>
+                      <pre class="language-r">    dplyr::mutate(LDDTHELD = difftime(DTHDT, lubridate::date(TRTEDTM), units = "days")) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">218</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )),</pre>
+                      <pre class="language-r">    dplyr::mutate(LDDTHGR1 = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">219</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      each = n() / nlevels(AVISIT)</pre>
+                      <pre class="language-r">      LDDTHELD &lt;= 30 ~ "&lt;=30",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">220</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) %&gt;%</pre>
+                      <pre class="language-r">      LDDTHELD &gt; 30 ~ "&gt;30",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">221</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">      TRUE ~ as.character(NA)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">222</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ADY = ceiling(difftime(ADTM, TRTSDTM, units = "days"))) %&gt;%</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">223</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(-TRTENDT) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(LSTALVDT = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">224</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(STUDYID, USUBJID, ADTM)</pre>
+                      <pre class="language-r">      DCSREAS == "DEATH" ~ DTHDT,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">225</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      TRUE ~ lubridate::date(TRTEDTM) + lubridate::days(floor(stats::runif(N, min = 10, max = 30)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">226</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  advs &lt;- advs %&gt;% dplyr::mutate(ONTRTFL = factor(dplyr::case_when(</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">227</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    !AVISIT %in% c("SCREENING", "BASELINE") ~ "Y",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">228</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    TRUE ~ ""</pre>
+                      <pre class="language-r">  # add random ETHNIC (Ethnicity)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">229</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )))</pre>
+                      <pre class="language-r">  adsl &lt;- adsl %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">230</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    dplyr::mutate(ETHNIC = sample(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">231</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  advs &lt;- advs %&gt;%</pre>
+                      <pre class="language-r">      x = c("HISPANIC OR LATINO", "NOT HISPANIC OR LATINO", "NOT REPORTED", "UNKNOWN"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">232</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ASPID = sample(seq_len(dplyr::n()))) %&gt;%</pre>
+                      <pre class="language-r">      size = N, replace = TRUE, prob = c(.1, .8, .06, .04)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">233</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">234</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(VSSEQ = seq_len(dplyr::n())) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">235</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ASEQ = VSSEQ) %&gt;%</pre>
+                      <pre class="language-r">  # associate DTHADY (Relative Day of Death) with Death date</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">236</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">  # Date of Death [adsl.DTHDT] - date part of Date of First Exposure to Treatment [adsl.TRTSDTM]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">237</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">238</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID,</pre>
+                      <pre class="language-r">  adsl &lt;- adsl %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">239</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID,</pre>
+                      <pre class="language-r">    dplyr::mutate(DTHADY = difftime(DTHDT, TRTSDTM, units = "days"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">240</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">241</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BASETYPE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">242</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISITN,</pre>
+                      <pre class="language-r">  # associate sites with countries and regions</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">243</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ATPTN,</pre>
+                      <pre class="language-r">  adsl &lt;- adsl %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">244</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      DTYPE,</pre>
+                      <pre class="language-r">    dplyr::mutate(SITEID = paste0(COUNTRY, "-", SITEID)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">245</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ADTM,</pre>
+                      <pre class="language-r">    dplyr::mutate(REGION1 = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">246</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      VSSEQ,</pre>
+                      <pre class="language-r">      COUNTRY %in% c("NGA") ~ "Africa",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">247</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ASPID</pre>
+                      <pre class="language-r">      COUNTRY %in% c("CHN", "JPN", "PAK") ~ "Asia",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">248</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      COUNTRY %in% c("RUS") ~ "Eurasia",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">249</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      COUNTRY %in% c("GBR") ~ "Europe",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">250</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      COUNTRY %in% c("CAN", "USA") ~ "North America",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">251</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      COUNTRY %in% c("BRA") ~ "South America",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">252</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      TRUE ~ as.character(NA)</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">    )) %&gt;%</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">254</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    dplyr::mutate(INVID = paste("INV ID", SITEID)) %&gt;%</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">255</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    dplyr::mutate(INVNAM = paste("Dr.", SITEID, "Doe")) %&gt;%</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">256</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    dplyr::mutate(USUBJID = paste(STUDYID, SITEID, SUBJID, sep = "-"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</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">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">3<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">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">251</td>
+                    <td class="num">260</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    advs &lt;- mutate_na(ds = advs, na_vars = na_vars, na_percentage = na_percentage)</pre>
+                      <pre class="language-r">    adsl &lt;- mutate_na(ds = adsl, na_vars = na_vars, na_percentage = na_percentage)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</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">254</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  # apply metadata</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">264</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  advs &lt;- apply_metadata(advs, "metadata/ADVS.yml")</pre>
+                      <pre class="language-r">  adsl &lt;- apply_metadata(adsl, "metadata/ADSL.yml", FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</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">257</td>
-                    <td class="coverage">3<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">  return(advs)</pre>
+                      <pre class="language-r">  attr(adsl, "study_duration_secs") &lt;- as.numeric(study_duration_secs)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">267</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  return(adsl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -29647,14 +29758,14 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/radhy.R" class="hidden">
+            <div id="R/radvs.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">#' Hy's Law Analysis Dataset (ADHY)</pre>
+                      <pre class="language-r">#' Vital Signs Analysis Dataset (ADVS)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -29682,7 +29793,7 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function for generating a random Hy's Law Analysis Dataset for a given</pre>
+                      <pre class="language-r">#' Function for generating a random Vital Signs Analysis Dataset for a given</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -29717,14 +29828,14 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `PARAMCD`, `AVISITN`, `ADTM`, `SRCSEQ`</pre>
+                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `PARAMCD`, `BASETYPE`, `AVISITN`, `ATPTN`, `DTYPE`, `ADTM`, `VSSEQ`, `ASPID`</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">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -29745,7 +29856,7 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @templateVar data adhy</pre>
+                      <pre class="language-r">#' @templateVar data advs</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -29780,7 +29891,7 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @author wojciakw</pre>
+                      <pre class="language-r">#' @author npaszty</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -29815,1442 +29926,1442 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adhy &lt;- radhy(adsl, seed = 2)</pre>
+                      <pre class="language-r">#' advs &lt;- radvs(adsl, visit_format = "WEEK", n_assessments = 7L, seed = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adhy</pre>
+                      <pre class="language-r">#' advs</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">radhy &lt;- function(adsl,</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 = c(</pre>
+                      <pre class="language-r">#' advs &lt;- radvs(adsl, visit_format = "CYCLE", n_assessments = 3L, seed = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "TBILI &lt;= 2 times ULN and ALT value category",</pre>
+                      <pre class="language-r">#' advs</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "TBILI &gt; 2 times ULN and AST value category",</pre>
+                      <pre class="language-r">radvs &lt;- function(adsl,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "TBILI &gt; 2 times ULN and ALT value category",</pre>
+                      <pre class="language-r">                  param = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "TBILI &lt;= 2 times ULN and AST value category",</pre>
+                      <pre class="language-r">                    "Diastolic Blood Pressure",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "TBILI &gt; 2 times ULN and ALKPH &lt;= 2 times ULN and ALT value category",</pre>
+                      <pre class="language-r">                    "Pulse Rate",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "TBILI &gt; 2 times ULN and ALKPH &lt;= 2 times ULN and AST value category",</pre>
+                      <pre class="language-r">                    "Respiratory Rate",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "TBILI &gt; 2 times ULN and ALKPH &lt;= 5 times ULN and ALT value category",</pre>
+                      <pre class="language-r">                    "Systolic Blood Pressure",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "TBILI &gt; 2 times ULN and ALKPH &lt;= 5 times ULN and AST value category",</pre>
+                      <pre class="language-r">                    "Temperature", "Weight"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "TBILI &lt;= 2 times ULN and two consecutive elevations of ALT in relation to ULN",</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">                    "TBILI &gt; 2 times ULN and two consecutive elevations of AST in relation to ULN",</pre>
+                      <pre class="language-r">                  paramcd = c("DIABP", "PULSE", "RESP", "SYSBP", "TEMP", "WEIGHT"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "TBILI &lt;= 2 times ULN and two consecutive elevations of AST in relation to ULN",</pre>
+                      <pre class="language-r">                  paramu = c("Pa", "beats/min", "breaths/min", "Pa", "C", "Kg"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "TBILI &gt; 2 times ULN and two consecutive elevations of ALT in relation to ULN",</pre>
+                      <pre class="language-r">                  visit_format = "WEEK",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "TBILI &gt; 2 times ULN and two consecutive elevations of ALT in relation to Baseline",</pre>
+                      <pre class="language-r">                  n_assessments = 5L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "TBILI &lt;= 2 times ULN and two consecutive elevations of ALT in relation to Baseline",</pre>
+                      <pre class="language-r">                  n_days = 5L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "TBILI &gt; 2 times ULN and two consecutive elevations of AST in relation to Baseline",</pre>
+                      <pre class="language-r">                  seed = 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">                    "TBILI &lt;= 2 times ULN and two consecutive elevations of AST in relation to Baseline",</pre>
+                      <pre class="language-r">                  na_percentage = 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "ALT &gt; 3 times ULN by Period",</pre>
+                      <pre class="language-r">                  na_vars = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "AST &gt; 3 times ULN by Period",</pre>
+                      <pre class="language-r">                    CHG2 = c(1235, 0.1), PCHG2 = c(1235, 0.1), CHG = c(1234, 0.1), PCHG = c(1234, 0.1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "ALT or AST &gt; 3 times ULN by Period",</pre>
+                      <pre class="language-r">                    AVAL = c(123, 0.1), AVALU = c(123, 0.1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "ALT &gt; 3 times Baseline by Period",</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">                    "AST &gt; 3 times Baseline by Period",</pre>
+                      <pre class="language-r">                  cached = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">49</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "ALT or AST &gt; 3 times Baseline by Period"</pre>
+                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">50</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">  if (cached) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">51</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  paramcd = c(</pre>
+                      <pre class="language-r">    return(get_cached_data("cadvs"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "BLAL",</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">                    "BGAS",</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">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "BGAL",</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">55</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "BLAS",</pre>
+                      <pre class="language-r">  checkmate::assert_character(param, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">56</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "BA2AL",</pre>
+                      <pre class="language-r">  checkmate::assert_character(paramcd, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">57</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "BA2AS",</pre>
+                      <pre class="language-r">  checkmate::assert_character(paramu, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "BA5AL",</pre>
+                      <pre class="language-r">  checkmate::assert_string(visit_format)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "BA5AS",</pre>
+                      <pre class="language-r">  checkmate::assert_integer(n_assessments, len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">60</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "BL2AL2CU",</pre>
+                      <pre class="language-r">  checkmate::assert_integer(n_days, len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "BG2AS2CU",</pre>
+                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">62</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "BL2AS2CU",</pre>
+                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "BG2AL2CU",</pre>
+                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "BG2AL2CB",</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">                    "BL2AL2CB",</pre>
+                      <pre class="language-r">  # validate and initialize param vectors</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "BG2AS2CB",</pre>
+                      <pre class="language-r">  param_init_list &lt;- relvar_init(param, paramcd)</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">                    "BL2AS2CB",</pre>
+                      <pre class="language-r">  unit_init_list &lt;- relvar_init(param, paramu)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "ALTPULN",</pre>
+                      <pre class="language-r"></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">                    "ASTPULN",</pre>
+                      <pre class="language-r">  if (!is.null(seed)) {</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">                    "ALTASTPU",</pre>
+                      <pre class="language-r">    set.seed(seed)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "ALTPBASE",</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">                    "ASTPBASE",</pre>
+                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "ALTASTPB"</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">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ),</pre>
+                      <pre class="language-r">  advs &lt;- expand.grid(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">75</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  seed = NULL,</pre>
+                      <pre class="language-r">    STUDYID = unique(adsl$STUDYID),</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">                  cached = FALSE) {</pre>
+                      <pre class="language-r">    USUBJID = adsl$USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">77</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">  checkmate::assert_flag(cached)</pre>
+                      <pre class="language-r">    PARAM = as.factor(param_init_list$relvar1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">78</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">    AVISIT = visit_schedule(visit_format = visit_format, n_assessments = n_assessments),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">79</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">  if (cached) {</pre>
+                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">80</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(get_cached_data("cadhy"))</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"></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"></pre>
+                      <pre class="language-r">  advs &lt;- dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">83</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
+                      <pre class="language-r">    advs,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">84</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(param, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">    AVISITN = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">85</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(paramcd, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">      AVISIT == "SCREENING" ~ -1,</pre>
                     </td>
                   </tr>
                   <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">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
+                      <pre class="language-r">      AVISIT == "BASELINE" ~ 0,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">87</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">      (grepl("^WEEK", AVISIT) | grepl("^CYCLE", AVISIT)) ~ as.numeric(AVISIT) - 2,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">88</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # validate and initialize related variables</pre>
+                      <pre class="language-r">      TRUE ~ NA_real_</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <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">  param_init_list &lt;- relvar_init(param, paramcd)</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">  )</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">  if (!is.null(seed)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <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">    set.seed(seed)</pre>
+                      <pre class="language-r">  advs$VSCAT &lt;- "VITAL SIGNS"</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="covered">
+                  <tr class="never">
                     <td class="num">94</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</pre>
+                      <pre class="language-r">  # assign related variable values: PARAMxPARAMCD are related</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">95</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">  advs &lt;- advs %&gt;% rel_var(</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">  # create all combinations of unique values in STUDYID, USUBJID, PARAM, AVISIT</pre>
+                      <pre class="language-r">    var_name = "PARAMCD",</pre>
                     </td>
                   </tr>
                   <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">  adhy &lt;- expand.grid(</pre>
+                      <pre class="language-r">    related_var = "PARAM",</pre>
                     </td>
                   </tr>
                   <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">    STUDYID = unique(adsl$STUDYID),</pre>
+                      <pre class="language-r">    var_values = param_init_list$relvar2</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">    USUBJID = adsl$USUBJID,</pre>
+                      <pre class="language-r">  )</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">    PARAM = as.factor(param_init_list$relvar1),</pre>
+                      <pre class="language-r"></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">    AVISIT = as.factor(c("BASELINE", "POST-BASELINE")),</pre>
+                      <pre class="language-r">  # assign related variable values: PARAMxAVALU are related</pre>
                     </td>
                   </tr>
                   <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">    APERIODC = as.factor(c("PERIOD 1", "PERIOD 2")),</pre>
+                      <pre class="language-r">  advs &lt;- advs %&gt;% rel_var(</pre>
                     </td>
                   </tr>
                   <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">    stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">    var_name = "AVALU",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">104</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">    related_var = "PARAM",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">105</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">    var_values = unit_init_list$relvar2</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # remove records that are not needed and were created as a side product of expand.grid above</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">107</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adhy &lt;- dplyr::filter(adhy, !(AVISIT == "BASELINE" &amp; APERIODC == "PERIOD 2"))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">108</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">  advs &lt;- advs %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">109</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # define TBILI ALT/AST params, period dependent parameters and the parameters that will be assigned values "Y" or "N"</pre>
+                      <pre class="language-r">    dplyr::mutate(VSTESTCD = PARAMCD) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">110</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  paramcd_tbilialtast &lt;- c("BLAL", "BGAS", "BGAL", "BLAS", "BA2AL", "BA2AS", "BA5AL", "BA5AS")</pre>
+                      <pre class="language-r">    dplyr::mutate(VSTEST = PARAM)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">111</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  paramcd_by_period &lt;- c("ALTPULN", "ASTPULN", "ALTASTPU", "ALTPBASE", "ASTPBASE", "ALTASTPB")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">112</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  paramcd_yn &lt;- c(</pre>
+                      <pre class="language-r">  advs &lt;- advs %&gt;% dplyr::mutate(AVAL = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">113</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "BL2AL2CU", "BG2AS2CU", "BL2AS2CU", "BG2AL2CU", "BG2AL2CB", "BL2AL2CB", "BG2AS2CB", "BL2AS2CB",</pre>
+                      <pre class="language-r">    PARAMCD == paramcd[1] ~ stats::rnorm(nrow(advs), mean = 100, sd = 20),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">114</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paramcd_by_period</pre>
+                      <pre class="language-r">    PARAMCD == paramcd[2] ~ stats::rnorm(nrow(advs), mean = 80, sd = 15),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">115</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">    PARAMCD == paramcd[3] ~ stats::rnorm(nrow(advs), mean = 16, sd = 5),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">116</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">    PARAMCD == paramcd[4] ~ stats::rnorm(nrow(advs), mean = 150, sd = 30),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">117</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # add other variables to adhy</pre>
+                      <pre class="language-r">    PARAMCD == paramcd[5] ~ stats::rnorm(nrow(advs), mean = 36.65, sd = 1),</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">  adhy &lt;- adhy %&gt;%</pre>
+                      <pre class="language-r">    PARAMCD == paramcd[6] ~ stats::rnorm(nrow(advs), mean = 70, sd = 20)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">119</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rel_var(</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">120</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var_name = "PARAMCD",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">121</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      related_var = "PARAM",</pre>
+                      <pre class="language-r">  # order to prepare for change from screening and baseline values</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">122</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var_values = param_init_list$relvar2</pre>
+                      <pre class="language-r">  advs &lt;- advs[order(advs$STUDYID, advs$USUBJID, advs$PARAMCD, advs$AVISITN), ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">123</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">124</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(</pre>
+                      <pre class="language-r">  advs &lt;- Reduce(rbind, lapply(split(advs, advs$USUBJID), function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">125</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVALC = dplyr::case_when(</pre>
+                      <pre class="language-r">    x$STUDYID &lt;- adsl$STUDYID[which(adsl$USUBJID == x$USUBJID[1])]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">126</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        PARAMCD %in% paramcd_tbilialtast ~ sample(</pre>
+                      <pre class="language-r">    x$ABLFL2 &lt;- ifelse(x$AVISIT == "SCREENING", "Y", "")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">127</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = c("&gt;3-5ULN", "&gt;5-10ULN", "&gt;10-20ULN", "&gt;20ULN", "Criteria not met"), size = dplyr::n(), replace = TRUE</pre>
+                      <pre class="language-r">    x$ABLFL &lt;- ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">128</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">      toupper(visit_format) == "WEEK" &amp; x$AVISIT == "BASELINE",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">129</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        PARAMCD %in% paramcd_yn ~ sample(</pre>
+                      <pre class="language-r">      "Y",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">130</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = c("Y", "N"), prob = c(0.1, 0.9), size = dplyr::n(), replace = TRUE</pre>
+                      <pre class="language-r">      ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">131</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        toupper(visit_format) == "CYCLE" &amp; x$AVISIT == "CYCLE 1 DAY 1",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">132</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">        "Y",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">133</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL = dplyr::case_when(</pre>
+                      <pre class="language-r">        ""</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">134</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        AVALC == "&gt;3-5ULN" ~ 1,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">135</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        AVALC == "&gt;5-10ULN" ~ 2,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">136</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        AVALC == "&gt;10-20ULN" ~ 3,</pre>
+                      <pre class="language-r">    x</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">137</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        AVALC == "&gt;20ULN" ~ 4,</pre>
+                      <pre class="language-r">  }))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">138</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        AVALC == "Y" ~ 1,</pre>
+                      <pre class="language-r"></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">        AVALC == "N" ~ 0,</pre>
+                      <pre class="language-r">  advs$BASE2 &lt;- retain(advs, advs$AVAL, advs$ABLFL2 == "Y")</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">        AVALC == "Criteria not met" ~ 0</pre>
+                      <pre class="language-r">  advs$BASE &lt;- ifelse(advs$ABLFL2 != "Y", retain(advs, advs$AVAL, advs$ABLFL == "Y"), 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">      ),</pre>
+                      <pre class="language-r"></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">      AVISITN = dplyr::case_when(</pre>
+                      <pre class="language-r">  advs &lt;- advs %&gt;%</pre>
                     </td>
                   </tr>
                   <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">        AVISIT == "BASELINE" ~ 0L,</pre>
+                      <pre class="language-r">    dplyr::mutate(CHG2 = AVAL - BASE2) %&gt;%</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">        AVISIT == "POST-BASELINE" ~ 9995L,</pre>
+                      <pre class="language-r">    dplyr::mutate(PCHG2 = 100 * (CHG2 / BASE2)) %&gt;%</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">        TRUE ~ NA_integer_</pre>
+                      <pre class="language-r">    dplyr::mutate(CHG = AVAL - BASE) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">146</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">    dplyr::mutate(PCHG = 100 * (CHG / BASE)) %&gt;%</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">      APERIOD = dplyr::case_when(</pre>
+                      <pre class="language-r">    dplyr::mutate(ANRLO = dplyr::case_when(</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">        APERIODC == "PERIOD 1" ~ 1L,</pre>
+                      <pre class="language-r">      PARAMCD == "DIABP" ~ 80,</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">        APERIODC == "PERIOD 2" ~ 2L,</pre>
+                      <pre class="language-r">      PARAMCD == "PULSE" ~ 60,</pre>
                     </td>
                   </tr>
                   <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">        TRUE ~ NA_integer_</pre>
+                      <pre class="language-r">      PARAMCD == "RESP" ~ 12,</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">      ),</pre>
+                      <pre class="language-r">      PARAMCD == "SYSBP" ~ 120,</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">      ABLFL = dplyr::if_else(AVISIT == "BASELINE", "Y", NA_character_),</pre>
+                      <pre class="language-r">      PARAMCD == "TEMP" ~ 36.1,</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">      ONTRTFL = dplyr::if_else(AVISIT == "POST-BASELINE", "Y", NA_character_),</pre>
+                      <pre class="language-r">      PARAMCD == "WEIGHT" ~ 40</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">      ANL01FL = "Y",</pre>
+                      <pre class="language-r">    )) %&gt;%</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">      SRCSEQ = NA_integer_</pre>
+                      <pre class="language-r">    dplyr::mutate(ANRHI = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">156</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">      PARAMCD == "DIABP" ~ 120,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">157</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">      PARAMCD == "PULSE" ~ 100,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">158</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # remove records for parameters with period 2 and not in paramcd_by_period</pre>
+                      <pre class="language-r">      PARAMCD == "RESP" ~ 20,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">159</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adhy &lt;- dplyr::filter(adhy, PARAMCD %in% paramcd_by_period | APERIODC == "PERIOD 1")</pre>
+                      <pre class="language-r">      PARAMCD == "SYSBP" ~ 180,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">160</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">      PARAMCD == "TEMP" ~ 37.2,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">161</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # add baseline variables</pre>
+                      <pre class="language-r">      PARAMCD == "WEIGHT" ~ 100</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">162</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adhy &lt;- adhy %&gt;%</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">163</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID, PARAMCD) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(ANRIND = factor(dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <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">    dplyr::mutate(</pre>
+                      <pre class="language-r">      AVAL &lt; ANRLO ~ "LOW",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">165</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BASEC = AVALC[AVISIT == "BASELINE"],</pre>
+                      <pre class="language-r">      AVAL &gt; ANRHI ~ "HIGH",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">166</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BASE = AVAL[AVISIT == "BASELINE"]</pre>
+                      <pre class="language-r">      TRUE ~ "NORMAL"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) %&gt;%</pre>
+                      <pre class="language-r">    ))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">168</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup()</pre>
+                      <pre class="language-r">    dplyr::mutate(VSSTRESC = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">169</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">      PARAMCD == "DIABP" ~ "&lt;80",</pre>
                     </td>
                   </tr>
                   <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">  adhy &lt;- adhy %&gt;%</pre>
+                      <pre class="language-r">      PARAMCD == "PULSE" ~ "&lt;60",</pre>
                     </td>
                   </tr>
                   <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">    var_relabel(</pre>
+                      <pre class="language-r">      PARAMCD == "RESP" ~ "&gt;20",</pre>
                     </td>
                   </tr>
                   <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">      STUDYID = attr(adsl$STUDYID, "label"),</pre>
+                      <pre class="language-r">      PARAMCD == "SYSBP" ~ "&gt;180",</pre>
                     </td>
                   </tr>
                   <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">      USUBJID = attr(adsl$USUBJID, "label")</pre>
+                      <pre class="language-r">      PARAMCD == "TEMP" ~ "&lt;36.1",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">174</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">      PARAMCD == "WEIGHT" ~ "&lt;40"</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">    )) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">176</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # merge ADSL to be able to add analysis datetime and analysis relative day variables</pre>
+                      <pre class="language-r">    dplyr::rowwise() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">177</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adhy &lt;- dplyr::inner_join(adhy, adsl, by = c("STUDYID", "USUBJID"))</pre>
+                      <pre class="language-r">    dplyr::mutate(LOQFL = factor(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">178</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">      ifelse(eval(parse(text = paste(AVAL, VSSTRESC))), "Y", "N")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # define a simple helper function to create ADY variable</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">180</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  add_ady &lt;- function(x, avisit) {</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">181</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">    if (avisit == "BASELINE") {</pre>
+                      <pre class="language-r">    dplyr::mutate(BASETYPE = "LAST") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">182</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::mutate(</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID, PARAMCD, BASETYPE) %&gt;%</pre>
                     </td>
                   </tr>
                   <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">        x,</pre>
+                      <pre class="language-r">    dplyr::mutate(BNRIND = ANRIND[ABLFL == "Y"]) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">184</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ADY = sample(x = -(1:14), size = dplyr::n(), replace = TRUE)</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">185</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">    dplyr::mutate(ATPTN = 1) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">186</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else if (avisit == "POST-BASELINE") {</pre>
+                      <pre class="language-r">    dplyr::mutate(DTYPE = NA) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">187</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::rowwise(x) %&gt;%</pre>
+                      <pre class="language-r">    rcd_var_relabel(</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">        dplyr::mutate(ADY = as.integer(sample(</pre>
+                      <pre class="language-r">      USUBJID = attr(adsl$USUBJID, "label"),</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">          dplyr::if_else(</pre>
+                      <pre class="language-r">      STUDYID = attr(adsl$STUDYID, "label")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">190</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            !is.na(TRTEDTM),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">191</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            as.numeric(difftime(TRTEDTM, TRTSDTM, units = "days")),</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="col-sm-12">
-                      <pre class="language-r">            as.numeric(study_duration_secs, "days")</pre>
+                      <pre class="language-r">  advs &lt;- rcd_var_relabel(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">193</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">    advs,</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">          size = 1,</pre>
+                      <pre class="language-r">    STUDYID = "Study Identifier",</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">          replace = TRUE</pre>
+                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</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="never">
                     <td class="num">197</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">198</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::mutate(x, ADY = NA_integer_)</pre>
+                      <pre class="language-r">  # merge ADSL to be able to add LB date and study day variables</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">199</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">  advs &lt;- dplyr::inner_join(</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">    advs,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">201</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">    adsl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">202</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # add ADY and ADTM variables</pre>
+                      <pre class="language-r">    by = c("STUDYID", "USUBJID")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">203</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adhy &lt;- adhy %&gt;%</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">204</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(AVISIT, .add = FALSE) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::rowwise() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">205</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_modify(~ add_ady(.x, .y$AVISIT)) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(TRTENDT = lubridate::date(dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">206</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">      is.na(TRTEDTM) ~ lubridate::floor_date(lubridate::date(TRTSDTM) + study_duration_secs, unit = "day"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">207</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ADTM = TRTSDTM + lubridate::days(ADY))</pre>
+                      <pre class="language-r">      TRUE ~ TRTEDTM</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">    ))) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">209</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # order columns and arrange rows; column order follows ADaM_1.1 specification</pre>
+                      <pre class="language-r">    dplyr::ungroup()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">210</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adhy &lt;-</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">211</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adhy[, c(</pre>
+                      <pre class="language-r">  advs &lt;- advs %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">212</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      colnames(adsl),</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">213</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "PARAM",</pre>
+                      <pre class="language-r">    dplyr::arrange(USUBJID, AVISITN) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">214</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "PARAMCD",</pre>
+                      <pre class="language-r">    dplyr::mutate(ADTM = rep(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">215</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "AVAL",</pre>
+                      <pre class="language-r">      sort(sample(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">216</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "AVALC",</pre>
+                      <pre class="language-r">        seq(lubridate::as_datetime(TRTSDTM[1]), lubridate::as_datetime(TRTENDT[1]), by = "day"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">217</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "BASE",</pre>
+                      <pre class="language-r">        size = nlevels(AVISIT)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">218</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "BASEC",</pre>
+                      <pre class="language-r">      )),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">219</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ABLFL",</pre>
+                      <pre class="language-r">      each = n() / nlevels(AVISIT)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">220</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ADTM",</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">221</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ADY",</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">222</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "AVISIT",</pre>
+                      <pre class="language-r">    dplyr::mutate(ADY = ceiling(difftime(ADTM, TRTSDTM, units = "days"))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">223</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "AVISITN",</pre>
+                      <pre class="language-r">    dplyr::select(-TRTENDT) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">224</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "APERIOD",</pre>
+                      <pre class="language-r">    dplyr::arrange(STUDYID, USUBJID, ADTM)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">225</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "APERIODC",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">226</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ONTRTFL",</pre>
+                      <pre class="language-r">  advs &lt;- advs %&gt;% dplyr::mutate(ONTRTFL = factor(dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">227</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "SRCSEQ",</pre>
+                      <pre class="language-r">    !AVISIT %in% c("SCREENING", "BASELINE") ~ "Y",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">228</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ANL01FL"</pre>
+                      <pre class="language-r">    TRUE ~ ""</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">  )))</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -31264,102 +31375,193 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">231</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adhy &lt;- adhy %&gt;%</pre>
+                      <pre class="language-r">  advs &lt;- advs %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">232</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(</pre>
+                      <pre class="language-r">    dplyr::mutate(ASPID = sample(seq_len(dplyr::n()))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">233</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID,</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">234</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID,</pre>
+                      <pre class="language-r">    dplyr::mutate(VSSEQ = seq_len(dplyr::n())) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">235</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD,</pre>
+                      <pre class="language-r">    dplyr::mutate(ASEQ = VSSEQ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">236</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISITN,</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">237</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ADTM,</pre>
+                      <pre class="language-r">    dplyr::arrange(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">238</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      SRCSEQ</pre>
+                      <pre class="language-r">      STUDYID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">239</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      USUBJID,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">240</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      PARAMCD,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">241</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      BASETYPE,</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">      AVISITN,</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">      ATPTN,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">244</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      DTYPE,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">245</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ADTM,</pre>
+                    </td>
+                  </tr>
+                  <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">      VSSEQ,</pre>
+                    </td>
+                  </tr>
+                  <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">      ASPID</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>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">249</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">250</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">251</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    advs &lt;- mutate_na(ds = advs, na_vars = na_vars, na_percentage = na_percentage)</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">253</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="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  # apply metadata</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">242</td>
+                    <td class="num">255</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adhy &lt;- apply_metadata(adhy, "metadata/ADHY.yml")</pre>
+                      <pre class="language-r">  advs &lt;- apply_metadata(advs, "metadata/ADVS.yml")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</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">244</td>
+                    <td class="num">257</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(adhy)</pre>
+                      <pre class="language-r">  return(advs)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -31368,14 +31570,14 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/radtr.R" class="hidden">
+            <div id="R/radtte.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">#' Tumor Response Analysis Dataset (ADTR)</pre>
+                      <pre class="language-r">#' Time-to-Event Analysis Dataset (ADTTE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -31403,7 +31605,7 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function for generating a random Tumor Response Analysis Dataset for a given</pre>
+                      <pre class="language-r">#' Function for generating a random Time-to-Event Analysis Dataset for a given</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -31424,7 +31626,7 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details One record per subject per parameter per analysis visit per analysis date.</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -31438,7 +31640,7 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `PARAMCD`, `BASETYPE`, `AVISITN`, `DTYPE`</pre>
+                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `PARAMCD`</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -31459,7 +31661,7 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... Additional arguments to be passed to `radrs`.</pre>
+                      <pre class="language-r">#' @inheritParams radaette</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -31473,7 +31675,7 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @templateVar data adtr</pre>
+                      <pre class="language-r">#' @templateVar data adtte</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -31508,91 +31710,91 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @author tomlinsj, npaszty, Xuefeng Hou, dipietrc</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">#'</pre>
+                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</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">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</pre>
+                      <pre class="language-r">#' adtte &lt;- radtte(adsl, seed = 2)</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">#' adtte</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtr &lt;- radtr(adsl, seed = 2)</pre>
+                      <pre class="language-r">radtte &lt;- function(adsl,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtr</pre>
+                      <pre class="language-r">                   event_descr = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">radtr &lt;- function(adsl,</pre>
+                      <pre class="language-r">                   censor_descr = NULL,</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 = c("Sum of Longest Diameter by Investigator"),</pre>
+                      <pre class="language-r">                   lookup = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  paramcd = c("SLDINV"),</pre>
+                      <pre class="language-r">                   seed = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  seed = NULL,</pre>
+                      <pre class="language-r">                   na_percentage = 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  cached = FALSE,</pre>
+                      <pre class="language-r">                   na_vars = list(CNSR = c(NA, 0.1), AVAL = c(1234, 0.1), AVALU = c(1234, 0.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">                  ...) {</pre>
+                      <pre class="language-r">                   cached = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
@@ -31613,7 +31815,7 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">35</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(get_cached_data("cadtr"))</pre>
+                      <pre class="language-r">    return(get_cached_data("cadtte"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -31623,1988 +31825,1751 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">37</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">38</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(param, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">39</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(paramcd, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  checkmate::assert_character(censor_descr, null.ok = TRUE, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">40</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
+                      <pre class="language-r">  checkmate::assert_character(event_descr, null.ok = TRUE, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">41</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stopifnot(length(param) == length(paramcd))</pre>
+                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">42</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # validate and initialize related variables</pre>
+                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">43</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_true(na_percentage &lt; 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">44</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(seed)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">45</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set.seed(seed)</pre>
+                      <pre class="language-r">  if (!is.null(seed)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">46</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">    set.seed(seed)</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">
+                  <tr class="covered">
                     <td class="num">48</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Make times consistent with ADRS at ADY and ADTM.</pre>
+                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">49</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adrs &lt;- radrs(adsl, seed = seed, ...) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">50</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::filter(PARAMCD == "OVRINV") %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(lookup, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">51</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(</pre>
+                      <pre class="language-r">  lookup_tte &lt;- if (!is.null(lookup)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">52</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "STUDYID",</pre>
+                      <pre class="language-r">    lookup</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">53</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "USUBJID",</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <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">      "AVISIT",</pre>
+                      <pre class="language-r">    tibble::tribble(</pre>
                     </td>
                   </tr>
                   <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">      "AVISITN",</pre>
+                      <pre class="language-r">      ~ARM, ~PARAMCD, ~PARAM, ~LAMBDA, ~CNSR_P,</pre>
                     </td>
                   </tr>
                   <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">      "ADTM",</pre>
+                      <pre class="language-r">      "ARM A", "EFS", "Event Free Survival", log(2) / 365, 0.4,</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">      "ADY"</pre>
+                      <pre class="language-r">      "ARM B", "EFS", "Event Free Survival", log(2) / 305, 0.3,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">58</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">      "ARM C", "EFS", "Event Free Survival", log(2) / 243, 0.2,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">59</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">      "ARM A", "CRSD", "Duration of Confirmed Response", log(2) / 305, 0.4,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">60</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adtr &lt;- Map(function(parcd, par) {</pre>
+                      <pre class="language-r">      "ARM B", "CRSD", "Duration of Confirmed Response", log(2) / 243, 0.3,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">61</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df &lt;- adrs</pre>
+                      <pre class="language-r">      "ARM C", "CRSD", "Duration of Confirmed Response", log(2) / 182, 0.2,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">62</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df$AVAL &lt;- stats::rnorm(nrow(df), mean = 150, sd = 30)</pre>
+                      <pre class="language-r">      "ARM A", "PFS", "Progression Free Survival", log(2) / 365, 0.4,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">63</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df$PARAMCD &lt;- parcd</pre>
+                      <pre class="language-r">      "ARM B", "PFS", "Progression Free Survival", log(2) / 305, 0.3,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">64</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df$PARAM &lt;- par</pre>
+                      <pre class="language-r">      "ARM C", "PFS", "Progression Free Survival", log(2) / 243, 0.2,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">65</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df</pre>
+                      <pre class="language-r">      "ARM A", "OS", "Overall Survival", log(2) / 610, 0.4,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">66</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }, paramcd, param) %&gt;%</pre>
+                      <pre class="language-r">      "ARM B", "OS", "Overall Survival", log(2) / 490, 0.3,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">67</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Reduce(rbind, .)</pre>
+                      <pre class="language-r">      "ARM C", "OS", "Overall Survival", log(2) / 365, 0.2,</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="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">  adtr_base &lt;- adtr %&gt;%</pre>
+                      <pre class="language-r">  }</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">    dplyr::filter(AVISITN == 0) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">71</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID, PARAMCD) %&gt;%</pre>
+                      <pre class="language-r">  evntdescr_sel &lt;- if (!is.null(event_descr)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">72</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(BASE = AVAL) %&gt;%</pre>
+                      <pre class="language-r">    event_descr</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">    dplyr::select("STUDYID", "USUBJID", "BASE", "PARAMCD")</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">74</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">    c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">75</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adtr_postbase &lt;- adtr %&gt;%</pre>
+                      <pre class="language-r">      "Death",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">76</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::filter(AVISITN &gt; 0) %&gt;%</pre>
+                      <pre class="language-r">      "Disease Progression",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">77</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::filter(!is.na(AVAL)) %&gt;%</pre>
+                      <pre class="language-r">      "Last Tumor Assessment",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">78</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID, PARAMCD) %&gt;%</pre>
+                      <pre class="language-r">      "Adverse Event",</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">    dplyr::filter(AVAL == min(AVAL)) %&gt;%</pre>
+                      <pre class="language-r">      "Alive"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">80</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::slice(1) %&gt;%</pre>
+                      <pre class="language-r">    )</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">    dplyr::mutate(AVISIT = "POST-BASELINE MINIMUM") %&gt;%</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <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">    dplyr::mutate(DTYPE = "MINIMUM") %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">83</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup()</pre>
+                      <pre class="language-r">  cnsdtdscr_sel &lt;- if (!is.null(censor_descr)) {</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">    censor_descr</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <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">  adtr_lastobs &lt;- adtr %&gt;%</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <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">    dplyr::filter(AVISITN &gt; 0) %&gt;%</pre>
+                      <pre class="language-r">    c(</pre>
                     </td>
                   </tr>
                   <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">    dplyr::filter(!is.na(AVAL)) %&gt;%</pre>
+                      <pre class="language-r">      "Preferred Term",</pre>
                     </td>
                   </tr>
                   <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">    dplyr::group_by(USUBJID, PARAMCD) %&gt;%</pre>
+                      <pre class="language-r">      "Clinical Cut Off",</pre>
                     </td>
                   </tr>
                   <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">    dplyr::filter(ADTM == max(ADTM, na.rm = TRUE)) %&gt;%</pre>
+                      <pre class="language-r">      "Completion or Discontinuation",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">90</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::slice(1) %&gt;%</pre>
+                      <pre class="language-r">      "End of AE Reporting Period"</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">    dplyr::mutate(LAST_VISIT = AVISIT) %&gt;%</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">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">93</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <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">      "STUDYID",</pre>
+                      <pre class="language-r">  adtte &lt;- split(adsl, adsl$USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">95</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "USUBJID",</pre>
+                      <pre class="language-r">    lapply(FUN = function(pinfo) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">96</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "PARAMCD",</pre>
+                      <pre class="language-r">      lookup_tte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">97</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "LAST_VISIT"</pre>
+                      <pre class="language-r">        dplyr::filter(ARM == as.character(pinfo$ACTARMCD)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">98</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        dplyr::rowwise() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">99</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">100</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adtr &lt;- rbind(adtr %&gt;% dplyr::mutate(DTYPE = ""), adtr_postbase)</pre>
+                      <pre class="language-r">          STUDYID = pinfo$STUDYID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">101</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          SITEID = pinfo$SITEID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">102</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adtr &lt;- merge(adtr, adtr_base, by = c("STUDYID", "USUBJID", "PARAMCD")) %&gt;%</pre>
+                      <pre class="language-r">          USUBJID = pinfo$USUBJID,</pre>
                     </td>
                   </tr>
                   <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">    dplyr::mutate(</pre>
-                    </td>
-                  </tr>
-                  <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">      ABLFL = dplyr::case_when(AVISIT == "BASELINE" ~ "Y", TRUE ~ ""),</pre>
-                    </td>
-                  </tr>
-                  <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">      AVAL = dplyr::case_when(AVISIT == "BASELINE" ~ NA_real_, TRUE ~ AVAL),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      CHG = dplyr::case_when(AVISITN &gt; 0 ~ AVAL - BASE, TRUE ~ NA_real_),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      PCHG = dplyr::case_when(AVISITN &gt; 0 ~ CHG / BASE * 100, TRUE ~ NA_real_),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      AVALC = as.character(AVAL),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      AVALU = "mm"</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">  # ensure PCHG does not exceed 200%, nor go below -100% (double in size, or complete remission of tumor).</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  adtr &lt;- adtr %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      PCHG_DUM = PCHG,</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">      PCHG = dplyr::case_when(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        PCHG_DUM &gt; 200 ~ 200,</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">        PCHG_DUM &lt; -100 ~ -100,</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">        TRUE ~ PCHG</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">121</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      AVAL = dplyr::case_when(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        PCHG_DUM &gt; 200 ~ 3 * BASE,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        PCHG_DUM &lt; -100 ~ 0,</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">        TRUE ~ AVAL</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>
-                    </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">      CHG = dplyr::case_when(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        PCHG_DUM &gt; 200 ~ 2 * BASE,</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">        PCHG_DUM &lt; -100 ~ -BASE,</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">        TRUE ~ CHG</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          AVALU = "DAYS"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) %&gt;%</pre>
+                      <pre class="language-r">        ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">105</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(-"PCHG_DUM")</pre>
+                      <pre class="language-r">        dplyr::select(-"LAMBDA", -"CNSR_P")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">106</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">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  adtr &lt;- merge(adsl, adtr, by = c("STUDYID", "USUBJID")) %&gt;%</pre>
+                      <pre class="language-r">    }) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">135</td>
+                    <td class="num">107</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID, PARAMCD) %&gt;%</pre>
+                      <pre class="language-r">    Reduce(rbind, .) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">136</td>
+                    <td class="num">108</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(</pre>
+                      <pre class="language-r">    rcd_var_relabel(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">137</td>
+                    <td class="num">109</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ONTRTFL = factor(dplyr::case_when(</pre>
+                      <pre class="language-r">      STUDYID = "Study Identifier",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">138</td>
+                    <td class="num">110</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        !AVISIT %in% c("SCREENING", "BASELINE", "FOLLOW UP") ~ "Y",</pre>
+                      <pre class="language-r">      USUBJID = "Unique Subject Identifier" # )</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">111</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        TRUE ~ ""</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</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="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">3<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">      ANL01FL = dplyr::case_when(</pre>
+                      <pre class="language-r">  # Loop through each patient and randomly assign a value for EVNTDESC</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">142</td>
+                    <td class="num">114</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        DTYPE == "" &amp; AVISITN &gt; 0 ~ "Y",</pre>
+                      <pre class="language-r">  adtte_split &lt;- split(adtte, adtte$USUBJID)</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">115</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        TRUE ~ ""</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">  # Add EVNTDESC column</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">145</td>
+                    <td class="num">117</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ANL03FL = dplyr::case_when(</pre>
+                      <pre class="language-r">  adtte_lst &lt;- lapply(adtte_split, function(split_df) {</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">118</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        DTYPE == "MINIMUM" ~ "Y",</pre>
+                      <pre class="language-r">    # First create an empty EVNTDESC variable to populate</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">119</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ABLFL == "Y" ~ "Y",</pre>
+                      <pre class="language-r">    split_df$EVNTDESC &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">120</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        TRUE ~ ""</pre>
+                      <pre class="language-r">    for (i in 1:nrow(split_df)) { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      # If this is the first row then create a random value from evntdescr_sel for EVNTDESC</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">122</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      if (i == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adtr &lt;- merge(adtr, adtr_lastobs, by = c("STUDYID", "USUBJID", "PARAMCD")) %&gt;%</pre>
+                      <pre class="language-r">        split_df$EVNTDESC[i] &lt;- sample(evntdescr_sel[c(1:4)], 1, prob = c(0.1, 0.3, 0.4, 0.2))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">124</td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(</pre>
+                      <pre class="language-r">      } else if (i != 1 &amp; i != nrow(split_df)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">3<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">      ANL02FL = dplyr::case_when(</pre>
+                      <pre class="language-r">        # First check to see if "Death" has been entered in as a previous value</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">3<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">        as.character(AVISIT) == as.character(LAST_VISIT) ~ "Y",</pre>
+                      <pre class="language-r">        # If so we need to make the rest of the EVNTDESC values "Death" to make sense</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">3<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">        ABLFL == "Y" ~ "Y",</pre>
+                      <pre class="language-r">        # The patient cannot die and then come back to life</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        TRUE ~ ""</pre>
+                      <pre class="language-r">        if (any(grepl("Death", split_df$EVNTDESC))) { # If previous value has "Death" the following need to be "Death"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">157</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          split_df$EVNTDESC[i] &lt;- "Death"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">158</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">    ) %&gt;%</pre>
+                      <pre class="language-r">        } else { # If there are no "Death" values randomly select another value</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">131</td>
+                    <td class="coverage">39<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(-"LAST_VISIT")</pre>
+                      <pre class="language-r">          split_df$EVNTDESC[i] &lt;- sample(evntdescr_sel[c(1:4)], 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Adding variables that are in ADTR osprey but not RCD.</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">161</td>
+                    <td class="num">133</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adtr &lt;- adtr %&gt;%</pre>
+                      <pre class="language-r">      } else { # This is for processing OS as this can only be "Death" or "Alive"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">134</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(</pre>
+                      <pre class="language-r">        if (any(grepl("Death", split_df$EVNTDESC))) { # If previous value has "Death" the following need to be "Death"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">135</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      DCSREAS_GRP = ifelse(DCSREAS == "ADVERSE EVENT", "Safety", "Non-Safety"),</pre>
+                      <pre class="language-r">          split_df$EVNTDESC[i] &lt;- "Death"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">164</td>
+                    <td class="num">136</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRTDURD = ifelse(</pre>
+                      <pre class="language-r">        } else { # If there are no "Death" values randomly select another value</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">137</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is.na(TRTSDTM) | is.na(TRTEDTM),</pre>
+                      <pre class="language-r">          split_df$EVNTDESC[i] &lt;- "Alive"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">3<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">        NA,</pre>
+                      <pre class="language-r">        }</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">139</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        TRTEDTM - (TRTSDTM + lubridate::days(1))</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <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">169</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">141</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AGEGR1 = ifelse(AGE &lt; 65, "&lt;65", "&gt;=65")</pre>
+                      <pre class="language-r">    split_df</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">142</td>
                     <td class="coverage"></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">143</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">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # apply metadata</pre>
+                      <pre class="language-r">  # Add CNSR column</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">173</td>
+                    <td class="num">145</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adtr &lt;- apply_metadata(adtr, "metadata/ADTR.yml")</pre>
+                      <pre class="language-r">  adtte_lst &lt;- lapply(adtte_lst, function(split_df) {</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">146</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(adtr)</pre>
+                      <pre class="language-r">    # First create an empty CNSR variable to populate</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    split_df$CNSR &lt;- NA</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/raddv.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">148</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Protocol Deviations Analysis Dataset (ADDV)</pre>
+                      <pre class="language-r">    for (i in 1:nrow(split_df)) { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      # If this is the first row then create a random value from evntdescr_sel for EVNTDESC</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">150</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">      if (split_df$EVNTDESC[i] == "Death" | split_df$EVNTDESC[i] == "Disease Progression") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">81<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        split_df$CNSR[i] &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function for generating random Protocol Deviations Analysis Dataset for a given</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">153</td>
+                    <td class="coverage">39<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Subject-Level Analysis Dataset.</pre>
+                      <pre class="language-r">        split_df$CNSR[i] &lt;- 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <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">8</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details One record per each record in the corresponding SDTM domain.</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">156</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    split_df</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">#' Keys: `STUDYID`, `USUBJID`, `ASTDT`, `DVTERM`, `DVSEQ`</pre>
+                      <pre class="language-r">  })</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">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">  # Add AVAL column</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param max_n_dv (`integer`)\cr Maximum number of deviations per patient. Defaults to 3.</pre>
+                      <pre class="language-r">  adtte_lst &lt;- lapply(adtte_lst, function(split_df) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param p_dv (`proportion`)\cr Probability of a patient having protocol deviations.</pre>
+                      <pre class="language-r">    # First create an empty CNSR variable to populate</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @template param_cached</pre>
+                      <pre class="language-r">    split_df$AVAL &lt;- NA</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @templateVar data addv</pre>
+                      <pre class="language-r">    for (i in 1:nrow(split_df)) { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      if (i == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `data.frame`</pre>
+                      <pre class="language-r">        split_df$AVAL[i] &lt;- stats::runif(1, 15, 100)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      } else if (i != 1 &amp; any(grepl("Death", split_df[1:i - 1, "EVNTDESC"]))) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        # Check if there are any death values before the current row</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</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">        # Set the AVAL to the value of the row that has the "Death" value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</pre>
+                      <pre class="language-r">        # as the patient cannot live longer than this value</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        death_position &lt;- match("Death", split_df[1:i - 1, "EVNTDESC"][[1]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' addv &lt;- raddv(adsl, seed = 2)</pre>
+                      <pre class="language-r">        split_df$AVAL[i] &lt;- split_df$AVAL[death_position]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' addv</pre>
+                      <pre class="language-r">      } else if (i == 2) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">raddv &lt;- function(adsl,</pre>
+                      <pre class="language-r">        split_df$AVAL[i] &lt;- stats::runif(1, 100, 200)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  max_n_dv = 3L,</pre>
+                      <pre class="language-r">      } else if (i == 3) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  p_dv = 0.15,</pre>
+                      <pre class="language-r">        split_df$AVAL[i] &lt;- stats::runif(1, 200, 300)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  lookup = NULL,</pre>
+                      <pre class="language-r">      } else if (i == 4) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  seed = NULL,</pre>
+                      <pre class="language-r">        split_df$AVAL[i] &lt;- stats::runif(1, 300, 500)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  na_percentage = 0,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  na_vars = list(</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">180</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "ASTDT" = c(seed = 1234, percentage = 0.1),</pre>
+                      <pre class="language-r">    split_df</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "DVCAT" = c(seed = 1234, percentage = 0.1)</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</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">36</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  cached = FALSE) {</pre>
+                      <pre class="language-r">  # Add CNSDTDSC column</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">184</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
+                      <pre class="language-r">  adtte_lst &lt;- lapply(adtte_lst, function(split_df) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">38</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">  if (cached) {</pre>
+                      <pre class="language-r">    # First create an empty CNSDTDSC variable to populate</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    return(get_cached_data("caddv"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                    <td class="num">186</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    split_df$CNSDTDSC &lt;- NA</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    for (i in 1:nrow(split_df)) { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">188</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
+                      <pre class="language-r">      if (split_df$CNSR[i] == 1 &amp; split_df$EVNTDESC[i] == "Last Tumor Assessment") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">189</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(max_n_dv, len = 1, lower = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">        split_df$CNSDTDSC[i] &lt;- "Completion or Discontinuation"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">190</td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(p_dv, lower = .Machine$double.xmin, upper = 1)</pre>
+                      <pre class="language-r">      } else if (split_df$CNSR[i] == 1 &amp; split_df$EVNTDESC[i] == "Adverse Event") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">45</td>
+                    <td class="num">191</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
+                      <pre class="language-r">        split_df$CNSDTDSC[i] &lt;- "Preferred Term"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">192</td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">      } else if (split_df$CNSR[i] == 1 &amp; split_df$EVNTDESC[i] == "Alive") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">193</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
+                      <pre class="language-r">        split_df$CNSDTDSC[i] &lt;- "Alive During Study"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">194</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">49</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">195</td>
+                    <td class="coverage">81<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(seed)) set.seed(seed)</pre>
+                      <pre class="language-r">        split_df$CNSDTDSC[i] &lt;- ""</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">50</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">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</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="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">198</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(lookup, null.ok = TRUE)</pre>
+                      <pre class="language-r">    split_df</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">53</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">  lookup_dv &lt;- if (!is.null(lookup)) {</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">54</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">    lookup</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</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">  # Take the split df and combine them back together</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">56</td>
+                    <td class="num">202</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tibble::tribble(</pre>
+                      <pre class="language-r">  adtte &lt;- do.call("rbind", adtte_lst)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
+                    <td class="num">203</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ~DOMAIN, ~DVCAT, ~DVDECOD, ~DVTERM, ~DVREAS, ~DVEPRELI,</pre>
+                      <pre class="language-r">  rownames(adtte) &lt;- NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">58</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">      "DV", "MAJOR", "EXCLUSION CRITERIA", "Received prior prohibited therapy or medication", "", "N",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
+                    <td class="num">205</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "DV", "MAJOR", "EXCLUSION CRITERIA", "Active or untreated or other excluded cns metastases", "", "N",</pre>
+                      <pre class="language-r">  adtte &lt;- rcd_var_relabel(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
+                    <td class="num">206</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "DV", "MAJOR", "EXCLUSION CRITERIA", "History of other malignancies within the last 5 years", "", "N",</pre>
+                      <pre class="language-r">    adtte,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
+                    <td class="num">207</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "DV", "MAJOR", "EXCLUSION CRITERIA", "Uncontrolled concurrent condition", "", "N",</pre>
+                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
+                    <td class="num">208</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "DV", "MAJOR", "EXCLUSION CRITERIA", "Other exclusion criteria", "", "N",</pre>
+                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">3<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">      "DV", "MAJOR", "EXCLUSION CRITERIA", "Pregnancy criteria", "", "N",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">64</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">      "DV", "MAJOR", "INCLUSION CRITERIA", "Does not meet prior therapy requirements", "", "N",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">3<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">      "DV", "MAJOR", "INCLUSION CRITERIA", "Inclusion lab values outside allowed limits", "", "N",</pre>
+                      <pre class="language-r">  # merge ADSL to be able to add TTE date and study day variables</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">66</td>
+                    <td class="num">212</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "DV", "MAJOR", "INCLUSION CRITERIA", "No signed ICF at study entry", "", "N",</pre>
+                      <pre class="language-r">  adtte &lt;- dplyr::inner_join(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">67</td>
+                    <td class="num">213</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "DV", "MAJOR", "INCLUSION CRITERIA", "Inclusion-related test not done/out of window", "", "N",</pre>
+                      <pre class="language-r">    dplyr::select(adtte, -"SITEID", -"ARM"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">68</td>
+                    <td class="num">214</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "DV", "MAJOR", "INCLUSION CRITERIA", "Ineligible cancer type or current cancer stage", "", "N",</pre>
+                      <pre class="language-r">    adsl,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
+                    <td class="num">215</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "DV", "MAJOR", "MEDICATION", "Dose missed or significantly out of window",</pre>
+                      <pre class="language-r">    by = c("STUDYID", "USUBJID")</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">216</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Site action due to epidemic/pandemic", "Y",</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">71</td>
+                    <td class="num">217</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "DV", "MAJOR", "MEDICATION", "Received incorrect study medication", "", "N",</pre>
+                      <pre class="language-r">    dplyr::rowwise() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
+                    <td class="num">218</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "DV", "MAJOR", "MEDICATION", "Received prohibited concomitant medication", "", "N",</pre>
+                      <pre class="language-r">    dplyr::mutate(TRTENDT = lubridate::date(dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">73</td>
+                    <td class="num">219</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "DV", "MAJOR", "MEDICATION", "Discontinued study drug for unspecified reason", "", "N",</pre>
+                      <pre class="language-r">      is.na(TRTEDTM) ~ lubridate::floor_date(lubridate::date(TRTSDTM) + study_duration_secs, unit = "day"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
+                    <td class="num">220</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "DV", "MAJOR", "MEDICATION", "Significant deviation from planned dose",</pre>
+                      <pre class="language-r">      TRUE ~ TRTEDTM</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">3<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">      "Site action due to epidemic/pandemic", "Y",</pre>
+                      <pre class="language-r">    ))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
+                    <td class="num">222</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "DV", "MAJOR", "PROCEDURAL", "Missed assessment affecting safety/study outcomes", "", "N",</pre>
+                      <pre class="language-r">    dplyr::mutate(ADTM = sample(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
+                    <td class="num">223</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "DV", "MAJOR", "PROCEDURAL", "Eligibility-related test not done/out of window", "", "N",</pre>
+                      <pre class="language-r">      seq(lubridate::as_datetime(TRTSDTM), lubridate::as_datetime(TRTENDT), by = "day"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
+                    <td class="num">224</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "DV", "MAJOR", "PROCEDURAL", "Failure to sign updated ICF within two visits",</pre>
+                      <pre class="language-r">      size = 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">79</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">      "Site action due to epidemic/pandemic", "Y",</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">80</td>
+                    <td class="num">226</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "DV", "MAJOR", "PROCEDURAL", "Omission of complete lab panel required by protocol", "", "N",</pre>
+                      <pre class="language-r">    dplyr::mutate(ADY = ceiling(difftime(ADTM, TRTSDTM, units = "days"))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
+                    <td class="num">227</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "DV", "MAJOR", "PROCEDURAL", "Omission of screening tumor assessment", "", "N",</pre>
+                      <pre class="language-r">    dplyr::select(-TRTENDT) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
+                    <td class="num">228</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "DV", "MAJOR", "PROCEDURAL", "Missed 2 or more efficacy assessments",</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
+                    <td class="num">229</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Site action due to epidemic/pandemic", "Y"</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="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    dplyr::arrange(STUDYID, USUBJID, ADTM)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</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">87</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">231</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  adtte &lt;- adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
+                    <td class="num">232</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  addv &lt;- Map(</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">89</td>
+                    <td class="num">233</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(id, sid) {</pre>
+                      <pre class="language-r">    dplyr::mutate(TTESEQ = seq_len(dplyr::n())) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">234</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_dv &lt;- stats::rbinom(1, 1, p_dv) * sample(c(1, seq_len(max_n_dv)), 1)</pre>
+                      <pre class="language-r">    dplyr::mutate(ASEQ = TTESEQ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">235</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      i &lt;- sample(seq_len(nrow(lookup_dv)), n_dv, TRUE)</pre>
+                      <pre class="language-r">    dplyr::mutate(PARAM = as.factor(PARAM)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">236</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::mutate(</pre>
+                      <pre class="language-r">    dplyr::mutate(PARAMCD = as.factor(PARAMCD)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">237</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lookup_dv[i, ],</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">238</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        USUBJID = id,</pre>
+                      <pre class="language-r">    dplyr::arrange(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">239</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        STUDYID = sid</pre>
+                      <pre class="language-r">      STUDYID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">240</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      USUBJID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">241</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">      PARAMCD,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">98</td>
+                    <td class="num">242</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl$USUBJID,</pre>
+                      <pre class="language-r">      ADTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">99</td>
+                    <td class="num">243</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl$STUDYID</pre>
+                      <pre class="language-r">      TTESEQ</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">244</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">101</td>
-                    <td class="coverage">3<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">    Reduce(rbind, .) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">102</td>
+                    <td class="num">246</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(DVSCAT = DVCAT)</pre>
+                      <pre class="language-r">  mod_before_adtte &lt;- adtte</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></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">248</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  addv &lt;- var_relabel(</pre>
+                      <pre class="language-r">  # adding adverse event counts and log follow-up time</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">105</td>
+                    <td class="num">249</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    addv,</pre>
+                      <pre class="language-r">  adtte &lt;- dplyr::bind_rows(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
+                    <td class="num">250</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
+                      <pre class="language-r">    adtte,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
+                    <td class="num">251</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</pre>
+                      <pre class="language-r">    data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">252</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      adtte %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">253</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        dplyr::group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</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">  # merge ADSL to be able to add deviation date and study day variables</pre>
+                      <pre class="language-r">        dplyr::slice_head(n = 1) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
+                    <td class="num">255</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  addv &lt;- dplyr::inner_join(addv, adsl, by = c("STUDYID", "USUBJID")) %&gt;%</pre>
+                      <pre class="language-r">        dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
+                    <td class="num">256</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::rowwise() %&gt;%</pre>
+                      <pre class="language-r">          PARAMCD = "TNE",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
+                    <td class="num">257</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(TRTENDT = lubridate::date(dplyr::case_when(</pre>
+                      <pre class="language-r">          PARAM = "Total Number of Exacerbations",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">114</td>
+                    <td class="num">258</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is.na(TRTEDTM) ~ lubridate::floor_date(lubridate::date(TRTSDTM) + study_duration_secs, unit = "day"),</pre>
+                      <pre class="language-r">          AVAL = stats::rpois(1, 3),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">115</td>
+                    <td class="num">259</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ TRTEDTM</pre>
+                      <pre class="language-r">          AVALU = "COUNT",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">260</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))) %&gt;%</pre>
+                      <pre class="language-r">          lgTMATRSK = log(stats::rexp(1, rate = 3)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">117</td>
+                    <td class="num">261</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ASTDTM = sample(</pre>
+                      <pre class="language-r">          dplyr::across(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">118</td>
+                    <td class="num">262</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      seq(lubridate::as_datetime(TRTSDTM), lubridate::as_datetime(TRTENDT), by = "day"),</pre>
+                      <pre class="language-r">            c("ASEQ", "TTESEQ", "ADY", "ADTM", "EVNTDESC"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">119</td>
+                    <td class="num">263</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size = 1</pre>
+                      <pre class="language-r">            ~NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">264</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">121</td>
-                    <td class="coverage">3<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">    dplyr::mutate(ASTDT = lubridate::date(ASTDTM)) %&gt;%</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">3<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">    dplyr::mutate(ASTDY = ceiling(difftime(ASTDTM, TRTSDTM, units = "days"))) %&gt;%</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">3<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">    dplyr::select(-TRTENDT, -ASTDTM) %&gt;%</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">124</td>
+                    <td class="num">268</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">    dplyr::arrange(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">125</td>
+                    <td class="num">269</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(STUDYID, USUBJID, ASTDT, DVTERM)</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">      STUDYID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">127</td>
+                    <td class="num">270</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  addv &lt;- addv %&gt;%</pre>
+                      <pre class="language-r">      USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">128</td>
+                    <td class="num">271</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">      PARAMCD,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
+                    <td class="num">272</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(DVSEQ = seq_len(dplyr::n())) %&gt;%</pre>
+                      <pre class="language-r">      ADTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">130</td>
+                    <td class="num">273</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">      TTESEQ</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">274</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(STUDYID, USUBJID, ASTDT, DVTERM, DVSEQ)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</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">133</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  addv &lt;- addv %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
+                    <td class="num">276</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(AEPRELFL = ifelse(DVEPRELI == "Y", DVEPRELI, ""))</pre>
+                      <pre class="language-r">  mod_after_adtte &lt;- adtte</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</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">136</td>
+                    <td class="num">278</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">137</td>
+                    <td class="num">279</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    addv &lt;- mutate_na(ds = addv, na_vars = na_vars, na_percentage = na_percentage)</pre>
+                      <pre class="language-r">    adtte &lt;- mutate_na(ds = adtte, na_vars = na_vars, na_percentage = na_percentage)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</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">139</td>
+                    <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">140</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  # apply metadata</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">141</td>
+                    <td class="num">283</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  addv &lt;- apply_metadata(addv, "metadata/ADDV.yml")</pre>
+                      <pre class="language-r">  adtte &lt;- apply_metadata(adtte, "metadata/ADTTE.yml")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</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">143</td>
+                    <td class="num">285</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(addv)</pre>
+                      <pre class="language-r">  return(adtte)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -33613,14 +33578,14 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/radtte.R" class="hidden">
+            <div id="R/raddv.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">#' Time-to-Event Analysis Dataset (ADTTE)</pre>
+                      <pre class="language-r">#' Protocol Deviations Analysis Dataset (ADDV)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -33648,7 +33613,7 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function for generating a random Time-to-Event Analysis Dataset for a given</pre>
+                      <pre class="language-r">#' Function for generating random Protocol Deviations Analysis Dataset for a given</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -33669,7 +33634,7 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">#' @details One record per each record in the corresponding SDTM domain.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -33683,7 +33648,7 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `PARAMCD`</pre>
+                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `ASTDT`, `DVTERM`, `DVSEQ`</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -33704,1915 +33669,1900 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams radaette</pre>
+                      <pre class="language-r">#' @param max_n_dv (`integer`)\cr Maximum number of deviations per patient. Defaults to 3.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @template param_cached</pre>
+                      <pre class="language-r">#' @param p_dv (`proportion`)\cr Probability of a patient having protocol deviations.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @templateVar data adtte</pre>
+                      <pre class="language-r">#' @template param_cached</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">#' @templateVar data addv</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 `data.frame`</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">#' @export</pre>
+                      <pre class="language-r">#' @return `data.frame`</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">#' @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">#' @examples</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">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</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">#'</pre>
+                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte &lt;- radtte(adsl, seed = 2)</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">#' adtte</pre>
+                      <pre class="language-r">#' addv &lt;- raddv(adsl, seed = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">radtte &lt;- function(adsl,</pre>
+                      <pre class="language-r">#' addv</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   event_descr = NULL,</pre>
+                      <pre class="language-r">raddv &lt;- function(adsl,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   censor_descr = NULL,</pre>
+                      <pre class="language-r">                  max_n_dv = 3L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   lookup = NULL,</pre>
+                      <pre class="language-r">                  p_dv = 0.15,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   seed = NULL,</pre>
+                      <pre class="language-r">                  lookup = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   na_percentage = 0,</pre>
+                      <pre class="language-r">                  seed = 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">                   na_vars = list(CNSR = c(NA, 0.1), AVAL = c(1234, 0.1), AVALU = c(1234, 0.1)),</pre>
+                      <pre class="language-r">                  na_percentage = 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   cached = FALSE) {</pre>
+                      <pre class="language-r">                  na_vars = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">33</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                    "ASTDT" = c(seed = 1234, percentage = 0.1),</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                    "DVCAT" = c(seed = 1234, percentage = 0.1)</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  cached = FALSE) {</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">  checkmate::assert_flag(cached)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">34</td>
+                    <td class="num">38</td>
                     <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  if (cached) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">35</td>
+                    <td class="num">39</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(get_cached_data("cadtte"))</pre>
+                      <pre class="language-r">    return(get_cached_data("caddv"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</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">37</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">38</td>
+                    <td class="num">42</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">39</td>
+                    <td class="num">43</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(censor_descr, null.ok = TRUE, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  checkmate::assert_integer(max_n_dv, len = 1, lower = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">40</td>
+                    <td class="num">44</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(event_descr, null.ok = TRUE, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  checkmate::assert_number(p_dv, lower = .Machine$double.xmin, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">41</td>
+                    <td class="num">45</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">42</td>
+                    <td class="num">46</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">43</td>
+                    <td class="num">47</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</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">45</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(seed)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">46</td>
+                    <td class="num">49</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set.seed(seed)</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">  if (!is.null(seed)) set.seed(seed)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">48</td>
+                    <td class="num">50</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</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">50</td>
+                    <td class="num">52</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  checkmate::assert_data_frame(lookup, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">51</td>
+                    <td class="num">53</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lookup_tte &lt;- if (!is.null(lookup)) {</pre>
+                      <pre class="language-r">  lookup_dv &lt;- if (!is.null(lookup)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">52</td>
+                    <td class="num">54</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
                       <pre class="language-r">    lookup</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <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">    tibble::tribble(</pre>
-                    </td>
-                  </tr>
-                  <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">      ~ARM, ~PARAMCD, ~PARAM, ~LAMBDA, ~CNSR_P,</pre>
-                    </td>
-                  </tr>
                   <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">      "ARM A", "EFS", "Event Free Survival", log(2) / 365, 0.4,</pre>
+                      <pre class="language-r">    tibble::tribble(</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">      "ARM B", "EFS", "Event Free Survival", log(2) / 305, 0.3,</pre>
+                      <pre class="language-r">      ~DOMAIN, ~DVCAT, ~DVDECOD, ~DVTERM, ~DVREAS, ~DVEPRELI,</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">      "ARM C", "EFS", "Event Free Survival", log(2) / 243, 0.2,</pre>
+                      <pre class="language-r">      "DV", "MAJOR", "EXCLUSION CRITERIA", "Received prior prohibited therapy or medication", "", "N",</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">      "ARM A", "CRSD", "Duration of Confirmed Response", log(2) / 305, 0.4,</pre>
+                      <pre class="language-r">      "DV", "MAJOR", "EXCLUSION CRITERIA", "Active or untreated or other excluded cns metastases", "", "N",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">60</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ARM B", "CRSD", "Duration of Confirmed Response", log(2) / 243, 0.3,</pre>
+                      <pre class="language-r">      "DV", "MAJOR", "EXCLUSION CRITERIA", "History of other malignancies within the last 5 years", "", "N",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">61</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ARM C", "CRSD", "Duration of Confirmed Response", log(2) / 182, 0.2,</pre>
+                      <pre class="language-r">      "DV", "MAJOR", "EXCLUSION CRITERIA", "Uncontrolled concurrent condition", "", "N",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">62</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ARM A", "PFS", "Progression Free Survival", log(2) / 365, 0.4,</pre>
+                      <pre class="language-r">      "DV", "MAJOR", "EXCLUSION CRITERIA", "Other exclusion criteria", "", "N",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">63</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ARM B", "PFS", "Progression Free Survival", log(2) / 305, 0.3,</pre>
+                      <pre class="language-r">      "DV", "MAJOR", "EXCLUSION CRITERIA", "Pregnancy criteria", "", "N",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">64</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ARM C", "PFS", "Progression Free Survival", log(2) / 243, 0.2,</pre>
+                      <pre class="language-r">      "DV", "MAJOR", "INCLUSION CRITERIA", "Does not meet prior therapy requirements", "", "N",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">65</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ARM A", "OS", "Overall Survival", log(2) / 610, 0.4,</pre>
+                      <pre class="language-r">      "DV", "MAJOR", "INCLUSION CRITERIA", "Inclusion lab values outside allowed limits", "", "N",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">66</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ARM B", "OS", "Overall Survival", log(2) / 490, 0.3,</pre>
+                      <pre class="language-r">      "DV", "MAJOR", "INCLUSION CRITERIA", "No signed ICF at study entry", "", "N",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">67</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ARM C", "OS", "Overall Survival", log(2) / 365, 0.2,</pre>
+                      <pre class="language-r">      "DV", "MAJOR", "INCLUSION CRITERIA", "Inclusion-related test not done/out of window", "", "N",</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">    )</pre>
+                      <pre class="language-r">      "DV", "MAJOR", "INCLUSION CRITERIA", "Ineligible cancer type or current cancer stage", "", "N",</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">  }</pre>
+                      <pre class="language-r">      "DV", "MAJOR", "MEDICATION", "Dose missed or significantly out of window",</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">      "Site action due to epidemic/pandemic", "Y",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">71</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  evntdescr_sel &lt;- if (!is.null(event_descr)) {</pre>
+                      <pre class="language-r">      "DV", "MAJOR", "MEDICATION", "Received incorrect study medication", "", "N",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <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">    event_descr</pre>
+                      <pre class="language-r">      "DV", "MAJOR", "MEDICATION", "Received prohibited concomitant medication", "", "N",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">73</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">      "DV", "MAJOR", "MEDICATION", "Discontinued study drug for unspecified reason", "", "N",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">74</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c(</pre>
+                      <pre class="language-r">      "DV", "MAJOR", "MEDICATION", "Significant deviation from planned dose",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">75</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Death",</pre>
+                      <pre class="language-r">      "Site action due to epidemic/pandemic", "Y",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">76</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Disease Progression",</pre>
+                      <pre class="language-r">      "DV", "MAJOR", "PROCEDURAL", "Missed assessment affecting safety/study outcomes", "", "N",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">77</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Last Tumor Assessment",</pre>
+                      <pre class="language-r">      "DV", "MAJOR", "PROCEDURAL", "Eligibility-related test not done/out of window", "", "N",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">78</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Adverse Event",</pre>
+                      <pre class="language-r">      "DV", "MAJOR", "PROCEDURAL", "Failure to sign updated ICF within two visits",</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">      "Alive"</pre>
+                      <pre class="language-r">      "Site action due to epidemic/pandemic", "Y",</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">    )</pre>
+                      <pre class="language-r">      "DV", "MAJOR", "PROCEDURAL", "Omission of complete lab panel required by protocol", "", "N",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">81</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">      "DV", "MAJOR", "PROCEDURAL", "Omission of screening tumor assessment", "", "N",</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"></pre>
+                      <pre class="language-r">      "DV", "MAJOR", "PROCEDURAL", "Missed 2 or more efficacy assessments",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">83</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cnsdtdscr_sel &lt;- if (!is.null(censor_descr)) {</pre>
+                      <pre class="language-r">      "Site action due to epidemic/pandemic", "Y"</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">    censor_descr</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">  } else {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <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">    c(</pre>
+                      <pre class="language-r"></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">      "Preferred Term",</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="col-sm-12">
-                      <pre class="language-r">      "Clinical Cut Off",</pre>
+                      <pre class="language-r">  addv &lt;- Map(</pre>
                     </td>
                   </tr>
                   <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">      "Completion or Discontinuation",</pre>
+                      <pre class="language-r">    function(id, sid) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">90</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "End of AE Reporting Period"</pre>
+                      <pre class="language-r">      n_dv &lt;- stats::rbinom(1, 1, p_dv) * sample(c(1, seq_len(max_n_dv)), 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">91</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      i &lt;- sample(seq_len(nrow(lookup_dv)), n_dv, TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">92</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      dplyr::mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">93</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        lookup_dv[i, ],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">94</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adtte &lt;- split(adsl, adsl$USUBJID) %&gt;%</pre>
+                      <pre class="language-r">        USUBJID = id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">95</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(FUN = function(pinfo) {</pre>
+                      <pre class="language-r">        STUDYID = sid</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">96</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lookup_tte %&gt;%</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">97</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::filter(ARM == as.character(pinfo$ACTARMCD)) %&gt;%</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">98</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::rowwise() %&gt;%</pre>
+                      <pre class="language-r">    adsl$USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">99</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::mutate(</pre>
+                      <pre class="language-r">    adsl$STUDYID</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">100</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          STUDYID = pinfo$STUDYID,</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">101</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          SITEID = pinfo$SITEID,</pre>
+                      <pre class="language-r">    Reduce(rbind, .) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">102</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          USUBJID = pinfo$USUBJID,</pre>
+                      <pre class="language-r">    dplyr::mutate(DVSCAT = DVCAT)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">103</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          AVALU = "DAYS"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">104</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ) %&gt;%</pre>
+                      <pre class="language-r">  addv &lt;- rcd_var_relabel(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">105</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::select(-"LAMBDA", -"CNSR_P")</pre>
+                      <pre class="language-r">    addv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">106</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }) %&gt;%</pre>
+                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">107</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Reduce(rbind, .) %&gt;%</pre>
+                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">108</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_relabel(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">109</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID = "Study Identifier",</pre>
+                      <pre class="language-r"></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">      USUBJID = "Unique Subject Identifier" # )</pre>
+                      <pre class="language-r">  # merge ADSL to be able to add deviation date and study day variables</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">111</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">  addv &lt;- dplyr::inner_join(addv, adsl, by = c("STUDYID", "USUBJID")) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">112</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">    dplyr::rowwise() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">113</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Loop through each patient and randomly assign a value for EVNTDESC</pre>
+                      <pre class="language-r">    dplyr::mutate(TRTENDT = lubridate::date(dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">114</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adtte_split &lt;- split(adtte, adtte$USUBJID)</pre>
+                      <pre class="language-r">      is.na(TRTEDTM) ~ lubridate::floor_date(lubridate::date(TRTSDTM) + study_duration_secs, unit = "day"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">115</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">      TRUE ~ TRTEDTM</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add EVNTDESC column</pre>
+                      <pre class="language-r">    ))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">117</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adtte_lst &lt;- lapply(adtte_split, function(split_df) {</pre>
+                      <pre class="language-r">    dplyr::mutate(ASTDTM = sample(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">118</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # First create an empty EVNTDESC variable to populate</pre>
+                      <pre class="language-r">      seq(lubridate::as_datetime(TRTSDTM), lubridate::as_datetime(TRTENDT), by = "day"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">119</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    split_df$EVNTDESC &lt;- NA</pre>
+                      <pre class="language-r">      size = 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">120</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for (i in 1:nrow(split_df)) { # nolint</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">121</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # If this is the first row then create a random value from evntdescr_sel for EVNTDESC</pre>
+                      <pre class="language-r">    dplyr::mutate(ASTDT = lubridate::date(ASTDTM)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">122</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (i == 1) {</pre>
+                      <pre class="language-r">    dplyr::mutate(ASTDY = ceiling(difftime(ASTDTM, TRTSDTM, units = "days"))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">123</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        split_df$EVNTDESC[i] &lt;- sample(evntdescr_sel[c(1:4)], 1, prob = c(0.1, 0.3, 0.4, 0.2))</pre>
+                      <pre class="language-r">    dplyr::select(-TRTENDT, -ASTDTM) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">124</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (i != 1 &amp; i != nrow(split_df)) {</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">125</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # First check to see if "Death" has been entered in as a previous value</pre>
+                      <pre class="language-r">    dplyr::arrange(STUDYID, USUBJID, ASTDT, DVTERM)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # If so we need to make the rest of the EVNTDESC values "Death" to make sense</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">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # The patient cannot die and then come back to life</pre>
+                      <pre class="language-r">  addv &lt;- addv %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">128</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (any(grepl("Death", split_df$EVNTDESC))) { # If previous value has "Death" the following need to be "Death"</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">129</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          split_df$EVNTDESC[i] &lt;- "Death"</pre>
+                      <pre class="language-r">    dplyr::mutate(DVSEQ = seq_len(dplyr::n())) %&gt;%</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">        } else { # If there are no "Death" values randomly select another value</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">131</td>
-                    <td class="coverage">39<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          split_df$EVNTDESC[i] &lt;- sample(evntdescr_sel[c(1:4)], 1)</pre>
+                      <pre class="language-r">    dplyr::arrange(STUDYID, USUBJID, ASTDT, DVTERM, DVSEQ)</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="covered">
                     <td class="num">133</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else { # This is for processing OS as this can only be "Death" or "Alive"</pre>
+                      <pre class="language-r">  addv &lt;- addv %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">134</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (any(grepl("Death", split_df$EVNTDESC))) { # If previous value has "Death" the following need to be "Death"</pre>
+                      <pre class="language-r">    dplyr::mutate(AEPRELFL = ifelse(DVEPRELI == "Y", DVEPRELI, ""))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">135</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          split_df$EVNTDESC[i] &lt;- "Death"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">136</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else { # If there are no "Death" values randomly select another value</pre>
+                      <pre class="language-r">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">137</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          split_df$EVNTDESC[i] &lt;- "Alive"</pre>
+                      <pre class="language-r">    addv &lt;- mutate_na(ds = addv, na_vars = na_vars, na_percentage = na_percentage)</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">  }</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">
                     <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  # apply metadata</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">141</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    split_df</pre>
+                      <pre class="language-r">  addv &lt;- apply_metadata(addv, "metadata/ADDV.yml")</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"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">143</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">  return(addv)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add CNSR column</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">  adtte_lst &lt;- lapply(adtte_lst, function(split_df) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/radpc.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">    # First create an empty CNSR variable to populate</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">30<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    split_df$CNSR &lt;- NA</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">30<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    for (i in 1:nrow(split_df)) { # nolint</pre>
+                      <pre class="language-r">#' Pharmacokinetics Analysis Dataset (ADPC)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # If this is the first row then create a random value from evntdescr_sel for EVNTDESC</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">120<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (split_df$EVNTDESC[i] == "Death" | split_df$EVNTDESC[i] == "Disease Progression") {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">81<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">        split_df$CNSR[i] &lt;- 0</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">      } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">39<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">        split_df$CNSR[i] &lt;- 1</pre>
+                      <pre class="language-r">#' Function for generating a random Pharmacokinetics Analysis Dataset for a given</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">      }</pre>
+                      <pre class="language-r">#' Subject-Level Analysis Dataset.</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">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">30<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">    split_df</pre>
+                      <pre class="language-r">#' @details One record per study, subject, parameter, and time point.</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">  })</pre>
+                      <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"></pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</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">  # Add AVAL column</pre>
+                      <pre class="language-r">#' @param avalu (`character`)\cr Analysis value units.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">3<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">  adtte_lst &lt;- lapply(adtte_lst, function(split_df) {</pre>
+                      <pre class="language-r">#' @param constants (`character vector`)\cr Constant parameters to be used in formulas for creating analysis values.</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">    # First create an empty CNSR variable to populate</pre>
+                      <pre class="language-r">#' @param duration (`numeric`)\cr Duration in number of days.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">30<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">    split_df$AVAL &lt;- NA</pre>
+                      <pre class="language-r">#' @template param_cached</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">30<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">    for (i in 1:nrow(split_df)) { # nolint</pre>
+                      <pre class="language-r">#' @templateVar data adpc</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">120<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">      if (i == 1) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">30<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">        split_df$AVAL[i] &lt;- stats::runif(1, 15, 100)</pre>
+                      <pre class="language-r">#' @return `data.frame`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">90<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">      } else if (i != 1 &amp; any(grepl("Death", split_df[1:i - 1, "EVNTDESC"]))) {</pre>
+                      <pre class="language-r">#' @export</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">        # Check if there are any death values before the current row</pre>
+                      <pre class="language-r">#'</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">        # Set the AVAL to the value of the row that has the "Death" value</pre>
+                      <pre class="language-r">#' @examples</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">        # as the patient cannot live longer than this value</pre>
+                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">42<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">        death_position &lt;- match("Death", split_df[1:i - 1, "EVNTDESC"][[1]])</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">42<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">        split_df$AVAL[i] &lt;- split_df$AVAL[death_position]</pre>
+                      <pre class="language-r">#' adpc &lt;- radpc(adsl, seed = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">48<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">      } else if (i == 2) {</pre>
+                      <pre class="language-r">#' adpc</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">24<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">        split_df$AVAL[i] &lt;- stats::runif(1, 100, 200)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">24<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">      } else if (i == 3) {</pre>
+                      <pre class="language-r">#' adpc &lt;- radpc(adsl, seed = 2, duration = 3)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">15<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">        split_df$AVAL[i] &lt;- stats::runif(1, 200, 300)</pre>
+                      <pre class="language-r">#' adpc</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">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (i == 4) {</pre>
+                      <pre class="language-r">radpc &lt;- function(adsl,</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">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        split_df$AVAL[i] &lt;- stats::runif(1, 300, 500)</pre>
+                      <pre class="language-r">                  avalu = "ug/mL",</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">      }</pre>
+                      <pre class="language-r">                  constants = c(D = 100, ka = 0.8, ke = 1),</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">    }</pre>
+                      <pre class="language-r">                  duration = 2,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">30<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">    split_df</pre>
+                      <pre class="language-r">                  seed = NULL,</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">  })</pre>
+                      <pre class="language-r">                  na_percentage = 0,</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">                  na_vars = list(</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">  # Add CNSDTDSC column</pre>
+                      <pre class="language-r">                    AVAL = c(NA, 0.1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">3<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">  adtte_lst &lt;- lapply(adtte_lst, function(split_df) {</pre>
+                      <pre class="language-r">                  ),</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">    # First create an empty CNSDTDSC variable to populate</pre>
+                      <pre class="language-r">                  cached = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">38</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    split_df$CNSDTDSC &lt;- NA</pre>
+                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">39</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for (i in 1:nrow(split_df)) { # nolint</pre>
+                      <pre class="language-r">  if (cached) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="num">40</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (split_df$CNSR[i] == 1 &amp; split_df$EVNTDESC[i] == "Last Tumor Assessment") {</pre>
+                      <pre class="language-r">    return(get_cached_data("cadpc"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">27<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">        split_df$CNSDTDSC[i] &lt;- "Completion or Discontinuation"</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">93<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">      } else if (split_df$CNSR[i] == 1 &amp; split_df$EVNTDESC[i] == "Adverse Event") {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">3<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">        split_df$CNSDTDSC[i] &lt;- "Preferred Term"</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">90<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">      } else if (split_df$CNSR[i] == 1 &amp; split_df$EVNTDESC[i] == "Alive") {</pre>
+                      <pre class="language-r">  checkmate::assert_character(avalu, len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        split_df$CNSDTDSC[i] &lt;- "Alive During Study"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                    <td class="num">45</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">  checkmate::assert_subset(names(constants), c("D", "ka", "ke"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">81<em>x</em></td>
+                    <td class="num">46</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        split_df$CNSDTDSC[i] &lt;- ""</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(x = duration, max.len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">47</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_number(seed, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</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">    }</pre>
+                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">49</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    split_df</pre>
+                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">199</td>
-                    <td class="coverage"></td>
+                  <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">  })</pre>
+                      <pre class="language-r">  checkmate::assert_list(na_vars)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</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">201</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  # Take the split df and combine them back together</pre>
-                    </td>
-                  </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">52</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adtte &lt;- do.call("rbind", adtte_lst)</pre>
+                      <pre class="language-r">  if (!is.null(seed)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">3<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">  rownames(adtte) &lt;- NULL</pre>
+                      <pre class="language-r">    set.seed(seed)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</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">205</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  adtte &lt;- var_relabel(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    adtte,</pre>
+                      <pre class="language-r">  }</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">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
+                      <pre class="language-r"></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">    USUBJID = "Unique Subject Identifier"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">209</td>
-                    <td class="coverage"></td>
+                    <td class="num">56</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  radpc_core &lt;- function(day) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">210</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    adpc_day &lt;- tidyr::expand_grid(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">211</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # merge ADSL to be able to add TTE date and study day variables</pre>
+                      <pre class="language-r">      data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">59</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adtte &lt;- dplyr::inner_join(</pre>
+                      <pre class="language-r">        STUDYID = adsl$STUDYID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">60</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(adtte, -"SITEID", -"ARM"),</pre>
+                      <pre class="language-r">        USUBJID = adsl$USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">61</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl,</pre>
+                      <pre class="language-r">        ARMCD = adsl$ARMCD,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">3<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">    by = c("STUDYID", "USUBJID")</pre>
+                      <pre class="language-r">        A0 = unname(constants["D"]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">216</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
+                      <pre class="language-r">        ka = unname(constants["ka"]) - stats::runif(length(adsl$USUBJID), -0.2, 0.2),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">64</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::rowwise() %&gt;%</pre>
+                      <pre class="language-r">        ke = unname(constants["ke"]) - stats::runif(length(adsl$USUBJID), -0.2, 0.2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">3<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">    dplyr::mutate(TRTENDT = lubridate::date(dplyr::case_when(</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">66</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is.na(TRTEDTM) ~ lubridate::floor_date(lubridate::date(TRTSDTM) + study_duration_secs, unit = "day"),</pre>
+                      <pre class="language-r">      PCTPTNUM = if (day == 1) c(0, 0.5, 1, 1.5, 2, 3, 4, 8, 12) else 24 * (day - 1),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">67</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ TRTEDTM</pre>
+                      <pre class="language-r">      PARAM = factor(c("Plasma Drug X", "Urine Drug X", "Plasma Drug Y", "Urine Drug Y"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">68</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">222</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">69</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ADTM = sample(</pre>
+                      <pre class="language-r">    adpc_day &lt;- adpc_day[!(grepl("Urine", adpc_day$PARAM) &amp; adpc_day$PCTPTNUM %in% c(0.5, 1, 1.5, 2, 3)), ] %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">70</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      seq(lubridate::as_datetime(TRTSDTM), lubridate::as_datetime(TRTENDT), by = "day"),</pre>
+                      <pre class="language-r">      dplyr::arrange(USUBJID, PARAM) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">71</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size = 1</pre>
+                      <pre class="language-r">      dplyr::mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">225</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) %&gt;%</pre>
+                      <pre class="language-r">        VISITDY = day,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">73</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ADY = ceiling(difftime(ADTM, TRTSDTM, units = "days"))) %&gt;%</pre>
+                      <pre class="language-r">        VISIT = ifelse(day &lt;= 7, paste("Day", VISITDY), paste("Week", (VISITDY - 1) / 7)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(-TRTENDT) %&gt;%</pre>
+                      <pre class="language-r">        PCVOLU = ifelse(grepl("Urine", PARAM), "mL", ""),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">75</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">        ASMED = ifelse(grepl("Urine", PARAM), "URINE", "PLASMA"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">76</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(STUDYID, USUBJID, ADTM)</pre>
+                      <pre class="language-r">        PCTPT = factor(dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">230</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"></pre>
+                      <pre class="language-r">          PCTPTNUM == 0 ~ "Predose",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">78</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adtte &lt;- adtte %&gt;%</pre>
+                      <pre class="language-r">          (day == 1 &amp; grepl("Urine", PARAM)) ~</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">79</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">            paste0(lag(PCTPTNUM), "H - ", PCTPTNUM, "H"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">80</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(TTESEQ = seq_len(dplyr::n())) %&gt;%</pre>
+                      <pre class="language-r">          (day != 1 &amp; grepl("Urine", PARAM)) ~</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">81</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ASEQ = TTESEQ) %&gt;%</pre>
+                      <pre class="language-r">            paste0(as.numeric(PCTPTNUM) - 24, "H - ", PCTPTNUM, "H"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">82</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(PARAM = as.factor(PARAM)) %&gt;%</pre>
+                      <pre class="language-r">          TRUE ~ paste0(PCTPTNUM, "H")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">3<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">    dplyr::mutate(PARAMCD = as.factor(PARAMCD)) %&gt;%</pre>
+                      <pre class="language-r">        )),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">84</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">        ARELTM1 = PCTPTNUM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">85</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(</pre>
+                      <pre class="language-r">        NRELTM1 = PCTPTNUM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">86</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID,</pre>
+                      <pre class="language-r">        ARELTM2 = ARELTM1 - (24 * (day - 1)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">87</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID,</pre>
+                      <pre class="language-r">        NRELTM2 = NRELTM1 - (24 * (day - 1)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">88</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD,</pre>
+                      <pre class="language-r">        A0 = ifelse(PARAM == "Plasma Drug Y", A0, A0 / 2),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">89</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ADTM,</pre>
+                      <pre class="language-r">        AVAL = round(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">90</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TTESEQ</pre>
+                      <pre class="language-r">          (A0 * ka * (</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">244</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">            exp(-ka * ARELTM1) - exp(-ke * ARELTM1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</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="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">93</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mod_before_adtte &lt;- adtte</pre>
+                      <pre class="language-r">          / (ke - ka),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">247</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">94</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          digits = 3</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">  # adding adverse event counts and log follow-up time</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">3<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">  adtte &lt;- dplyr::bind_rows(</pre>
+                      <pre class="language-r">      ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">97</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adtte,</pre>
+                      <pre class="language-r">      dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">98</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">        PCVOL = ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">99</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      adtte %&gt;%</pre>
+                      <pre class="language-r">          ASMED == "URINE",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">100</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">          round(abs(((PCTPTNUM - 1) %% 24) * A0 * ka * exp(PCTPTNUM %% 1.8 / 10)), 2),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">101</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::slice_head(n = 1) %&gt;%</pre>
+                      <pre class="language-r">          NA</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">3<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">        dplyr::mutate(</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">3<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">          PARAMCD = "TNE",</pre>
+                      <pre class="language-r">        # PK Equation</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">3<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">          PARAM = "Total Number of Exacerbations",</pre>
+                      <pre class="language-r">        AVALC = ifelse(AVAL == 0, "BLQ", as.character(AVAL)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">105</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          AVAL = stats::rpois(1, 3),</pre>
+                      <pre class="language-r">        AVALU = avalu,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          AVALU = "COUNT",</pre>
+                      <pre class="language-r">        RELTMU = "hr"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">260</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">          lgTMATRSK = log(stats::rexp(1, rate = 3)),</pre>
+                      <pre class="language-r">      ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">108</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dplyr::across(</pre>
+                      <pre class="language-r">      dplyr::select(-c("A0", "ka", "ke"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">3<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">            c("ASEQ", "TTESEQ", "ADY", "ADTM", "EVNTDESC"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">110</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ~NA</pre>
+                      <pre class="language-r">    return(adpc_day)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</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">265</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">266</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  adpc &lt;- list()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(</pre>
+                      <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="num">115</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID,</pre>
+                      <pre class="language-r">  for (day in seq(duration)[seq(duration) &lt;= 7 | ((seq(duration) - 1) %% 7 == 0)]) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">116</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID,</pre>
+                      <pre class="language-r">    adpc[[day]] &lt;- radpc_core(day = day)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">3<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">      PARAMCD,</pre>
+                      <pre class="language-r">  }</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">118</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ADTM,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">3<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">      TTESEQ</pre>
+                      <pre class="language-r">  adpc &lt;- do.call(rbind, adpc)</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>
+                      <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">121</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  adpc &lt;- dplyr::inner_join(adpc, adsl, by = c("STUDYID", "USUBJID", "ARMCD")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">3<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">  mod_after_adtte &lt;- adtte</pre>
+                      <pre class="language-r">    dplyr::filter(ACTARM != "B: Placebo", !(ACTARM == "A: Drug X" &amp; PARAM == "Plasma Drug Y"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <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">278</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">124</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">279</td>
+                    <td class="num">125</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adtte &lt;- mutate_na(ds = adtte, na_vars = na_vars, na_percentage = na_percentage)</pre>
+                      <pre class="language-r">    adpc &lt;- mutate_na(ds = adpc, na_vars = na_vars, na_percentage = na_percentage)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">126</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">127</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">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  adpc &lt;- adpc %&gt;%</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    rename(</pre>
+                    </td>
+                  </tr>
+                  <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">      AVALCAT1 = AVALC,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      NFRLT = NRELTM1,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      AFRLT = ARELTM1,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      NRRLT = NRELTM2,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ARRLT = ARELTM2</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # apply metadata</pre>
+                      <pre class="language-r">    ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">3<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">  adtte &lt;- apply_metadata(adtte, "metadata/ADTTE.yml")</pre>
+                      <pre class="language-r">    mutate(ANL02FL = "Y")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">137</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">3<em>x</em></td>
+                    <td class="num">138</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(adtte)</pre>
+                      <pre class="language-r">  adpc &lt;- apply_metadata(adpc, "metadata/ADPC.yml")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -35621,14 +35571,14 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/radsl.R" class="hidden">
+            <div id="R/radqs.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">#' Subject-Level Analysis Dataset (ADSL)</pre>
+                      <pre class="language-r">#' Questionnaires Analysis Dataset (ADQS)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -35656,42 +35606,42 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The Subject-Level Analysis Dataset (ADSL) is used to provide the variables</pre>
+                      <pre class="language-r">#' Function for generating a random Questionnaires Analysis Dataset for a given</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' that describe attributes of a subject. ADSL is a source for subject-level</pre>
+                      <pre class="language-r">#' Subject-Level Analysis Dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variables used in other analysis data sets, such as population flags and</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">#' treatment variables. There is only one ADSL per study. ADSL and its related</pre>
+                      <pre class="language-r">#' @details One record per subject per parameter per analysis visit per analysis date.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' metadata are required in a CDISC-based submission of data from a clinical</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">#' trial even if no other analysis data sets are submitted.</pre>
+                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `PARAMCD`, `AVISITN`</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -35705,21 +35655,21 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details One record per subject.</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">#' @template param_cached</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`</pre>
+                      <pre class="language-r">#' @templateVar data adqs</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -35733,380 +35683,380 @@ <h2>random.cdisc.data coverage - 98.86%</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">#' @return `data.frame`</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 N (`numeric`)\cr Number of patients.</pre>
+                      <pre class="language-r">#' @export</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 study_duration (`numeric`)\cr Duration of study in years.</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 with_trt02 (`logical`)\cr Should period 2 be added.</pre>
+                      <pre class="language-r">#' @author npaszty</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 ae_withdrawal_prob (`proportion`)\cr Probability that there is at least one</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">#' Adverse Event leading to the withdrawal of a study drug.</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">#' @template param_cached</pre>
+                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @templateVar data adsl</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">#' adqs &lt;- radqs(adsl, visit_format = "WEEK", n_assessments = 7L, seed = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `data.frame`</pre>
+                      <pre class="language-r">#' adqs</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</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">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#</pre>
+                      <pre class="language-r">#' adqs &lt;- radqs(adsl, visit_format = "CYCLE", n_assessments = 3L, seed = 2)</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>
+                      <pre class="language-r">#' adqs</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, study_duration = 2, seed = 1)</pre>
+                      <pre class="language-r">radqs &lt;- function(adsl,</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</pre>
+                      <pre class="language-r">                  param = c(</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">                    "BFI All Questions",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- radsl(</pre>
+                      <pre class="language-r">                    "Fatigue Interference",</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 = 10, seed = 1,</pre>
+                      <pre class="language-r">                    "Function/Well-Being (GF1,GF3,GF7)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   na_percentage = 0.1,</pre>
+                      <pre class="language-r">                    "Treatment Side Effects (GP2,C5,GP5)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   na_vars = list(</pre>
+                      <pre class="language-r">                    "FKSI-19 All Questions"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     DTHDT = c(seed = 1234, percentage = 0.1),</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">#'     LSTALVDT = c(seed = 1234, percentage = 0.1)</pre>
+                      <pre class="language-r">                  paramcd = c("BFIALL", "FATIGI", "FKSI-FWB", "FKSI-TSE", "FKSIALL"),</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">                  visit_format = "WEEK",</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">                  n_assessments = 5L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl</pre>
+                      <pre class="language-r">                  n_days = 5L,</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">                  seed = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, na_percentage = .1)</pre>
+                      <pre class="language-r">                  na_percentage = 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl</pre>
+                      <pre class="language-r">                  na_vars = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">radsl &lt;- function(N = 400, # nolint</pre>
+                      <pre class="language-r">                    LOQFL = c(NA, 0.1), ABLFL2 = c(1234, 0.1), ABLFL = c(1235, 0.1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  study_duration = 2,</pre>
+                      <pre class="language-r">                    CHG2 = c(1235, 0.1), PCHG2 = c(1235, 0.1), CHG = c(1234, 0.1), PCHG = c(1234, 0.1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  seed = NULL,</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">                  with_trt02 = TRUE,</pre>
+                      <pre class="language-r">                  cached = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">48</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  na_percentage = 0,</pre>
+                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">49</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  na_vars = list(</pre>
+                      <pre class="language-r">  if (cached) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">50</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "AGE" = NA, "SEX" = NA, "RACE" = NA, "STRATA1" = NA, "STRATA2" = NA,</pre>
+                      <pre class="language-r">    return(get_cached_data("cadqs"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "BMRKR1" = c(seed = 1234, percentage = 0.1), "BMRKR2" = c(1234, 0.1), "BEP01FL" = NA</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"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">53</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ae_withdrawal_prob = 0.05,</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">54</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  cached = FALSE) {</pre>
+                      <pre class="language-r">  checkmate::assert_character(param, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">55</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
+                      <pre class="language-r">  checkmate::assert_character(paramcd, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">56</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (cached) {</pre>
+                      <pre class="language-r">  checkmate::assert_string(visit_format)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">57</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">    return(get_cached_data("cadsl"))</pre>
+                      <pre class="language-r">  checkmate::assert_integer(n_assessments, len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">58</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_integer(n_days, len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">59</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_number(seed, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">60</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(N)</pre>
+                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
+                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">62</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1, na.ok = TRUE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">63</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(study_duration, lower = 1)</pre>
+                      <pre class="language-r">  # validate and initialize param vectors</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage">26<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
+                      <pre class="language-r">  param_init_list &lt;- relvar_init(param, paramcd)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">66</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  if (!is.null(seed)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">26<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">    set.seed(seed)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">68</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">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
                     <td class="num">70</td>
                     <td class="coverage"></td>
@@ -36116,380 +36066,380 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                   </tr>
                   <tr class="covered">
                     <td class="num">71</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(lubridate::years(study_duration))</pre>
+                      <pre class="language-r">  adqs &lt;- expand.grid(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sys_dtm &lt;- lubridate::fast_strptime("20/2/2019 11:16:16.683", "%d/%m/%Y %H:%M:%OS")</pre>
+                      <pre class="language-r">    STUDYID = unique(adsl$STUDYID),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">73</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  discons &lt;- max(1, floor((N * .3)))</pre>
+                      <pre class="language-r">    USUBJID = adsl$USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  country_site_prob &lt;- c(.5, .121, .077, .077, .075, .052, .046, .025, .014, .003)</pre>
+                      <pre class="language-r">    PARAM = param_init_list$relvar1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">75</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">    AVISIT = visit_schedule(visit_format = visit_format, n_assessments = n_assessments, n_days = n_days),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adsl &lt;- tibble::tibble(</pre>
+                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">77</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID = rep("AB12345", N),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">78</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    COUNTRY = sample_fct(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">79</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      c("CHN", "USA", "BRA", "PAK", "NGA", "RUS", "JPN", "GBR", "CAN", "CHE"),</pre>
+                      <pre class="language-r">  adqs &lt;- dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      N,</pre>
+                      <pre class="language-r">    adqs,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">81</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      prob = country_site_prob</pre>
+                      <pre class="language-r">    AVISITN = dplyr::case_when(</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">    ),</pre>
+                      <pre class="language-r">      AVISIT == "SCREENING" ~ -1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">83</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    SITEID = sample_fct(1:20, N, prob = rep(country_site_prob, times = 2)),</pre>
+                      <pre class="language-r">      AVISIT == "BASELINE" ~ 0,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">84</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    SUBJID = paste("id", seq_len(N), sep = "-"),</pre>
+                      <pre class="language-r">      (grepl("^WEEK", AVISIT) | grepl("^CYCLE", AVISIT)) ~ as.numeric(AVISIT) - 2,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">85</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AGE = sapply(stats::rchisq(N, df = 5, ncp = 10), max, 0) + 20,</pre>
+                      <pre class="language-r">      TRUE ~ NA_real_</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">86</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AGEU = "YEARS",</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">87</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    SEX = c("F", "M") %&gt;% sample_fct(N, prob = c(.52, .48)),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">88</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ARMCD = c("ARM A", "ARM B", "ARM C") %&gt;% sample_fct(N),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">89</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    RACE = c(</pre>
+                      <pre class="language-r">  # assign related variable values: PARAMxPARAMCD are related</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">90</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ASIAN", "BLACK OR AFRICAN AMERICAN", "WHITE", "AMERICAN INDIAN OR ALASKA NATIVE",</pre>
+                      <pre class="language-r">  adqs &lt;- adqs %&gt;% rel_var(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">91</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "MULTIPLE", "NATIVE HAWAIIAN OR OTHER PACIFIC ISLANDER", "OTHER", "UNKNOWN"</pre>
+                      <pre class="language-r">    var_name = "PARAMCD",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">92</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) %&gt;%</pre>
+                      <pre class="language-r">    related_var = "PARAM",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">93</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sample_fct(N, prob = c(.55, .23, .16, .05, .004, .003, .002, .002)),</pre>
+                      <pre class="language-r">    var_values = param_init_list$relvar2</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">94</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    TRTSDTM = sys_dtm + sample(seq(0, study_duration_secs), size = N, replace = TRUE),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">95</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    RANDDT = lubridate::date(TRTSDTM - lubridate::days(floor(stats::runif(N, min = 0, max = 5)))),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">96</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    TRTEDTM = TRTSDTM + study_duration_secs,</pre>
+                      <pre class="language-r">  adqs$AVAL &lt;- stats::rnorm(nrow(adqs), mean = 50, sd = 8) + adqs$AVISITN * stats::rnorm(nrow(adqs), mean = 5, sd = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">97</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STRATA1 = c("A", "B", "C") %&gt;% sample_fct(N),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">98</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STRATA2 = c("S1", "S2") %&gt;% sample_fct(N),</pre>
+                      <pre class="language-r">  # order to prepare for change from screening and baseline values</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">99</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    BMRKR1 = stats::rchisq(N, 6),</pre>
+                      <pre class="language-r">  adqs &lt;- adqs[order(adqs$STUDYID, adqs$USUBJID, adqs$PARAMCD, adqs$AVISITN), ]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">100</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    BMRKR2 = sample_fct(c("LOW", "MEDIUM", "HIGH"), N),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">101</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    BMEASIFL = sample_fct(c("Y", "N"), N),</pre>
+                      <pre class="language-r">  adqs &lt;- Reduce(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">102</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    BEP01FL = sample_fct(c("Y", "N"), N),</pre>
+                      <pre class="language-r">    rbind,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">103</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AEWITHFL = sample_fct(c("Y", "N"), N, prob = c(ae_withdrawal_prob, 1 - ae_withdrawal_prob))</pre>
+                      <pre class="language-r">    lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">104</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
+                      <pre class="language-r">      split(adqs, adqs$USUBJID),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">105</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ARM = dplyr::recode(</pre>
+                      <pre class="language-r">      function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">106</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ARMCD,</pre>
+                      <pre class="language-r">        x$STUDYID &lt;- adsl$STUDYID[which(adsl$USUBJID == x$USUBJID[1])]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">107</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ARM A" = "A: Drug X", "ARM B" = "B: Placebo", "ARM C" = "C: Combination"</pre>
+                      <pre class="language-r">        x$ABLFL2 &lt;- ifelse(x$AVISIT == "SCREENING", "Y", "")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">108</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) %&gt;%</pre>
+                      <pre class="language-r">        x$ABLFL &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">109</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ACTARM = ARM) %&gt;%</pre>
+                      <pre class="language-r">          toupper(visit_format) == "WEEK" &amp; x$AVISIT == "BASELINE",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">110</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ACTARMCD = ARMCD) %&gt;%</pre>
+                      <pre class="language-r">          "Y",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">111</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(TRT01P = ARM) %&gt;%</pre>
+                      <pre class="language-r">          ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">112</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(TRT01A = ACTARM) %&gt;%</pre>
+                      <pre class="language-r">            toupper(visit_format) == "CYCLE" &amp; x$AVISIT == "CYCLE 1 DAY 1",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">113</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ITTFL = factor("Y")) %&gt;%</pre>
+                      <pre class="language-r">            "Y",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">114</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(SAFFL = factor("Y")) %&gt;%</pre>
+                      <pre class="language-r">            ""</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">115</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(TRTSDTM)</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="covered">
                     <td class="num">117</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adds &lt;- adsl[sample(nrow(adsl), discons), ] %&gt;%</pre>
+                      <pre class="language-r">        x$LOQFL &lt;- ifelse(x$AVAL &lt; 32, "Y", "N")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">118</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(TRTEDTM_discon = sample(</pre>
+                      <pre class="language-r">        x</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">119</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      seq(from = max(TRTSDTM), to = sys_dtm + study_duration_secs, by = 1),</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">120</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size = discons,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">121</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      replace = TRUE</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">    )) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">123</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(SUBJID, TRTSDTM, TRTEDTM_discon) %&gt;%</pre>
+                      <pre class="language-r">  adqs$BASE2 &lt;- retain(adqs, adqs$AVAL, adqs$ABLFL2 == "Y")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">124</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(TRTSDTM)</pre>
+                      <pre class="language-r">  adqs$BASE &lt;- ifelse(adqs$ABLFL2 != "Y", retain(adqs, adqs$AVAL, adqs$ABLFL == "Y"), NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -36501,3448 +36451,3512 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                   </tr>
                   <tr class="covered">
                     <td class="num">126</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adsl &lt;- dplyr::left_join(adsl, adds, by = c("SUBJID", "TRTSDTM")) %&gt;%</pre>
+                      <pre class="language-r">  adqs &lt;- adqs %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">127</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(TRTEDTM = dplyr::case_when(</pre>
+                      <pre class="language-r">    dplyr::mutate(CHG2 = AVAL - BASE2) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">128</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      !is.na(TRTEDTM_discon) ~ TRTEDTM_discon,</pre>
+                      <pre class="language-r">    dplyr::mutate(PCHG2 = 100 * (CHG2 / BASE2)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">129</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRTSDTM &gt;= quantile(TRTSDTM)[2] &amp; TRTSDTM &lt;= quantile(TRTSDTM)[3] ~ lubridate::as_datetime(NA),</pre>
+                      <pre class="language-r">    dplyr::mutate(CHG = AVAL - BASE) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">130</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ TRTEDTM</pre>
+                      <pre class="language-r">    dplyr::mutate(PCHG = 100 * (CHG / BASE)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">131</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) %&gt;%</pre>
+                      <pre class="language-r">    rcd_var_relabel(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">132</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(-"TRTEDTM_discon")</pre>
+                      <pre class="language-r">      STUDYID = attr(adsl$STUDYID, "label"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">133</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">      USUBJID = attr(adsl$USUBJID, "label")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # add period 2 if needed</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">135</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (with_trt02) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">136</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    with_trt02 &lt;- lubridate::seconds(lubridate::years(1))</pre>
+                      <pre class="language-r">  adqs &lt;- rcd_var_relabel(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">137</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl &lt;- adsl %&gt;%</pre>
+                      <pre class="language-r">    adqs,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">138</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::mutate(TRT02P = sample(ARM)) %&gt;%</pre>
+                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">139</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::mutate(TRT02A = sample(ACTARM)) %&gt;%</pre>
+                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">140</td>
-                    <td class="coverage">26<em>x</em></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">
+                  <tr class="never">
                     <td class="num">141</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        TRT01SDTM = TRTSDTM,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">142</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        AP01SDTM = TRT01SDTM,</pre>
+                      <pre class="language-r">  # merge ADSL to be able to add QS date and study day variables</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">143</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        TRT01EDTM = TRTEDTM,</pre>
+                      <pre class="language-r">  adqs &lt;- dplyr::inner_join(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">144</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        AP01EDTM = TRT01EDTM,</pre>
+                      <pre class="language-r">    adqs,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">145</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        TRT02SDTM = TRTEDTM,</pre>
+                      <pre class="language-r">    adsl,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">146</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        AP02SDTM = TRT02SDTM,</pre>
+                      <pre class="language-r">    by = c("STUDYID", "USUBJID")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">147</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        TRT02EDTM = TRT01EDTM + with_trt02,</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">148</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        AP02EDTM = TRT02EDTM,</pre>
+                      <pre class="language-r">    dplyr::rowwise() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">149</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        TRTEDTM = TRT02EDTM</pre>
+                      <pre class="language-r">    dplyr::mutate(TRTENDT = lubridate::date(dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">150</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">      is.na(TRTEDTM) ~ lubridate::floor_date(lubridate::date(TRTSDTM) + study_duration_secs, unit = "day"),</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">  }</pre>
+                      <pre class="language-r">      TRUE ~ TRTEDTM</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">    ))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">153</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adsl &lt;- adsl %&gt;%</pre>
+                      <pre class="language-r">    ungroup()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">154</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(EOSDT = lubridate::date(TRTEDTM)) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">155</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(EOSDY = ceiling(difftime(TRTEDTM, TRTSDTM))) %&gt;%</pre>
+                      <pre class="language-r">  adqs &lt;- adqs %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">156</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(EOSSTT = dplyr::case_when(</pre>
+                      <pre class="language-r">    group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">157</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      EOSDY == max(EOSDY, na.rm = TRUE) ~ "COMPLETED",</pre>
+                      <pre class="language-r">    arrange(USUBJID, AVISITN) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">158</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      EOSDY &lt; max(EOSDY, na.rm = TRUE) ~ "DISCONTINUED",</pre>
+                      <pre class="language-r">    dplyr::mutate(ADTM = rep(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">159</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is.na(TRTEDTM) ~ "ONGOING"</pre>
+                      <pre class="language-r">      sort(sample(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">160</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) %&gt;%</pre>
+                      <pre class="language-r">        seq(lubridate::as_datetime(TRTSDTM[1]), lubridate::as_datetime(TRTENDT[1]), by = "day"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">161</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(EOTSTT = EOSSTT)</pre>
+                      <pre class="language-r">        size = nlevels(AVISIT)</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">
+                  <tr class="covered">
                     <td class="num">163</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # disposition related variables</pre>
+                      <pre class="language-r">      each = n() / nlevels(AVISIT)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # using probability of 1 for the "DEATH" level to ensure at least one death record exists</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">165</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  l_dcsreas &lt;- list(</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">166</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    choices = c(</pre>
+                      <pre class="language-r">    dplyr::mutate(ADY = ceiling(difftime(ADTM, TRTSDTM, units = "days"))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">167</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ADVERSE EVENT", "DEATH", "LACK OF EFFICACY", "PHYSICIAN DECISION",</pre>
+                      <pre class="language-r">    dplyr::select(-TRTENDT) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">168</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "PROTOCOL VIOLATION", "WITHDRAWAL BY PARENT/GUARDIAN", "WITHDRAWAL BY SUBJECT"</pre>
+                      <pre class="language-r">    dplyr::arrange(STUDYID, USUBJID, ADTM)</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"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">170</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    prob = c(.2, 1, .1, .1, .2, .1, .1)</pre>
+                      <pre class="language-r">  adqs &lt;- adqs %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">171</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">    dplyr::group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">172</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  l_dthcat_other &lt;- list(</pre>
+                      <pre class="language-r">    dplyr::mutate(QSSEQ = seq_len(dplyr::n())) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">173</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    choices = c(</pre>
+                      <pre class="language-r">    dplyr::mutate(ASEQ = QSSEQ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">174</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Post-study reporting of death", "LOST TO FOLLOW UP", "MISSING", "SUICIDE", "UNKNOWN"</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">175</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">    dplyr::arrange(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">176</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    prob = c(.1, .3, .3, .2, .1)</pre>
+                      <pre class="language-r">      STUDYID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">177</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">      USUBJID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">178</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">      PARAMCD,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">179</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adsl &lt;- adsl %&gt;%</pre>
+                      <pre class="language-r">      AVISITN,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">180</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(</pre>
+                      <pre class="language-r">      ADTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">181</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      DCSREAS = ifelse(</pre>
+                      <pre class="language-r">      QSSEQ</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">182</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        EOSSTT == "DISCONTINUED",</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">183</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sample(x = l_dcsreas$choices, size = N, replace = TRUE, prob = l_dcsreas$prob),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">184</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        as.character(NA)</pre>
+                      <pre class="language-r">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">185</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    adqs &lt;- mutate_na(ds = adqs, na_vars = na_vars, na_percentage = na_percentage)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">186</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">
+                  <tr class="never">
                     <td class="num">187</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(DTHFL = dplyr::case_when(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">188</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      DCSREAS == "DEATH" ~ "Y",</pre>
+                      <pre class="language-r">  # apply metadata</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">189</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ "N"</pre>
+                      <pre class="language-r">  adqs &lt;- apply_metadata(adqs, "metadata/ADQS.yml")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">190</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">191</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(</pre>
+                      <pre class="language-r">  return(adqs)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">192</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      DTHCAT = ifelse(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">26<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/radlb.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">        DCSREAS == "DEATH",</pre>
+                      <pre class="language-r">#' Laboratory Data Analysis Dataset (ADLB)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">26<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">        sample(x = c("ADVERSE EVENT", "PROGRESSIVE DISEASE", "OTHER"), size = N, replace = TRUE),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">26<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">        as.character(NA)</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</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">197</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) %&gt;%</pre>
+                      <pre class="language-r">#' Function for generating a random Laboratory Data Analysis Dataset for a given</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">26<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(DTHCAUS = dplyr::case_when(</pre>
+                      <pre class="language-r">#' Subject-Level Analysis Dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">26<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">      DTHCAT == "ADVERSE EVENT" ~ "ADVERSE EVENT",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">26<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">      DTHCAT == "PROGRESSIVE DISEASE" ~ "DISEASE PROGRESSION",</pre>
+                      <pre class="language-r">#' @details One record per subject per parameter per analysis visit per analysis date.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">26<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">      DTHCAT == "OTHER" ~ sample(x = l_dthcat_other$choices, size = N, replace = TRUE, prob = l_dthcat_other$prob),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">26<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">      TRUE ~ as.character(NA)</pre>
+                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `PARAMCD`, `BASETYPE`, `AVISITN`, `ATPTN`, `DTYPE`, `ADTM`, `LBSEQ`, `ASPID`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">11</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">204</td>
-                    <td class="coverage">26<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">    dplyr::mutate(ADTHAUT = dplyr::case_when(</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">26<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">      DTHCAUS %in% c("ADVERSE EVENT", "DISEASE PROGRESSION") ~ "Yes",</pre>
+                      <pre class="language-r">#' @param lbcat (`character vector`)\cr LB category values.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">26<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">      DTHCAUS %in% c("UNKNOWN", "SUICIDE", "Post-study reporting of death") ~ sample(</pre>
+                      <pre class="language-r">#' @param max_n_lbs (`integer`)\cr Maximum number of labs per patient. Defaults to 10.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">26<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">        x = c("Yes", "No"), size = N, replace = TRUE, prob = c(0.25, 0.75)</pre>
+                      <pre class="language-r">#' @template param_cached</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">#' @templateVar data adlb</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">26<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">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @return `data.frame`</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ as.character(NA)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">20</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">211</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # adding some random number of days post last treatment date so that death days from last trt admin</pre>
+                      <pre class="language-r">#' @author tomlinsj, npaszty, Xuefeng Hou</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # supports the LDDTHGR1 derivation below</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">26<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">    dplyr::mutate(DTHDT = dplyr::case_when(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">26<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">      DCSREAS == "DEATH" ~ lubridate::date(TRTEDTM + lubridate::days(sample(0:50, size = N, replace = TRUE))),</pre>
+                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">26<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">      TRUE ~ NA</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) %&gt;%</pre>
+                      <pre class="language-r">#' adlb &lt;- radlb(adsl, visit_format = "WEEK", n_assessments = 7L, seed = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">26<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">    dplyr::mutate(LDDTHELD = difftime(DTHDT, lubridate::date(TRTEDTM), units = "days")) %&gt;%</pre>
+                      <pre class="language-r">#' adlb</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">26<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">    dplyr::mutate(LDDTHGR1 = dplyr::case_when(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">26<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">      LDDTHELD &lt;= 30 ~ "&lt;=30",</pre>
+                      <pre class="language-r">#' adlb &lt;- radlb(adsl, visit_format = "CYCLE", n_assessments = 2L, seed = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">26<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">      LDDTHELD &gt; 30 ~ "&gt;30",</pre>
+                      <pre class="language-r">#' adlb</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">26<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">      TRUE ~ as.character(NA)</pre>
+                      <pre class="language-r">radlb &lt;- function(adsl,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</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">                  lbcat = c("CHEMISTRY", "CHEMISTRY", "IMMUNOLOGY"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">26<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">    dplyr::mutate(LSTALVDT = dplyr::case_when(</pre>
+                      <pre class="language-r">                  param = c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">26<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">      DCSREAS == "DEATH" ~ DTHDT,</pre>
+                      <pre class="language-r">                    "Alanine Aminotransferase Measurement",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">26<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">      TRUE ~ lubridate::date(TRTEDTM) + lubridate::days(floor(stats::runif(N, min = 10, max = 30)))</pre>
+                      <pre class="language-r">                    "C-Reactive Protein Measurement",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">                    "Immunoglobulin A Measurement"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</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">228</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # add random ETHNIC (Ethnicity)</pre>
+                      <pre class="language-r">                  paramcd = c("ALT", "CRP", "IGA"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">26<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">  adsl &lt;- adsl %&gt;%</pre>
+                      <pre class="language-r">                  paramu = c("U/L", "mg/L", "g/L"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">26<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">    dplyr::mutate(ETHNIC = sample(</pre>
+                      <pre class="language-r">                  aval_mean = c(18, 9, 2.9),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">26<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">      x = c("HISPANIC OR LATINO", "NOT HISPANIC OR LATINO", "NOT REPORTED", "UNKNOWN"),</pre>
+                      <pre class="language-r">                  visit_format = "WEEK",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">26<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">      size = N, replace = TRUE, prob = c(.1, .8, .06, .04)</pre>
+                      <pre class="language-r">                  n_assessments = 5L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">                  n_days = 5L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                  max_n_lbs = 10L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # associate DTHADY (Relative Day of Death) with Death date</pre>
+                      <pre class="language-r">                  lookup = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Date of Death [adsl.DTHDT] - date part of Date of First Exposure to Treatment [adsl.TRTSDTM]</pre>
+                      <pre class="language-r">                  seed = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                  na_percentage = 0,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">26<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">  adsl &lt;- adsl %&gt;%</pre>
+                      <pre class="language-r">                  na_vars = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">26<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">    dplyr::mutate(DTHADY = difftime(DTHDT, TRTSDTM, units = "days"))</pre>
+                      <pre class="language-r">                    LOQFL = c(NA, 0.1), ABLFL2 = c(1234, 0.1), ABLFL = c(1235, 0.1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                    BASE2 = c(NA, 0.1), BASE = c(NA, 0.1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                    CHG2 = c(1235, 0.1), PCHG2 = c(1235, 0.1), CHG = c(1234, 0.1), PCHG = c(1234, 0.1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # associate sites with countries and regions</pre>
+                      <pre class="language-r">                  ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">26<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">  adsl &lt;- adsl %&gt;%</pre>
+                      <pre class="language-r">                  cached = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">54</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(SITEID = paste0(COUNTRY, "-", SITEID)) %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">55</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(REGION1 = dplyr::case_when(</pre>
+                      <pre class="language-r">  if (cached) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">56</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      COUNTRY %in% c("NGA") ~ "Africa",</pre>
+                      <pre class="language-r">    return(get_cached_data("cadlb"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">26<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">      COUNTRY %in% c("CHN", "JPN", "PAK") ~ "Asia",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">26<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">      COUNTRY %in% c("RUS") ~ "Eurasia",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">59</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      COUNTRY %in% c("GBR") ~ "Europe",</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">26<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">      COUNTRY %in% c("CAN", "USA") ~ "North America",</pre>
+                      <pre class="language-r">  checkmate::assert_character(param, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">61</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      COUNTRY %in% c("BRA") ~ "South America",</pre>
+                      <pre class="language-r">  checkmate::assert_character(paramcd, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">62</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ as.character(NA)</pre>
+                      <pre class="language-r">  checkmate::assert_character(paramu, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">253</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_character(lbcat, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">64</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(INVID = paste("INV ID", SITEID)) %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_string(visit_format)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">65</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(INVNAM = paste("Dr.", SITEID, "Doe")) %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_integer(n_assessments, len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">66</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(USUBJID = paste(STUDYID, SITEID, SUBJID, sep = "-"))</pre>
+                      <pre class="language-r">  checkmate::assert_integer(n_days, len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">257</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">67</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_integer(max_n_lbs, len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">258</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">68</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_data_frame(lookup, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">26<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">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
+                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">260</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl &lt;- mutate_na(ds = adsl, na_vars = na_vars, na_percentage = na_percentage)</pre>
+                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">261</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">71</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_true(na_percentage &lt; 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">72</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">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # apply metadata</pre>
+                      <pre class="language-r">  # validate and initialize related variables</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">26<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  adsl &lt;- apply_metadata(adsl, "metadata/ADSL.yml", FALSE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">265</td>
-                    <td class="coverage"></td>
+                    <td class="num">74</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  lbcat_init_list &lt;- relvar_init(param, lbcat)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">75</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(adsl, "study_duration_secs") &lt;- as.numeric(study_duration_secs)</pre>
+                      <pre class="language-r">  param_init_list &lt;- relvar_init(param, paramcd)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">76</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(adsl)</pre>
+                      <pre class="language-r">  unit_init_list &lt;- relvar_init(param, paramu)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</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/radrs.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">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Tumor Response Analysis Dataset (ADRS)</pre>
+                      <pre class="language-r">  if (!is.null(seed)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <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">#'</pre>
+                      <pre class="language-r">    set.seed(seed)</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">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</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">#' Function for generating a random Tumor Response Analysis Dataset for a given</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">83</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Subject-Level Analysis Dataset.</pre>
+                      <pre class="language-r">  adlb &lt;- expand.grid(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    STUDYID = unique(adsl$STUDYID),</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">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">    USUBJID = adsl$USUBJID,</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">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' One record per subject per parameter per analysis visit per analysis date.</pre>
+                      <pre class="language-r">    PARAM = as.factor(param_init_list$relvar1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</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">#' SDTM variables are populated on new records coming from other single records.</pre>
+                      <pre class="language-r">    AVISIT = visit_schedule(visit_format = visit_format, n_assessments = n_assessments, n_days = n_days),</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">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Otherwise, SDTM variables are left blank.</pre>
+                      <pre class="language-r">    stringsAsFactors = FALSE</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">#'</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">#' Keys: `STUDYID`, `USUBJID`, `PARAMCD`, `AVISITN`, `ADT`, `RSSEQ`</pre>
+                      <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">#'</pre>
+                      <pre class="language-r">  # assign AVAL based on different tests</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</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">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">  adlb &lt;- adlb %&gt;% mutate(AVAL = case_when(</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">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param avalc (`character vector`)\cr Analysis value categories.</pre>
+                      <pre class="language-r">    PARAM == param[1] ~ abs(stats::rnorm(nrow(adlb), mean = aval_mean[1], sd = 10)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</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">#' @template param_cached</pre>
+                      <pre class="language-r">    PARAM == param[2] ~ abs(stats::rnorm(nrow(adlb), mean = aval_mean[2], sd = 1)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">95</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @templateVar data adrs</pre>
+                      <pre class="language-r">    PARAM == param[3] ~ abs(stats::rnorm(nrow(adlb), mean = aval_mean[3], sd = 0.1))</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">#'</pre>
+                      <pre class="language-r">  ))</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">#' @return `data.frame`</pre>
+                      <pre class="language-r"></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">#' @export</pre>
+                      <pre class="language-r">  # assign related variable values: PARAMxLBCAT are related</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</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">  adlb &lt;- adlb %&gt;% rel_var(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</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">#' @examples</pre>
+                      <pre class="language-r">    var_name = "LBCAT",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</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">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</pre>
+                      <pre class="language-r">    related_var = "PARAM",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</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">    var_values = lbcat_init_list$relvar2</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">#' adrs &lt;- radrs(adsl, seed = 2)</pre>
+                      <pre class="language-r">  )</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">#' adrs</pre>
+                      <pre class="language-r"></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">radrs &lt;- function(adsl,</pre>
+                      <pre class="language-r">  # assign related variable values: PARAMxPARAMCD are related</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">106</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  avalc = NULL,</pre>
+                      <pre class="language-r">  adlb &lt;- adlb %&gt;% rel_var(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  lookup = NULL,</pre>
+                      <pre class="language-r">    var_name = "PARAMCD",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  seed = NULL,</pre>
+                      <pre class="language-r">    related_var = "PARAM",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  na_percentage = 0,</pre>
+                      <pre class="language-r">    var_values = param_init_list$relvar2</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">                  na_vars = list(AVISIT = c(NA, 0.1), AVAL = c(1234, 0.1), AVALC = c(1234, 0.1)),</pre>
+                      <pre class="language-r">  )</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">                  cached = FALSE) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">112</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
+                      <pre class="language-r">  adlb &lt;- adlb %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">7<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 (cached) {</pre>
+                      <pre class="language-r">    dplyr::mutate(LBTESTCD = PARAMCD) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">114</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(get_cached_data("cadrs"))</pre>
+                      <pre class="language-r">    dplyr::mutate(LBTEST = PARAM)</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">  }</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">116</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  adlb &lt;- adlb %&gt;% dplyr::mutate(AVISITN = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">117</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
+                      <pre class="language-r">    AVISIT == "SCREENING" ~ -1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">6<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">  checkmate::assert_vector(avalc, null.ok = TRUE)</pre>
+                      <pre class="language-r">    AVISIT == "BASELINE" ~ 0,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">6<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">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
+                      <pre class="language-r">    (grepl("^WEEK", AVISIT) | grepl("^CYCLE", AVISIT)) ~ as.numeric(AVISIT) - 2,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">6<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">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">    TRUE ~ NA_real_</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">6<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_true(na_percentage &lt; 1)</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</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">46</td>
-                    <td class="coverage">6<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">  param_codes &lt;- if (!is.null(avalc)) {</pre>
+                      <pre class="language-r">  adlb &lt;- adlb %&gt;% rel_var(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">47</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">    avalc</pre>
+                      <pre class="language-r">    var_name = "AVALU",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</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">  } else {</pre>
+                      <pre class="language-r">    related_var = "PARAM",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">6<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">    stats::setNames(1:5, c("CR", "PR", "SD", "PD", "NE"))</pre>
+                      <pre class="language-r">    var_values = unit_init_list$relvar2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</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">51</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">52</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">129</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(lookup, null.ok = TRUE)</pre>
+                      <pre class="language-r">  adlb &lt;- adlb %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">130</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lookup_ars &lt;- if (!is.null(lookup)) {</pre>
+                      <pre class="language-r">    dplyr::mutate(AVISITN = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">54</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">    lookup</pre>
+                      <pre class="language-r">      AVISIT == "SCREENING" ~ -1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</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">  } else {</pre>
+                      <pre class="language-r">      AVISIT == "BASELINE" ~ 0,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">133</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    expand.grid(</pre>
+                      <pre class="language-r">      (grepl("^WEEK", AVISIT) | grepl("^CYCLE", AVISIT)) ~ as.numeric(AVISIT) - 2,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">134</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ARM = c("A: Drug X", "B: Placebo", "C: Combination"),</pre>
+                      <pre class="language-r">      TRUE ~ NA_real_</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">6<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">      AVALC = names(param_codes)</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">137</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # order to prepare for change from screening and baseline values</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">138</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) %&gt;% dplyr::mutate(</pre>
+                      <pre class="language-r">  adlb &lt;- adlb[order(adlb$STUDYID, adlb$USUBJID, adlb$PARAMCD, adlb$AVISITN), ]</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>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">140</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVAL = param_codes[AVALC],</pre>
+                      <pre class="language-r">  adlb &lt;- Reduce(rbind, lapply(split(adlb, adlb$USUBJID), function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">141</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      p_scr = c(rep(0, 3), rep(0, 3), c(1, 1, 1), c(0, 0, 0), c(0, 0, 0)),</pre>
+                      <pre class="language-r">    x$STUDYID &lt;- adsl$STUDYID[which(adsl$USUBJID == x$USUBJID[1])]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">142</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      p_bsl = c(rep(0, 3), rep(0, 3), c(1, 1, 1), c(0, 0, 0), c(0, 0, 0)),</pre>
+                      <pre class="language-r">    x$ABLFL2 &lt;- ifelse(x$AVISIT == "SCREENING", "Y", "")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">143</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      p_cycle = c(c(.4, .3, .5), c(.35, .25, .25), c(.1, .2, .08), c(.14, 0.15, 0.15), c(.01, 0.1, 0.02)),</pre>
+                      <pre class="language-r">    x$ABLFL &lt;- ifelse(toupper(visit_format) == "WEEK" &amp; x$AVISIT == "BASELINE",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">144</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      p_eoi = c(c(.4, .3, .5), c(.35, .25, .25), c(.1, .2, .08), c(.14, 0.15, 0.15), c(.01, 0.1, 0.02)),</pre>
+                      <pre class="language-r">      "Y",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">145</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      p_fu = c(c(.3, .2, .4), c(.2, .1, .3), c(.2, .2, .2), c(.3, .5, 0.1), rep(0, 3))</pre>
+                      <pre class="language-r">      ifelse(toupper(visit_format) == "CYCLE" &amp; x$AVISIT == "CYCLE 1 DAY 1", "Y", "")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">146</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">30<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    x</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">  }</pre>
+                      <pre class="language-r">  }))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</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">69</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">150</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(seed)) {</pre>
+                      <pre class="language-r">  adlb$BASE2 &lt;- retain(adlb, adlb$AVAL, adlb$ABLFL2 == "Y")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">6<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">    set.seed(seed)</pre>
+                      <pre class="language-r">  adlb$BASE &lt;- ifelse(adlb$ABLFL2 != "Y", retain(adlb, adlb$AVAL, adlb$ABLFL == "Y"), NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</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="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                    <td class="num">153</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  adlb &lt;- adlb %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">154</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adrs &lt;- split(adsl, adsl$USUBJID) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(CHG2 = AVAL - BASE2) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">155</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(function(pinfo) {</pre>
+                      <pre class="language-r">    dplyr::mutate(PCHG2 = 100 * (CHG2 / BASE2)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">156</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      probs &lt;- dplyr::filter(lookup_ars, ARM == as.character(pinfo$ACTARM))</pre>
+                      <pre class="language-r">    dplyr::mutate(CHG = AVAL - BASE) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <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"></pre>
+                      <pre class="language-r">    dplyr::mutate(PCHG = 100 * (CHG / BASE)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</td>
-                    <td class="coverage"></td>
+                  <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">      # screening</pre>
+                      <pre class="language-r">    dplyr::mutate(BASETYPE = "LAST") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">60<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">      rsp_screen &lt;- sample(probs$AVALC, 1, prob = probs$p_scr) %&gt;% as.character()</pre>
+                      <pre class="language-r">    dplyr::mutate(ANRLO = dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      PARAMCD == "ALT" ~ 7,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</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">      # baseline</pre>
+                      <pre class="language-r">      PARAMCD == "CRP" ~ 8,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">162</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rsp_bsl &lt;- sample(probs$AVALC, 1, prob = probs$p_bsl) %&gt;% as.character()</pre>
+                      <pre class="language-r">      PARAMCD == "IGA" ~ 0.8</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">163</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">84</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">      # cycle</pre>
+                      <pre class="language-r">    dplyr::mutate(ANRHI = dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">165</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rsp_c2d1 &lt;- sample(probs$AVALC, 1, prob = probs$p_cycle) %&gt;% as.character()</pre>
+                      <pre class="language-r">      PARAMCD == "ALT" ~ 55,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">166</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rsp_c4d1 &lt;- sample(probs$AVALC, 1, prob = probs$p_cycle) %&gt;% as.character()</pre>
+                      <pre class="language-r">      PARAMCD == "CRP" ~ 10,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</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"></pre>
+                      <pre class="language-r">      PARAMCD == "IGA" ~ 3</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # end of induction</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">169</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rsp_eoi &lt;- sample(probs$AVALC, 1, prob = probs$p_eoi) %&gt;% as.character()</pre>
+                      <pre class="language-r">    dplyr::mutate(ANRIND = factor(dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</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"></pre>
+                      <pre class="language-r">      AVAL &lt; ANRLO ~ "LOW",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</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">      # follow up</pre>
+                      <pre class="language-r">      AVAL &gt; ANRHI ~ "HIGH",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">172</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rsp_fu &lt;- sample(probs$AVALC, 1, prob = probs$p_fu) %&gt;% as.character()</pre>
+                      <pre class="language-r">      TRUE ~ "NORMAL"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">173</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">94</td>
-                    <td class="coverage">60<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">      best_rsp &lt;- min(param_codes[c(rsp_screen, rsp_bsl, rsp_eoi, rsp_fu, rsp_c2d1, rsp_c4d1)])</pre>
+                      <pre class="language-r">    dplyr::mutate(LBSTRESC = factor(dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">175</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      best_rsp_i &lt;- which.min(param_codes[c(rsp_screen, rsp_bsl, rsp_eoi, rsp_fu, rsp_c2d1, rsp_c4d1)])</pre>
+                      <pre class="language-r">      PARAMCD == "ALT" ~ "&lt;7",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      PARAMCD == "CRP" ~ "&lt;8",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">177</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      avisit &lt;- c("SCREENING", "BASELINE", "CYCLE 2 DAY 1", "CYCLE 4 DAY 1", "END OF INDUCTION", "FOLLOW UP")</pre>
+                      <pre class="language-r">      PARAMCD == "IGA" ~ "&gt;3"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">178</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">179</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    dplyr::rowwise() %&gt;%</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    dplyr::mutate(LOQFL = factor(</pre>
+                    </td>
+                  </tr>
+                  <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">      ifelse(eval(parse(text = paste(AVAL, LBSTRESC))), "Y", "N")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # meaningful date information</pre>
+                      <pre class="language-r">    )) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">183</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trtstdt &lt;- lubridate::date(pinfo$TRTSDTM)</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">184</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      trtendt &lt;- lubridate::date(dplyr::if_else(</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID, PARAMCD, BASETYPE) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">185</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        !is.na(pinfo$TRTEDTM), pinfo$TRTEDTM,</pre>
+                      <pre class="language-r">    dplyr::mutate(BNRIND = ANRIND[ABLFL == "Y"]) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">60<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        lubridate::floor_date(trtstdt + study_duration_secs, unit = "day")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                    <td class="num">186</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">187</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      scr_date &lt;- trtstdt - lubridate::days(100)</pre>
+                      <pre class="language-r">    dplyr::mutate(SHIFT1 = factor(ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">188</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      bs_date &lt;- trtstdt</pre>
+                      <pre class="language-r">      AVISITN &gt; 0,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">189</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      flu_date &lt;- sample(seq(lubridate::as_datetime(trtstdt), lubridate::as_datetime(trtendt), by = "day"), size = 1)</pre>
+                      <pre class="language-r">      paste(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">190</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      eoi_date &lt;- sample(seq(lubridate::as_datetime(trtstdt), lubridate::as_datetime(trtendt), by = "day"), size = 1)</pre>
+                      <pre class="language-r">        retain(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">60<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">      c2d1_date &lt;- sample(seq(lubridate::as_datetime(trtstdt), lubridate::as_datetime(trtendt), by = "day"), size = 1)</pre>
+                      <pre class="language-r">          adlb, as.character(BNRIND),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">192</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      c4d1_date &lt;- min(lubridate::date(c2d1_date + lubridate::days(60)), trtendt)</pre>
+                      <pre class="language-r">          AVISITN == 0</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"></pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">60<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">      tibble::tibble(</pre>
+                      <pre class="language-r">        ANRIND,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">60<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">        STUDYID = pinfo$STUDYID,</pre>
+                      <pre class="language-r">        sep = " to "</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">60<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">        SITEID = pinfo$SITEID,</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">60<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">        USUBJID = pinfo$USUBJID,</pre>
+                      <pre class="language-r">      ""</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">60<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">        PARAMCD = as.factor(c(rep("OVRINV", 6), "BESRSPI", "INVET")),</pre>
+                      <pre class="language-r">    ))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">199</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        PARAM = as.factor(dplyr::recode(</pre>
+                      <pre class="language-r">    dplyr::mutate(ATOXGR = factor(dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">200</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          PARAMCD,</pre>
+                      <pre class="language-r">      ANRIND == "LOW" ~ sample(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">60<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">          OVRINV = "Overall Response by Investigator - by visit",</pre>
+                      <pre class="language-r">        c("-1", "-2", "-3", "-4", "-5"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">60<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">          OVRSPI = "Best Overall Response by Investigator (no confirmation required)",</pre>
+                      <pre class="language-r">        nrow(adlb),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">60<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">          BESRSPI = "Best Confirmed Overall Response by Investigator",</pre>
+                      <pre class="language-r">        replace = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">60<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">          INVET = "Investigator End Of Induction Response"</pre>
+                      <pre class="language-r">        prob = c(0.30, 0.25, 0.20, 0.15, 0)</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">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">60<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">        AVALC = c(</pre>
+                      <pre class="language-r">      ANRIND == "HIGH" ~ sample(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">60<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">          rsp_screen, rsp_bsl, rsp_c2d1, rsp_c4d1, rsp_eoi, rsp_fu,</pre>
+                      <pre class="language-r">        c("1", "2", "3", "4", "5"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">60<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">          names(param_codes)[best_rsp],</pre>
+                      <pre class="language-r">        nrow(adlb),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">60<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">          rsp_eoi</pre>
+                      <pre class="language-r">        replace = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">210</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">        prob = c(0.30, 0.25, 0.20, 0.15, 0)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">60<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">        AVAL = param_codes[AVALC],</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">60<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">        AVISIT = factor(c(avisit, avisit[best_rsp_i], avisit[5]), levels = avisit)</pre>
+                      <pre class="language-r">      ANRIND == "NORMAL" ~ "0"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) %&gt;%</pre>
+                      <pre class="language-r">    ))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">214</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        merge(</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID, PARAMCD, BASETYPE) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">215</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tibble::tibble(</pre>
+                      <pre class="language-r">    dplyr::mutate(BTOXGR = ATOXGR[ABLFL == "Y"]) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">216</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            AVISIT = avisit,</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">217</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ADTM = c(scr_date, bs_date, c2d1_date, c4d1_date, eoi_date, flu_date),</pre>
+                      <pre class="language-r">    dplyr::mutate(ATPTN = 1) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">218</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            AVISITN = c(-1, 0, 2, 4, 999, 999),</pre>
+                      <pre class="language-r">    dplyr::mutate(DTYPE = NA) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">219</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            TRTSDTM = pinfo$TRTSDTM</pre>
+                      <pre class="language-r">    dplyr::mutate(BTOXGRL = factor(dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">220</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ) %&gt;%</pre>
+                      <pre class="language-r">      BTOXGR == "0" ~ "0",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">221</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::mutate(</pre>
+                      <pre class="language-r">      BTOXGR == "-1" ~ "1",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">222</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ADY = ceiling(difftime(ADTM, TRTSDTM, units = "days"))</pre>
+                      <pre class="language-r">      BTOXGR == "-2" ~ "2",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ) %&gt;%</pre>
+                      <pre class="language-r">      BTOXGR == "-3" ~ "3",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">224</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dplyr::select(-"TRTSDTM"),</pre>
+                      <pre class="language-r">      BTOXGR == "-4" ~ "4",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="num">225</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          by = "AVISIT"</pre>
+                      <pre class="language-r">      BTOXGR == "1" ~ "&lt;Missing&gt;",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">144</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      BTOXGR == "2" ~ "&lt;Missing&gt;",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">227</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }) %&gt;%</pre>
+                      <pre class="language-r">      BTOXGR == "3" ~ "&lt;Missing&gt;",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">6<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">    Reduce(rbind, .) %&gt;%</pre>
+                      <pre class="language-r">      BTOXGR == "4" ~ "&lt;Missing&gt;"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">6<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">    dplyr::mutate(AVALC = factor(AVALC, levels = names(param_codes))) %&gt;%</pre>
+                      <pre class="language-r">    ))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">6<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">    var_relabel(</pre>
+                      <pre class="language-r">    dplyr::mutate(BTOXGRH = factor(dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">231</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID = "Study Identifier",</pre>
+                      <pre class="language-r">      BTOXGR == "0" ~ "0",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">232</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID = "Unique Subject Identifier"</pre>
+                      <pre class="language-r">      BTOXGR == "1" ~ "1",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">151</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      BTOXGR == "2" ~ "2",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      BTOXGR == "3" ~ "3",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">235</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adrs &lt;- var_relabel(</pre>
+                      <pre class="language-r">      BTOXGR == "4" ~ "4",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">236</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adrs,</pre>
+                      <pre class="language-r">      BTOXGR == "-1" ~ "&lt;Missing&gt;",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">237</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
+                      <pre class="language-r">      BTOXGR == "-2" ~ "&lt;Missing&gt;",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">238</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</pre>
+                      <pre class="language-r">      BTOXGR == "-3" ~ "&lt;Missing&gt;",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">157</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">239</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      BTOXGR == "-4" ~ "&lt;Missing&gt;",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</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="never">
-                    <td class="num">159</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">241</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # merge ADSL to be able to add RS date and study day variables</pre>
+                      <pre class="language-r">    dplyr::mutate(ATOXGRL = factor(dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">160</td>
-                    <td class="coverage"></td>
+                  <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"></pre>
+                      <pre class="language-r">      ATOXGR == "0" ~ "0",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">161</td>
-                    <td class="coverage"></td>
+                  <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"></pre>
+                      <pre class="language-r">      ATOXGR == "-1" ~ "1",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">244</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adrs &lt;- dplyr::inner_join(</pre>
+                      <pre class="language-r">      ATOXGR == "-2" ~ "2",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">245</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(adrs, -"SITEID"),</pre>
+                      <pre class="language-r">      ATOXGR == "-3" ~ "3",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">246</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl,</pre>
+                      <pre class="language-r">      ATOXGR == "-4" ~ "4",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">247</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    by = c("STUDYID", "USUBJID")</pre>
+                      <pre class="language-r">      ATOXGR == "1" ~ "&lt;Missing&gt;",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">166</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">248</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      ATOXGR == "2" ~ "&lt;Missing&gt;",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">167</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">249</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ATOXGR == "3" ~ "&lt;Missing&gt;",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">250</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adrs &lt;- adrs %&gt;%</pre>
+                      <pre class="language-r">      ATOXGR == "4" ~ "&lt;Missing&gt;",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">6<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">    dplyr::group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">    ))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">252</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(RSSEQ = seq_len(dplyr::n())) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(ATOXGRH = factor(dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">253</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ASEQ = RSSEQ) %&gt;%</pre>
+                      <pre class="language-r">      ATOXGR == "0" ~ "0",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">254</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">      ATOXGR == "1" ~ "1",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">255</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(</pre>
+                      <pre class="language-r">      ATOXGR == "2" ~ "2",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">256</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID,</pre>
+                      <pre class="language-r">      ATOXGR == "3" ~ "3",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">257</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID,</pre>
+                      <pre class="language-r">      ATOXGR == "4" ~ "4",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">258</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD,</pre>
+                      <pre class="language-r">      ATOXGR == "-1" ~ "&lt;Missing&gt;",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">259</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISITN,</pre>
+                      <pre class="language-r">      ATOXGR == "-2" ~ "&lt;Missing&gt;",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">6<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">      ADTM,</pre>
+                      <pre class="language-r">      ATOXGR == "-3" ~ "&lt;Missing&gt;",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">6<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">      RSSEQ</pre>
+                      <pre class="language-r">      ATOXGR == "-4" ~ "&lt;Missing&gt;",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">262</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">181</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"></pre>
+                      <pre class="language-r">    rcd_var_relabel(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">264</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
+                      <pre class="language-r">      STUDYID = attr(adsl$STUDYID, "label"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">183</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">    adrs &lt;- mutate_na(ds = adrs, na_vars = na_vars, na_percentage = na_percentage)</pre>
+                      <pre class="language-r">      USUBJID = attr(adsl$USUBJID, "label")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</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">185</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">186</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # apply metadata</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  adrs &lt;- apply_metadata(adrs, "metadata/ADRS.yml")</pre>
+                      <pre class="language-r">  # High and low descriptions of the different PARAMCD values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # This is currently hard coded as the GDSR does not have these descriptions yet</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">270</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(adrs)</pre>
+                      <pre class="language-r">  grade_lookup &lt;- tibble::tribble(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">190</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">271</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    ~PARAMCD, ~ATOXDSCL, ~ATOXDSCH,</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/radpp.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">272</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Pharmacokinetics Parameters Dataset (ADPP)</pre>
+                      <pre class="language-r">    "ALB", "Hypoalbuminemia", NA_character_,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">273</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    "ALKPH", NA_character_, "Alkaline phosphatase increased",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">274</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">    "ALT", NA_character_, "Alanine aminotransferase increased",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</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">#'</pre>
+                      <pre class="language-r">    "AST", NA_character_, "Aspartate aminotransferase increased",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <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">#' Function for generating a random Pharmacokinetics Parameters Dataset for a given</pre>
+                      <pre class="language-r">    "BILI", NA_character_, "Blood bilirubin increased",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <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">#' Subject-Level Analysis Dataset.</pre>
+                      <pre class="language-r">    "CA", "Hypocalcemia", "Hypercalcemia",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">278</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    "CHOLES", NA_character_, "Cholesterol high",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <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">#' @details One record per study, subject, parameter category, parameter and visit.</pre>
+                      <pre class="language-r">    "CK", NA_character_, "CPK increased",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <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">#'</pre>
+                      <pre class="language-r">    "CREAT", NA_character_, "Creatinine increased",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <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">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">    "CRP", NA_character_, "C reactive protein increased",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <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">#' @param ppcat (`character vector`)\cr Categories of parameters.</pre>
+                      <pre class="language-r">    "GGT", NA_character_, "GGT increased",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</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">#' @param ppspec (`character vector`)\cr Specimen material types.</pre>
+                      <pre class="language-r">    "GLUC", "Hypoglycemia", "Hyperglycemia",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">284</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @template param_cached</pre>
+                      <pre class="language-r">    "HGB", "Anemia", "Hemoglobin increased",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">285</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @templateVar data adpp</pre>
+                      <pre class="language-r">    "IGA", NA_character_, "Immunoglobulin A increased",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">286</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    "POTAS", "Hypokalemia", "Hyperkalemia",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">287</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `data.frame`</pre>
+                      <pre class="language-r">    "LYMPH", "CD4 lymphocytes decreased", NA_character_,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">288</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    "PHOS", "Hypophosphatemia", NA_character_,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">289</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    "PLAT", "Platelet count decreased", NA_character_,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">290</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    "SODIUM", "Hyponatremia", "Hypernatremia",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">291</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</pre>
+                      <pre class="language-r">    "WBC", "White blood cell decreased", "Leukocytosis",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</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">22</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adpp &lt;- radpp(adsl, seed = 2)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adpp</pre>
+                      <pre class="language-r">  # merge grade_lookup onto adlb</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">295</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">radpp &lt;- function(adsl,</pre>
+                      <pre class="language-r">  adlb &lt;- dplyr::left_join(adlb, grade_lookup, by = "PARAMCD")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ppcat = c("Plasma Drug X", "Plasma Drug Y", "Metabolite Drug X", "Metabolite Drug Y"),</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">297</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ppspec = c(</pre>
+                      <pre class="language-r">  adlb &lt;- rcd_var_relabel(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">298</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "Plasma", "Plasma", "Plasma", "Matrix of PD", "Matrix of PD",</pre>
+                      <pre class="language-r">    adlb,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">299</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "Urine", "Urine", "Urine", "Urine"</pre>
+                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">300</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ),</pre>
+                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  paramcd = c(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "AUCIFO", "CMAX", "CLO", "RMAX", "TON",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "RENALCL", "RENALCLD", "RCAMINT", "RCPCINT"</pre>
+                      <pre class="language-r">  # merge ADSL to be able to add LB date and study day variables</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">304</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ),</pre>
+                      <pre class="language-r">  adlb &lt;- dplyr::inner_join(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">305</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  param = c(</pre>
+                      <pre class="language-r">    adlb,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">306</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "AUC Infinity Obs", "Max Conc", "Total CL Obs", "Time of Maximum Response",</pre>
+                      <pre class="language-r">    adsl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">307</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "Time to Onset", "Renal CL", "Renal CL Norm by Dose",</pre>
+                      <pre class="language-r">    by = c("STUDYID", "USUBJID")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "Amt Rec from T1 to T2", "Pct Rec from T1 to T2"</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">309</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ),</pre>
+                      <pre class="language-r">    dplyr::rowwise() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">310</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  paramu = c("day*ug/mL", "ug/mL", "ml/day/kg", "hr", "hr", "L/hr", "L/hr/mg", "mg", "%"),</pre>
+                      <pre class="language-r">    dplyr::mutate(TRTENDT = lubridate::date(dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">311</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  aval_mean = c(200, 30, 5, 10, 3, 0.05, 0.005, 1.5613, 15.65),</pre>
+                      <pre class="language-r">      is.na(TRTEDTM) ~ lubridate::floor_date(lubridate::date(TRTSDTM) + study_duration_secs, unit = "day"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">312</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  visit_format = "CYCLE",</pre>
+                      <pre class="language-r">      TRUE ~ TRTEDTM</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  n_days = 2L,</pre>
+                      <pre class="language-r">    ))) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">314</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  seed = NULL,</pre>
+                      <pre class="language-r">    dplyr::ungroup()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  na_percentage = 0,</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">316</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  na_vars = list(</pre>
+                      <pre class="language-r">  adlb &lt;- adlb %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">317</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    AVAL = c(NA, 0.1)</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">318</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ),</pre>
+                      <pre class="language-r">    dplyr::arrange(USUBJID, AVISITN) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">319</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  cached = FALSE) {</pre>
+                      <pre class="language-r">    dplyr::mutate(ADTM = rep(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">320</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
+                      <pre class="language-r">      sort(sample(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">321</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (cached) {</pre>
+                      <pre class="language-r">        seq(lubridate::as_datetime(TRTSDTM[1]), lubridate::as_datetime(TRTENDT[1]), by = "day"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">322</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(get_cached_data("cadlb"))</pre>
+                      <pre class="language-r">        size = nlevels(AVISIT)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</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="covered">
+                    <td class="num">324</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      each = n() / nlevels(AVISIT)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">325</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">54</td>
+                    <td class="num">326</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(ppcat)</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">55</td>
+                    <td class="num">327</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(ppspec)</pre>
+                      <pre class="language-r">    dplyr::mutate(ADY = ceiling(difftime(ADTM, TRTSDTM, units = "days"))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">56</td>
+                    <td class="num">328</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(paramcd)</pre>
+                      <pre class="language-r">    dplyr::select(-TRTENDT) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
+                    <td class="num">329</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(param)</pre>
+                      <pre class="language-r">    dplyr::arrange(STUDYID, USUBJID, ADTM)</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>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
+                    <td class="num">331</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(paramu)</pre>
+                      <pre class="language-r">  adlb &lt;- adlb %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
+                    <td class="num">332</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(aval_mean)</pre>
+                      <pre class="language-r">    dplyr::mutate(ASPID = sample(seq_len(dplyr::n()))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
+                    <td class="num">333</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(visit_format)</pre>
+                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
+                    <td class="num">334</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(n_days)</pre>
+                      <pre class="language-r">    dplyr::mutate(LBSEQ = seq_len(dplyr::n())) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
+                    <td class="num">335</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
+                      <pre class="language-r">    dplyr::mutate(ASEQ = LBSEQ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">63</td>
+                    <td class="num">336</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">64</td>
+                    <td class="num">337</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
+                      <pre class="language-r">    dplyr::arrange(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">65</td>
+                    <td class="num">338</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(na_vars)</pre>
+                      <pre class="language-r">      STUDYID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">339</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">67</td>
+                    <td class="num">340</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assertTRUE(length(ppspec) == length(paramcd))</pre>
+                      <pre class="language-r">      PARAMCD,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">68</td>
+                    <td class="num">341</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assertTRUE(length(ppspec) == length(param))</pre>
+                      <pre class="language-r">      BASETYPE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
+                    <td class="num">342</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assertTRUE(length(ppspec) == length(paramu))</pre>
+                      <pre class="language-r">      AVISITN,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">70</td>
+                    <td class="num">343</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assertTRUE(length(ppspec) == length(aval_mean))</pre>
+                      <pre class="language-r">      ATPTN,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">344</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      DTYPE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
+                    <td class="num">345</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(seed)) {</pre>
+                      <pre class="language-r">      ADTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">73</td>
+                    <td class="num">346</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set.seed(seed)</pre>
+                      <pre class="language-r">      LBSEQ,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">347</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      ASPID</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">348</td>
                     <td class="coverage"></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">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # validate and initialize related variables</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
+                    <td class="num">350</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ppspec_init_list &lt;- relvar_init(param, ppspec)</pre>
+                      <pre class="language-r">  adlb &lt;- adlb %&gt;% dplyr::mutate(ONTRTFL = factor(dplyr::case_when(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
+                    <td class="num">351</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  param_init_list &lt;- relvar_init(param, paramcd)</pre>
+                      <pre class="language-r">    !AVISIT %in% c("SCREENING", "BASELINE") ~ "Y",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
+                    <td class="num">352</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  unit_init_list &lt;- relvar_init(param, paramu)</pre>
+                      <pre class="language-r">    TRUE ~ ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</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="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">3<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">  adpp &lt;- expand.grid(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
+                    <td class="num">355</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID = unique(adsl$STUDYID),</pre>
+                      <pre class="language-r">  flag_variables &lt;- function(data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
+                    <td class="num">356</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID = adsl$USUBJID,</pre>
+                      <pre class="language-r">                             apply_grouping,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
+                    <td class="num">357</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PPCAT = as.factor(ppcat),</pre>
+                      <pre class="language-r">                             apply_filter,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
+                    <td class="num">358</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAM = as.factor(param_init_list$relvar1),</pre>
+                      <pre class="language-r">                             apply_mutate) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">359</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVISIT = visit_schedule(visit_format = visit_format, n_assessments = 1L, n_days = n_days),</pre>
+                      <pre class="language-r">    data_compare &lt;- data %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">360</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">      dplyr::mutate(row_check = seq_len(nrow(data)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">361</td>
                     <td class="coverage"></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">3<em>x</em></td>
+                    <td class="num">362</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adpp &lt;- adpp %&gt;%</pre>
+                      <pre class="language-r">    data &lt;- data_compare %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">90</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">    dplyr::mutate(AVAL = stats::rnorm(nrow(adpp), mean = 1, sd = 0.2)) %&gt;%</pre>
+                      <pre class="language-r">      {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">3<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">    dplyr::left_join(data.frame(PARAM = param, ADJUST = aval_mean), by = "PARAM") %&gt;%</pre>
+                      <pre class="language-r">        if (apply_grouping == TRUE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">365</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(AVAL = AVAL * ADJUST) %&gt;%</pre>
+                      <pre class="language-r">          dplyr::group_by(., USUBJID, PARAMCD, BASETYPE, AVISIT)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">366</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">367</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(-"ADJUST")</pre>
+                      <pre class="language-r">          dplyr::group_by(., USUBJID, PARAMCD, BASETYPE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</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">95</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # assign related variable values: PARAMxPPSPEC are related</pre>
+                      <pre class="language-r">      } %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">370</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adpp &lt;- adpp %&gt;% rel_var(</pre>
+                      <pre class="language-r">      dplyr::arrange(ADTM, ASPID, LBSEQ) %&gt;%</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">371</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_name = "PPSPEC",</pre>
+                      <pre class="language-r">      {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">372</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    related_var = "PARAM",</pre>
+                      <pre class="language-r">        if (apply_filter == TRUE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">373</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_values = ppspec_init_list$relvar2</pre>
+                      <pre class="language-r">          dplyr::filter(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</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">101</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">375</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            (AVISIT != "BASELINE" &amp; AVISIT != "SCREENING") &amp;</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">376</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              (ONTRTFL == "Y" | ADTM &lt;= TRTSDTM)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # assign related variable values: PARAMxPARAMCD are related</pre>
+                      <pre class="language-r">          ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">378</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adpp &lt;- adpp %&gt;% rel_var(</pre>
+                      <pre class="language-r">            dplyr::filter(ATOXGR == max(as.numeric(as.character(ATOXGR))))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">379</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_name = "PARAMCD",</pre>
+                      <pre class="language-r">        } else if (apply_filter == FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">380</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    related_var = "PARAM",</pre>
+                      <pre class="language-r">          dplyr::filter(</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">106</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">382</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_values = param_init_list$relvar2</pre>
+                      <pre class="language-r">            (AVISIT != "BASELINE" &amp; AVISIT != "SCREENING") &amp;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">383</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">              (ONTRTFL == "Y" | ADTM &lt;= TRTSDTM)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">384</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">385</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            dplyr::filter(ATOXGR == min(as.numeric(as.character(ATOXGR))))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">386</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # assign related variable values: PARAMxAVALU are related</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
+                    <td class="num">387</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adpp &lt;- adpp %&gt;% rel_var(</pre>
+                      <pre class="language-r">          dplyr::filter(</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">388</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            .,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
+                    <td class="num">389</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_name = "AVALU",</pre>
+                      <pre class="language-r">            AVAL == min(AVAL) &amp;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
+                    <td class="num">390</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    related_var = "PARAM",</pre>
+                      <pre class="language-r">              (AVISIT != "BASELINE" &amp; AVISIT != "SCREENING") &amp;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
+                    <td class="num">391</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_values = unit_init_list$relvar2</pre>
+                      <pre class="language-r">              (ONTRTFL == "Y" | ADTM &lt;= TRTSDTM)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</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">115</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">116</td>
+                    <td class="num">394</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # derive AVISITN based AVISIT and AVALC based on AVAL</pre>
+                      <pre class="language-r">      } %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">395</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adpp &lt;- adpp %&gt;%</pre>
+                      <pre class="language-r">      dplyr::slice(1) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">396</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(AVALC = as.character(AVAL)) %&gt;%</pre>
+                      <pre class="language-r">      {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">397</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(</pre>
+                      <pre class="language-r">        if (apply_mutate == TRUE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">398</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISITN = dplyr::case_when(</pre>
+                      <pre class="language-r">          dplyr::mutate(., new_var = ifelse(is.na(DTYPE), "Y", ""))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">3<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">        AVISIT == "SCREENING" ~ 0,</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">122</td>
+                    <td class="num">400</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        (grepl("^WEEK", AVISIT) | grepl("^CYCLE", AVISIT)) ~ as.numeric(AVISIT) - 1,</pre>
+                      <pre class="language-r">          dplyr::mutate(., new_var = ifelse(is.na(AVAL) == FALSE &amp; is.na(DTYPE), "Y", ""))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">3<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">        TRUE ~ NA_real_</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">402</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">125</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">403</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      dplyr::ungroup()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="covered">
+                    <td class="num">405</td>
+                    <td class="coverage">15<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    data_compare$new_var &lt;- ifelse(data_compare$row_check %in% data$row_check, "Y", "")</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">406</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # derive REGIMEN variable</pre>
+                      <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="num">407</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adpp &lt;- adpp %&gt;% dplyr::mutate(REGIMEN = "BID")</pre>
+                      <pre class="language-r">    data_compare &lt;- data_compare[, -which(names(data_compare) %in% c("row_check"))]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</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">409</td>
+                    <td class="coverage">15<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    return(data_compare)</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">410</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # derive PPSTINT and PPENINT based on PARAMCD</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">411</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  t1_t2 &lt;- data.frame(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
+                    <td class="num">412</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAMCD = c("RCAMINT", "RCAMINT", "RCPCINT", "RCPCINT"),</pre>
+                      <pre class="language-r">  adlb &lt;- flag_variables(adlb, TRUE, "ELSE", FALSE) %&gt;% dplyr::rename(WORS01FL = "new_var")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
+                    <td class="num">413</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PPSTINT = c("P0H", "P0H", "P0H", "P0H"),</pre>
+                      <pre class="language-r">  adlb &lt;- flag_variables(adlb, FALSE, TRUE, TRUE) %&gt;% dplyr::rename(WGRHIFL = "new_var")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
+                    <td class="num">414</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PPENINT = c("P12H", "P24H", "P12H", "P24H")</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">  adlb &lt;- flag_variables(adlb, FALSE, FALSE, TRUE) %&gt;% dplyr::rename(WGRLOFL = "new_var")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">136</td>
+                    <td class="num">415</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adpp &lt;- adpp %&gt;%</pre>
+                      <pre class="language-r">  adlb &lt;- flag_variables(adlb, TRUE, TRUE, TRUE) %&gt;% dplyr::rename(WGRHIVFL = "new_var")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">137</td>
+                    <td class="num">416</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::left_join(t1_t2, by = c("PARAMCD"), multiple = "all", relationship = "many-to-many")</pre>
+                      <pre class="language-r">  adlb &lt;- flag_variables(adlb, TRUE, FALSE, TRUE) %&gt;% dplyr::rename(WGRLOVFL = "new_var")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">417</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="num">418</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adpp &lt;- dplyr::inner_join(adpp, adsl, by = c("STUDYID", "USUBJID")) %&gt;%</pre>
+                      <pre class="language-r">  adlb &lt;- adlb %&gt;% dplyr::mutate(ANL01FL = ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
+                    <td class="num">419</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::filter(</pre>
+                      <pre class="language-r">    (ABLFL == "Y" | (WORS01FL == "Y" &amp; is.na(DTYPE))) &amp;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">141</td>
+                    <td class="num">420</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ACTARM != "B: Placebo",</pre>
+                      <pre class="language-r">      (AVISIT != "SCREENING"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">142</td>
+                    <td class="num">421</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      !(ACTARM == "A: Drug X" &amp; (PPCAT == "Plasma Drug Y" | PPCAT == "Metabolite Drug Y"))</pre>
+                      <pre class="language-r">    "Y",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</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">144</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="never">
-                    <td class="num">145</td>
+                    <td class="num">424</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # derive PKARMCD column for creating more cohorts</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">146</td>
+                    <td class="num">425</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adpp &lt;- adpp %&gt;%</pre>
+                      <pre class="language-r">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">426</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(PKARMCD = factor(1 + (seq_len(nrow(adpp)) - 1) %/% (nrow(adpp) / 10), labels = c(</pre>
+                      <pre class="language-r">    adlb &lt;- mutate_na(ds = adlb, na_vars = na_vars, na_percentage = na_percentage)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">3<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">      "Drug A", "Drug B", "Drug C", "Drug D", "Drug E", "Drug F", "Drug G", "Drug H",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">3<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">      "Drug I", "Drug J"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )))</pre>
+                      <pre class="language-r">  # apply metadata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">430</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="num">431</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">153</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    adpp &lt;- mutate_na(ds = adpp, na_vars = na_vars, na_percentage = na_percentage)</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">  adlb &lt;- apply_metadata(adlb, "metadata/ADLB.yml")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">432</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></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">  adpp &lt;- apply_metadata(adpp, "metadata/ADPP.yml")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
+                    <td class="num">433</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(adpp)</pre>
+                      <pre class="language-r">  return(adlb)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">434</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -40546,7 +40560,7 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">85</td>
                     <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adcm &lt;- var_relabel(</pre>
+                      <pre class="language-r">  adcm &lt;- rcd_var_relabel(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
@@ -44198,14 +44212,14 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/radqs.R" class="hidden">
+            <div id="R/radrs.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">#' Questionnaires Analysis Dataset (ADQS)</pre>
+                      <pre class="language-r">#' Tumor Response Analysis Dataset (ADRS)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -44233,7 +44247,7 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function for generating a random Questionnaires Analysis Dataset for a given</pre>
+                      <pre class="language-r">#' Function for generating a random Tumor Response Analysis Dataset for a given</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -44254,1292 +44268,1278 @@ <h2>random.cdisc.data coverage - 98.86%</h2>
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details One record per subject per parameter per analysis visit per analysis date.</pre>
+                      <pre class="language-r">#' @details</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">#' One record per subject per parameter per analysis visit per analysis date.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `PARAMCD`, `AVISITN`</pre>
+                      <pre class="language-r">#' SDTM variables are populated on new records coming from other single records.</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">#' Otherwise, SDTM variables are left blank.</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">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @template param_cached</pre>
+                      <pre class="language-r">#' Keys: `STUDYID`, `USUBJID`, `PARAMCD`, `AVISITN`, `ADT`, `RSSEQ`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @templateVar data adqs</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">#'</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</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 `data.frame`</pre>
+                      <pre class="language-r">#' @param avalc (`character vector`)\cr Analysis value categories.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @template param_cached</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">#' @templateVar data adrs</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @author npaszty</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">#' @return `data.frame`</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">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</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">#' @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">#' adqs &lt;- radqs(adsl, visit_format = "WEEK", n_assessments = 7L, seed = 2)</pre>
+                      <pre class="language-r">#' adsl &lt;- radsl(N = 10, seed = 1, study_duration = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adqs</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">#' adrs &lt;- radrs(adsl, seed = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adqs &lt;- radqs(adsl, visit_format = "CYCLE", n_assessments = 3L, seed = 2)</pre>
+                      <pre class="language-r">#' adrs</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adqs</pre>
+                      <pre class="language-r">radrs &lt;- function(adsl,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">radqs &lt;- function(adsl,</pre>
+                      <pre class="language-r">                  avalc = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  param = c(</pre>
+                      <pre class="language-r">                  lookup = 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">                    "BFI All Questions",</pre>
+                      <pre class="language-r">                  seed = 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">                    "Fatigue Interference",</pre>
+                      <pre class="language-r">                  na_percentage = 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "Function/Well-Being (GF1,GF3,GF7)",</pre>
+                      <pre class="language-r">                  na_vars = list(AVISIT = c(NA, 0.1), AVAL = c(1234, 0.1), AVALC = c(1234, 0.1)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "Treatment Side Effects (GP2,C5,GP5)",</pre>
+                      <pre class="language-r">                  cached = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">35</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "FKSI-19 All Questions"</pre>
+                      <pre class="language-r">  checkmate::assert_flag(cached)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">36</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">  if (cached) {</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">                  paramcd = c("BFIALL", "FATIGI", "FKSI-FWB", "FKSI-TSE", "FKSIALL"),</pre>
+                      <pre class="language-r">    return(get_cached_data("cadrs"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  visit_format = "WEEK",</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">                  n_assessments = 5L,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">40</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  n_days = 5L,</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">41</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  seed = NULL,</pre>
+                      <pre class="language-r">  checkmate::assert_vector(avalc, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">42</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  na_percentage = 0,</pre>
+                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">43</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  na_vars = list(</pre>
+                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">44</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    LOQFL = c(NA, 0.1), ABLFL2 = c(1234, 0.1), ABLFL = c(1235, 0.1),</pre>
+                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    CHG2 = c(1235, 0.1), PCHG2 = c(1235, 0.1), CHG = c(1234, 0.1), PCHG = c(1234, 0.1)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">46</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">  param_codes &lt;- if (!is.null(avalc)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">47</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  cached = FALSE) {</pre>
+                      <pre class="language-r">    avalc</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_flag(cached)</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">49</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 (cached) {</pre>
+                      <pre class="language-r">    stats::setNames(1:5, c("CR", "PR", "SD", "PD", "NE"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">50</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(get_cached_data("cadqs"))</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">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">52</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_data_frame(lookup, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">53</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(adsl)</pre>
+                      <pre class="language-r">  lookup_ars &lt;- if (!is.null(lookup)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">54</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(param, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">    lookup</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">55</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(paramcd, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">56</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(visit_format)</pre>
+                      <pre class="language-r">    expand.grid(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">57</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(n_assessments, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">      ARM = c("A: Drug X", "B: Placebo", "C: Combination"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(n_days, len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">      AVALC = names(param_codes)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(seed, null.ok = TRUE)</pre>
+                      <pre class="language-r">    ) %&gt;% dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">60</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(na_percentage, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">      AVAL = param_codes[AVALC],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(na_percentage &lt; 1)</pre>
+                      <pre class="language-r">      p_scr = c(rep(0, 3), rep(0, 3), c(1, 1, 1), c(0, 0, 0), c(0, 0, 0)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">62</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">      p_bsl = c(rep(0, 3), rep(0, 3), c(1, 1, 1), c(0, 0, 0), c(0, 0, 0)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # validate and initialize param vectors</pre>
+                      <pre class="language-r">      p_cycle = c(c(.4, .3, .5), c(.35, .25, .25), c(.1, .2, .08), c(.14, 0.15, 0.15), c(.01, 0.1, 0.02)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  param_init_list &lt;- relvar_init(param, paramcd)</pre>
+                      <pre class="language-r">      p_eoi = c(c(.4, .3, .5), c(.35, .25, .25), c(.1, .2, .08), c(.14, 0.15, 0.15), c(.01, 0.1, 0.02)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">65</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">      p_fu = c(c(.3, .2, .4), c(.2, .1, .3), c(.2, .2, .2), c(.3, .5, 0.1), rep(0, 3))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">66</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(seed)) {</pre>
+                      <pre class="language-r">    )</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">    set.seed(seed)</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">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</pre>
+                      <pre class="language-r">  if (!is.null(seed)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">70</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">    set.seed(seed)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">71</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqs &lt;- expand.grid(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID = unique(adsl$STUDYID),</pre>
+                      <pre class="language-r">  study_duration_secs &lt;- lubridate::seconds(attr(adsl, "study_duration_secs"))</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">    USUBJID = adsl$USUBJID,</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="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PARAM = param_init_list$relvar1,</pre>
+                      <pre class="language-r">  adrs &lt;- split(adsl, adsl$USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">75</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    AVISIT = visit_schedule(visit_format = visit_format, n_assessments = n_assessments, n_days = n_days),</pre>
+                      <pre class="language-r">    lapply(function(pinfo) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">      probs &lt;- dplyr::filter(lookup_ars, ARM == as.character(pinfo$ACTARM))</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"></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">      # screening</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">79</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqs &lt;- dplyr::mutate(</pre>
+                      <pre class="language-r">      rsp_screen &lt;- sample(probs$AVALC, 1, prob = probs$p_scr) %&gt;% as.character()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">80</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adqs,</pre>
+                      <pre class="language-r"></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">    AVISITN = dplyr::case_when(</pre>
+                      <pre class="language-r">      # baseline</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">82</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISIT == "SCREENING" ~ -1,</pre>
+                      <pre class="language-r">      rsp_bsl &lt;- sample(probs$AVALC, 1, prob = probs$p_bsl) %&gt;% as.character()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">83</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISIT == "BASELINE" ~ 0,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">84</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      (grepl("^WEEK", AVISIT) | grepl("^CYCLE", AVISIT)) ~ as.numeric(AVISIT) - 2,</pre>
+                      <pre class="language-r">      # cycle</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">85</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ NA_real_</pre>
+                      <pre class="language-r">      rsp_c2d1 &lt;- sample(probs$AVALC, 1, prob = probs$p_cycle) %&gt;% as.character()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">86</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      rsp_c4d1 &lt;- sample(probs$AVALC, 1, prob = probs$p_cycle) %&gt;% as.character()</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"></pre>
+                      <pre class="language-r">      # end of induction</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">89</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # assign related variable values: PARAMxPARAMCD are related</pre>
+                      <pre class="language-r">      rsp_eoi &lt;- sample(probs$AVALC, 1, prob = probs$p_eoi) %&gt;% as.character()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">90</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqs &lt;- adqs %&gt;% rel_var(</pre>
+                      <pre class="language-r"></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">    var_name = "PARAMCD",</pre>
+                      <pre class="language-r">      # follow up</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">92</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    related_var = "PARAM",</pre>
+                      <pre class="language-r">      rsp_fu &lt;- sample(probs$AVALC, 1, prob = probs$p_fu) %&gt;% as.character()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">93</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_values = param_init_list$relvar2</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">94</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      best_rsp &lt;- min(param_codes[c(rsp_screen, rsp_bsl, rsp_eoi, rsp_fu, rsp_c2d1, rsp_c4d1)])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">95</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      best_rsp_i &lt;- which.min(param_codes[c(rsp_screen, rsp_bsl, rsp_eoi, rsp_fu, rsp_c2d1, rsp_c4d1)])</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">  adqs$AVAL &lt;- stats::rnorm(nrow(adqs), mean = 50, sd = 8) + adqs$AVISITN * stats::rnorm(nrow(adqs), mean = 5, sd = 2)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">97</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      avisit &lt;- c("SCREENING", "BASELINE", "CYCLE 2 DAY 1", "CYCLE 4 DAY 1", "END OF INDUCTION", "FOLLOW UP")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # order to prepare for change from screening and baseline values</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">  adqs &lt;- adqs[order(adqs$STUDYID, adqs$USUBJID, adqs$PARAMCD, adqs$AVISITN), ]</pre>
+                      <pre class="language-r">      # meaningful date information</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">100</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      trtstdt &lt;- lubridate::date(pinfo$TRTSDTM)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">101</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqs &lt;- Reduce(</pre>
+                      <pre class="language-r">      trtendt &lt;- lubridate::date(dplyr::if_else(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">102</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rbind,</pre>
+                      <pre class="language-r">        !is.na(pinfo$TRTEDTM), pinfo$TRTEDTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">103</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(</pre>
+                      <pre class="language-r">        lubridate::floor_date(trtstdt + study_duration_secs, unit = "day")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">104</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      split(adqs, adqs$USUBJID),</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">105</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(x) {</pre>
+                      <pre class="language-r">      scr_date &lt;- trtstdt - lubridate::days(100)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">106</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x$STUDYID &lt;- adsl$STUDYID[which(adsl$USUBJID == x$USUBJID[1])]</pre>
+                      <pre class="language-r">      bs_date &lt;- trtstdt</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">107</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x$ABLFL2 &lt;- ifelse(x$AVISIT == "SCREENING", "Y", "")</pre>
+                      <pre class="language-r">      flu_date &lt;- sample(seq(lubridate::as_datetime(trtstdt), lubridate::as_datetime(trtendt), by = "day"), size = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">108</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x$ABLFL &lt;- ifelse(</pre>
+                      <pre class="language-r">      eoi_date &lt;- sample(seq(lubridate::as_datetime(trtstdt), lubridate::as_datetime(trtendt), by = "day"), size = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">109</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toupper(visit_format) == "WEEK" &amp; x$AVISIT == "BASELINE",</pre>
+                      <pre class="language-r">      c2d1_date &lt;- sample(seq(lubridate::as_datetime(trtstdt), lubridate::as_datetime(trtendt), by = "day"), size = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">110</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Y",</pre>
+                      <pre class="language-r">      c4d1_date &lt;- min(lubridate::date(c2d1_date + lubridate::days(60)), trtendt)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">111</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ifelse(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">112</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            toupper(visit_format) == "CYCLE" &amp; x$AVISIT == "CYCLE 1 DAY 1",</pre>
+                      <pre class="language-r">      tibble::tibble(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">113</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Y",</pre>
+                      <pre class="language-r">        STUDYID = pinfo$STUDYID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">114</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ""</pre>
+                      <pre class="language-r">        SITEID = pinfo$SITEID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">115</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">        USUBJID = pinfo$USUBJID,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">116</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        PARAMCD = as.factor(c(rep("OVRINV", 6), "BESRSPI", "INVET")),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">117</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x$LOQFL &lt;- ifelse(x$AVAL &lt; 32, "Y", "N")</pre>
+                      <pre class="language-r">        PARAM = as.factor(dplyr::recode(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">118</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x</pre>
+                      <pre class="language-r">          PARAMCD,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">119</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">          OVRINV = "Overall Response by Investigator - by visit",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">120</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          OVRSPI = "Best Overall Response by Investigator (no confirmation required)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">121</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">          BESRSPI = "Best Confirmed Overall Response by Investigator",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">122</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          INVET = "Investigator End Of Induction Response"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">123</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqs$BASE2 &lt;- retain(adqs, adqs$AVAL, adqs$ABLFL2 == "Y")</pre>
+                      <pre class="language-r">        )),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">124</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqs$BASE &lt;- ifelse(adqs$ABLFL2 != "Y", retain(adqs, adqs$AVAL, adqs$ABLFL == "Y"), NA)</pre>
+                      <pre class="language-r">        AVALC = c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">125</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          rsp_screen, rsp_bsl, rsp_c2d1, rsp_c4d1, rsp_eoi, rsp_fu,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">126</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqs &lt;- adqs %&gt;%</pre>
+                      <pre class="language-r">          names(param_codes)[best_rsp],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">127</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(CHG2 = AVAL - BASE2) %&gt;%</pre>
+                      <pre class="language-r">          rsp_eoi</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">128</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(PCHG2 = 100 * (CHG2 / BASE2)) %&gt;%</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">129</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(CHG = AVAL - BASE) %&gt;%</pre>
+                      <pre class="language-r">        AVAL = param_codes[AVALC],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">130</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(PCHG = 100 * (CHG / BASE)) %&gt;%</pre>
+                      <pre class="language-r">        AVISIT = factor(c(avisit, avisit[best_rsp_i], avisit[5]), levels = avisit)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">131</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_relabel(</pre>
+                      <pre class="language-r">      ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">132</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      STUDYID = attr(adsl$STUDYID, "label"),</pre>
+                      <pre class="language-r">        merge(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">133</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID = attr(adsl$USUBJID, "label")</pre>
+                      <pre class="language-r">          tibble::tibble(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">134</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">            AVISIT = avisit,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">135</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            ADTM = c(scr_date, bs_date, c2d1_date, c4d1_date, eoi_date, flu_date),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">136</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqs &lt;- var_relabel(</pre>
+                      <pre class="language-r">            AVISITN = c(-1, 0, 2, 4, 999, 999),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">137</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adqs,</pre>
+                      <pre class="language-r">            TRTSDTM = pinfo$TRTSDTM</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">138</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
+                      <pre class="language-r">          ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">139</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</pre>
+                      <pre class="language-r">            dplyr::mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">140</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">              ADY = ceiling(difftime(ADTM, TRTSDTM, units = "days"))</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">            ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">142</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # merge ADSL to be able to add QS date and study day variables</pre>
+                      <pre class="language-r">            dplyr::select(-"TRTSDTM"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">143</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqs &lt;- dplyr::inner_join(</pre>
+                      <pre class="language-r">          by = "AVISIT"</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">    adqs,</pre>
+                      <pre class="language-r">        )</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">    adsl,</pre>
+                      <pre class="language-r">    }) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">146</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    by = c("STUDYID", "USUBJID")</pre>
+                      <pre class="language-r">    Reduce(rbind, .) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">147</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(AVALC = factor(AVALC, levels = names(param_codes))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">148</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::rowwise() %&gt;%</pre>
+                      <pre class="language-r">    rcd_var_relabel(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">149</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(TRTENDT = lubridate::date(dplyr::case_when(</pre>
+                      <pre class="language-r">      STUDYID = "Study Identifier",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">150</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is.na(TRTEDTM) ~ lubridate::floor_date(lubridate::date(TRTSDTM) + study_duration_secs, unit = "day"),</pre>
+                      <pre class="language-r">      USUBJID = "Unique Subject Identifier"</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">      TRUE ~ TRTEDTM</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">    ))) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">153</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ungroup()</pre>
+                      <pre class="language-r">  adrs &lt;- rcd_var_relabel(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">154</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">    adrs,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">155</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqs &lt;- adqs %&gt;%</pre>
+                      <pre class="language-r">    STUDYID = "Study Identifier",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">156</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">    USUBJID = "Unique Subject Identifier"</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">    arrange(USUBJID, AVISITN) %&gt;%</pre>
+                      <pre class="language-r">  )</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">    dplyr::mutate(ADTM = rep(</pre>
+                      <pre class="language-r"></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">      sort(sample(</pre>
+                      <pre class="language-r">  # merge ADSL to be able to add RS date and study day variables</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">160</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        seq(lubridate::as_datetime(TRTSDTM[1]), lubridate::as_datetime(TRTENDT[1]), by = "day"),</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">        size = nlevels(AVISIT)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">162</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">  adrs &lt;- dplyr::inner_join(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">163</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      each = n() / nlevels(AVISIT)</pre>
+                      <pre class="language-r">    dplyr::select(adrs, -"SITEID"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">164</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) %&gt;%</pre>
+                      <pre class="language-r">    adsl,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">165</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
+                      <pre class="language-r">    by = c("STUDYID", "USUBJID")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">166</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(ADY = ceiling(difftime(ADTM, TRTSDTM, units = "days"))) %&gt;%</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">167</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::select(-TRTENDT) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">168</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::arrange(STUDYID, USUBJID, ADTM)</pre>
+                      <pre class="language-r">  adrs &lt;- adrs %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">169</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">    dplyr::group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">170</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqs &lt;- adqs %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(RSSEQ = seq_len(dplyr::n())) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">171</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">    dplyr::mutate(ASEQ = RSSEQ) %&gt;%</pre>
                     </td>
                   </tr>
                   <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">    dplyr::mutate(QSSEQ = seq_len(dplyr::n())) %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <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">    dplyr::mutate(ASEQ = QSSEQ) %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    dplyr::ungroup() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">173</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    dplyr::arrange(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">174</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      STUDYID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">175</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      USUBJID,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">176</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      PARAMCD,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">177</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      AVISITN,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">178</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      ADTM,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">179</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      QSSEQ</pre>
+                      <pre class="language-r">      RSSEQ</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</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">183</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">184</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">182</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  if (length(na_vars) &gt; 0 &amp;&amp; na_percentage &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">185</td>
+                    <td class="num">183</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adqs &lt;- mutate_na(ds = adqs, na_vars = na_vars, na_percentage = na_percentage)</pre>
+                      <pre class="language-r">    adrs &lt;- mutate_na(ds = adrs, na_vars = na_vars, na_percentage = na_percentage)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</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">187</td>
+                    <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">188</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  # apply metadata</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">187</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adqs &lt;- apply_metadata(adqs, "metadata/ADQS.yml")</pre>
+                      <pre class="language-r">  adrs &lt;- apply_metadata(adrs, "metadata/ADRS.yml")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <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">191</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">189</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(adqs)</pre>
+                      <pre class="language-r">  return(adrs)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>