From 29d73563a0cb14b55ad898abbf4145075c107c98 Mon Sep 17 00:00:00 2001
From: audreyyeoCH <audreyyeoCH@users.noreply.github.com>
Date: Mon, 30 Sep 2024 13:01:30 +0000
Subject: [PATCH] deploy: 9fbc3baf7cd127bbc59f864d23480ecaa2d29c3f

---
 main/coverage-report/index.html | 27090 +++++++++++++++---------------
 1 file changed, 13566 insertions(+), 13524 deletions(-)

diff --git a/main/coverage-report/index.html b/main/coverage-report/index.html
index 5fb11729..5af76eda 100644
--- a/main/coverage-report/index.html
+++ b/main/coverage-report/index.html
@@ -95,7 +95,7 @@
   font-size: 11px;
 }</style>
   <div class="col-md-8 col-md-offset-2">
-    <h2>phase1b coverage - 64.86%</h2>
+    <h2>phase1b coverage - 66.50%</h2>
     <div class="tabbable">
       <ul class="nav nav-tabs" data-tabsetid="covr">
         <li class="active">
@@ -107,12 +107,12 @@ <h2>phase1b coverage - 64.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-133ec830acc3a0c7c3ce" style="width:100%;height:500px;"></div>
-          <script type="application/json" data-for="htmlwidget-133ec830acc3a0c7c3ce">{"x":{"filter":"none","vertical":false,"fillContainer":false,"data":[["<a href=\"#\">R/oc2.R<\/a>","<a href=\"#\">R/oc3.R<\/a>","<a href=\"#\">R/plotDecision.R<\/a>","<a href=\"#\">R/sumbetadiff.R<\/a>","<a href=\"#\">R/plotBounds.R<\/a>","<a href=\"#\">R/boundsPostprob.R<\/a>","<a href=\"#\">R/boundsPredprob.R<\/a>","<a href=\"#\">R/sumTable.R<\/a>","<a href=\"#\">R/plotOc.R<\/a>","<a href=\"#\">R/runShinyPhase1b.R<\/a>","<a href=\"#\">R/plotBeta.R<\/a>","<a href=\"#\">R/ocRctPredprobDist.R<\/a>","<a href=\"#\">R/ocPostprob.R<\/a>","<a href=\"#\">R/dbetabinom.R<\/a>","<a href=\"#\">R/postprob.R<\/a>","<a href=\"#\">R/ocRctPostprobDist.R<\/a>","<a href=\"#\">R/ocPredprob.R<\/a>","<a href=\"#\">R/postprobDist.R<\/a>","<a href=\"#\">R/ocPredprobDist.R<\/a>","<a href=\"#\">R/predprobDist.R<\/a>","<a href=\"#\">R/ocPostprobDist.R<\/a>","<a href=\"#\">R/betadiff.R<\/a>","<a href=\"#\">R/predprob.R<\/a>"],[327,309,137,102,91,72,74,49,37,19,170,447,269,234,110,288,335,211,404,311,243,139,80],[139,126,69,56,45,29,27,17,12,4,86,263,90,74,31,143,165,66,218,125,101,54,21],[0,0,0,0,0,0,0,0,0,0,12,209,86,71,30,139,161,65,215,124,101,54,21],[139,126,69,56,45,29,27,17,12,4,74,54,4,3,1,4,4,1,3,1,0,0,0],["0","0","0","0","0","0","0","0","0","0","0","91","46139","316088","299243","213","419","134477","103","15316","219","751","2313"],["0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","13.95%","79.47%","95.56%","95.95%","96.77%","97.20%","97.58%","98.48%","98.62%","99.20%","100.00%","100.00%","100.00%"]],"container":"<table class=\"row-border\">\n  <thead>\n    <tr>\n      <th>File<\/th>\n      <th>Lines<\/th>\n      <th>Relevant<\/th>\n      <th>Covered<\/th>\n      <th>Missed<\/th>\n      <th>Hits / Line<\/th>\n      <th>Coverage<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"searching":false,"dom":"t","paging":false,"columnDefs":[{"targets":6,"createdCell":"function(td, cellData, rowData, row, col) {\n  var percent = cellData.replace(\"%\", \"\");\n  if (percent > 90) {\n    var grad = \"linear-gradient(90deg, #edfde7 \" + cellData + \", white \" + cellData + \")\";\n  } else if (percent > 75) {\n    var grad = \"linear-gradient(90deg, #f9ffe5 \" + cellData + \", white \" + cellData + \")\";\n  } else {\n    var grad = \"linear-gradient(90deg, #fcece9 \" + cellData + \", white \" + cellData + \")\";\n  }\n  $(td).css(\"background\", grad);\n}\n"},{"className":"dt-right","targets":[1,2,3,4]},{"name":"File","targets":0},{"name":"Lines","targets":1},{"name":"Relevant","targets":2},{"name":"Covered","targets":3},{"name":"Missed","targets":4},{"name":"Hits / Line","targets":5},{"name":"Coverage","targets":6}],"order":[],"autoWidth":false,"orderClasses":false},"callback":"function(table) {\ntable.on('click.dt', 'a', function() {\n  files = $('div#files div');\n  files.not('div.hidden').addClass('hidden');\n  id = $(this).text();\n  files.filter('div[id=\\'' + id + '\\']').removeClass('hidden');\n  $('ul.nav a[data-value=Source]').text(id).tab('show');\n});\n}"},"evals":["options.columnDefs.0.createdCell","callback"],"jsHooks":[]}</script>
+          <div class="datatables html-widget html-fill-item" id="htmlwidget-8775a3f96ab5c55b8aa7" style="width:100%;height:500px;"></div>
+          <script type="application/json" data-for="htmlwidget-8775a3f96ab5c55b8aa7">{"x":{"filter":"none","vertical":false,"fillContainer":false,"data":[["<a href=\"#\">R/oc2.R<\/a>","<a href=\"#\">R/oc3.R<\/a>","<a href=\"#\">R/plotDecision.R<\/a>","<a href=\"#\">R/sumbetadiff.R<\/a>","<a href=\"#\">R/plotBounds.R<\/a>","<a href=\"#\">R/boundsPredprob.R<\/a>","<a href=\"#\">R/sumTable.R<\/a>","<a href=\"#\">R/plotOc.R<\/a>","<a href=\"#\">R/runShinyPhase1b.R<\/a>","<a href=\"#\">R/plotBeta.R<\/a>","<a href=\"#\">R/ocRctPredprobDist.R<\/a>","<a href=\"#\">R/ocPostprob.R<\/a>","<a href=\"#\">R/dbetabinom.R<\/a>","<a href=\"#\">R/postprob.R<\/a>","<a href=\"#\">R/ocRctPostprobDist.R<\/a>","<a href=\"#\">R/ocPredprob.R<\/a>","<a href=\"#\">R/postprobDist.R<\/a>","<a href=\"#\">R/ocPredprobDist.R<\/a>","<a href=\"#\">R/predprobDist.R<\/a>","<a href=\"#\">R/ocPostprobDist.R<\/a>","<a href=\"#\">R/betadiff.R<\/a>","<a href=\"#\">R/boundsPostprob.R<\/a>","<a href=\"#\">R/predprob.R<\/a>"],[327,309,137,102,91,74,49,37,19,170,447,269,234,110,288,335,211,404,311,243,139,78,80],[139,126,69,56,45,27,17,12,4,86,263,90,74,31,143,165,66,218,125,101,54,42,21],[0,0,0,0,0,0,0,0,0,12,209,86,71,30,139,161,65,215,124,101,54,42,21],[139,126,69,56,45,27,17,12,4,74,54,4,3,1,4,4,1,3,1,0,0,0,0],["0","0","0","0","0","0","0","0","0","0","91","46139","316115","299298","213","419","134477","103","15316","219","751","9","2313"],["0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","0.00%","13.95%","79.47%","95.56%","95.95%","96.77%","97.20%","97.58%","98.48%","98.62%","99.20%","100.00%","100.00%","100.00%","100.00%"]],"container":"<table class=\"row-border\">\n  <thead>\n    <tr>\n      <th>File<\/th>\n      <th>Lines<\/th>\n      <th>Relevant<\/th>\n      <th>Covered<\/th>\n      <th>Missed<\/th>\n      <th>Hits / Line<\/th>\n      <th>Coverage<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"searching":false,"dom":"t","paging":false,"columnDefs":[{"targets":6,"createdCell":"function(td, cellData, rowData, row, col) {\n  var percent = cellData.replace(\"%\", \"\");\n  if (percent > 90) {\n    var grad = \"linear-gradient(90deg, #edfde7 \" + cellData + \", white \" + cellData + \")\";\n  } else if (percent > 75) {\n    var grad = \"linear-gradient(90deg, #f9ffe5 \" + cellData + \", white \" + cellData + \")\";\n  } else {\n    var grad = \"linear-gradient(90deg, #fcece9 \" + cellData + \", white \" + cellData + \")\";\n  }\n  $(td).css(\"background\", grad);\n}\n"},{"className":"dt-right","targets":[1,2,3,4]},{"name":"File","targets":0},{"name":"Lines","targets":1},{"name":"Relevant","targets":2},{"name":"Covered","targets":3},{"name":"Missed","targets":4},{"name":"Hits / Line","targets":5},{"name":"Coverage","targets":6}],"order":[],"autoWidth":false,"orderClasses":false},"callback":"function(table) {\ntable.on('click.dt', 'a', function() {\n  files = $('div#files div');\n  files.not('div.hidden').addClass('hidden');\n  id = $(this).text();\n  files.filter('div[id=\\'' + id + '\\']').removeClass('hidden');\n  $('ul.nav a[data-value=Source]').text(id).tab('show');\n});\n}"},"evals":["options.columnDefs.0.createdCell","callback"],"jsHooks":[]}</script>
         </div>
         <div class="tab-pane" title="Source" data-value="Source" id="tab-covr-2">
           <div id="files">
-            <div id="R/ocRctPredprobDist.R" class="hidden">
+            <div id="R/ocRctPostprobDist.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
@@ -133,329 +133,329 @@ <h2>phase1b coverage - 64.86%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A helper function for [ocRctPredprobDist()] to generate a single trial decision and sample size.</pre>
+                      <pre class="language-r">#' A helper function for [ocRctPostprobDist()] to generate numeric of decisions `decisions` and</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>
+                      <pre class="language-r">#' random looks `all_sizes`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_decisionDist</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams ocPredprobDist</pre>
+                      <pre class="language-r">#' @inheritParams h_get_decision_one_predprob</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams h_get_decision_two_predprob</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list with the following elements :</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `decision` : decision `flag` with `TRUE` for Go, `FALSE` for Stop, `NA` for Gray zone.</pre>
+                      <pre class="language-r">#' @typed randRatio : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `all_sizes` : resulting sample size.</pre>
+                      <pre class="language-r">#'  The randomisation ratio between treatment and control. Must be greater than 0 and maximum of 1.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `nActive` : number of patients in the active arm.</pre>
+                      <pre class="language-r">#' @typed Nmax : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `nControl` : number of patients in the control arm.</pre>
+                      <pre class="language-r">#' The max sample size or the sample size of final look.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_decision_one_RctpredprobDist &lt;- function(</pre>
+                      <pre class="language-r">#' @return A list with the following elements :</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nnr,</pre>
+                      <pre class="language-r">#'  - `decision` : decision `flag` with `TRUE` for Go, `FALSE` for Stop, `NA` for Gray zone.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nnE,</pre>
+                      <pre class="language-r">#'  - `all_sizes` : resulting number of look size, anything below maximum</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nnF,</pre>
+                      <pre class="language-r">#'   look size is an indicated interim, Futility or Efficacy or both.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pE,</pre>
+                      <pre class="language-r">#'  - `nActive` : mean of look size for Active arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pS,</pre>
+                      <pre class="language-r">#'  - `nControl` : mean of look size for Control arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parE,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parS,</pre>
+                      <pre class="language-r">h_get_decisionDist_rct &lt;- function(nnr,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tT,</pre>
+                      <pre class="language-r">                                   nnrE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    phiU,</pre>
+                      <pre class="language-r">                                   nnrF,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    phiL,</pre>
+                      <pre class="language-r">                                   pE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    deltaE,</pre>
+                      <pre class="language-r">                                   pS,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    deltaF,</pre>
+                      <pre class="language-r">                                   parE = c(1, 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights,</pre>
+                      <pre class="language-r">                                   parS = c(1, 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weightsS,</pre>
+                      <pre class="language-r">                                   tL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    relativeDelta = FALSE,</pre>
+                      <pre class="language-r">                                   tU,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    randRatio = 1) {</pre>
+                      <pre class="language-r">                                   deltaE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">31</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnE, lower = 1, sorted = TRUE, any.missing = FALSE)</pre>
+                      <pre class="language-r">                                   deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">32</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnF, lower = 1, sorted = TRUE, any.missing = FALSE)</pre>
+                      <pre class="language-r">                                   relativeDelta,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">33</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnr, lower = 1, sorted = TRUE)</pre>
+                      <pre class="language-r">                                   randRatio = 1,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">34</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(pE, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">                                   Nmax) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">35</td>
                     <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(pS, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">  assert_numeric(nnr, finite = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">36</td>
                     <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(randRatio, lower = 1, finite = TRUE)</pre>
+                      <pre class="language-r">  assert_numeric(nnrE, max.len = length(nnr), any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">37</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  assert_numeric(nnrF, max.len = length(nnr), any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">38</td>
                     <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Nmax &lt;- max(nnr)</pre>
+                      <pre class="language-r">  assert_number(pE, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">39</td>
                     <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  decision &lt;- NA</pre>
+                      <pre class="language-r">  assert_number(pS, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">40</td>
                     <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  activeProp &lt;- randRatio / (randRatio + 1)</pre>
+                      <pre class="language-r">  assert_numeric(parE, lower = 0, finite = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">41</td>
                     <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  NmaxActive &lt;- ceiling(activeProp * Nmax)</pre>
+                      <pre class="language-r">  assert_numeric(parS, lower = 0, finite = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">42</td>
                     <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  NmaxControl &lt;- Nmax - NmaxActive</pre>
+                      <pre class="language-r">  assert_number(tL, 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">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  assert_number(tU, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">44</td>
                     <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  isActive &lt;- sample(</pre>
+                      <pre class="language-r">  assert_number(deltaE, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">45</td>
                     <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = rep(c(TRUE, FALSE), c(NmaxActive, NmaxControl)),</pre>
+                      <pre class="language-r">  assert_number(deltaF, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">46</td>
                     <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size = Nmax,</pre>
+                      <pre class="language-r">  assert_flag(relativeDelta)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">47</td>
                     <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    replace = FALSE</pre>
+                      <pre class="language-r">  assert_number(randRatio, na.ok = FALSE, upper = 1, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">48</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  assert_number(Nmax, lower = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">49</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  response &lt;- rbinom(Nmax, size = 1, prob = ifelse(isActive, pE, pS))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
@@ -472,298 +472,298 @@ <h2>phase1b coverage - 64.86%</h2>
                       <pre class="language-r">  size_look &lt;- nnr[index_look]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">52</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ### Decision 1:</pre>
+                      <pre class="language-r">  all_sizes &lt;- decision &lt;- nActive &lt;- nControl &lt;- NA</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">53</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # The criteria for Decision 1 for Interim looks are :</pre>
+                      <pre class="language-r">  activeProp &lt;- randRatio / (randRatio + 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">54</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Interim GO =  P(successful trial at final) &gt; phiU</pre>
+                      <pre class="language-r">  NmaxActive &lt;- ceiling(activeProp * Nmax)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">55</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Interim STOP = P(successful trial at final) &lt; phiL</pre>
+                      <pre class="language-r">  NmaxControl &lt;- Nmax - NmaxActive</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">56</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  while (is.na(decision) &amp;&amp; index_look &lt; length(nnr)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">57</td>
-                    <td class="coverage">278<em>x</em></td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xActive &lt;- response[which(isActive[1:size_look])]</pre>
+                      <pre class="language-r">  isActive &lt;- sample(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage">278<em>x</em></td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xControl &lt;- response[which(!isActive[1:size_look])]</pre>
+                      <pre class="language-r">    x = rep(c(TRUE, FALSE), c(NmaxActive, NmaxControl)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage">278<em>x</em></td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnF) {</pre>
+                      <pre class="language-r">    size = Nmax,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">60</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      interim_qU &lt;- predprobDist(</pre>
+                      <pre class="language-r">    replace = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">61</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(xActive),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">62</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = length(xActive),</pre>
+                      <pre class="language-r">  response &lt;- rbinom(Nmax, size = 1, prob = ifelse(isActive, pE, pS))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">63</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xS = sum(xControl),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nS = length(xControl),</pre>
+                      <pre class="language-r">  while (is.na(decision) &amp;&amp; index_look &lt;= length(nnr)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">65</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Nmax = NmaxActive,</pre>
+                      <pre class="language-r">    ## current data in both arms:</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">617<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NmaxControl = NmaxControl,</pre>
+                      <pre class="language-r">    xActive &lt;- response[which(isActive[1:size_look])]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">67</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">617<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        delta = deltaF,</pre>
+                      <pre class="language-r">    xControl &lt;- response[which(!isActive[1:size_look])]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">68</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">617<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">    if (size_look %in% nnrF) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">70</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">492<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weights = weights,</pre>
+                      <pre class="language-r">      qL &lt;- postprobDist(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">71</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">492<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parS = parS,</pre>
+                      <pre class="language-r">        x = sum(xControl),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">492<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weightsS = weightsS,</pre>
+                      <pre class="language-r">        n = length(xControl),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">73</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">492<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        thetaT = tT</pre>
+                      <pre class="language-r">        xS = sum(xActive),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">492<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )$result</pre>
+                      <pre class="language-r">        nS = length(xActive),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">75</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">492<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &lt; phiL, FALSE, decision)</pre>
+                      <pre class="language-r">        delta = deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">492<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">77</td>
-                    <td class="coverage">278<em>x</em></td>
+                    <td class="coverage">492<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
+                      <pre class="language-r">        parE = parS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">78</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">492<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      interim_qU &lt;- predprobDist(</pre>
+                      <pre class="language-r">        parS = parE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">79</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(xActive),</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">492<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = length(xActive),</pre>
+                      <pre class="language-r">      decision &lt;- ifelse(qL &gt;= tL, FALSE, NA)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">81</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xS = sum(xControl),</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">82</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">617<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nS = length(xControl),</pre>
+                      <pre class="language-r">    if (size_look %in% nnrE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">83</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">613<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Nmax = NmaxActive,</pre>
+                      <pre class="language-r">      qU &lt;- postprobDist(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">84</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">613<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NmaxControl = NmaxControl,</pre>
+                      <pre class="language-r">        x = sum(xActive),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">85</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">613<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        delta = deltaE,</pre>
+                      <pre class="language-r">        n = length(xActive),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">86</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">613<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">        xS = sum(xControl),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">87</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">613<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">        nS = length(xControl),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">88</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">613<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weights = weights,</pre>
+                      <pre class="language-r">        delta = deltaE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">89</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">613<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parS = parS,</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">90</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">613<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weightsS = weightsS,</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">91</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">613<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        thetaT = tT</pre>
+                      <pre class="language-r">        parS = parS</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">92</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )$result</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">93</td>
-                    <td class="coverage">274<em>x</em></td>
+                    <td class="coverage">613<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &gt; phiU, TRUE, decision)</pre>
+                      <pre class="language-r">      decision &lt;- ifelse(qU &lt; tU, decision, TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -775,366 +775,366 @@ <h2>phase1b coverage - 64.86%</h2>
                   </tr>
                   <tr class="covered">
                     <td class="num">95</td>
-                    <td class="coverage">278<em>x</em></td>
+                    <td class="coverage">617<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    index_look &lt;- index_look + 1</pre>
+                      <pre class="language-r">    nActive &lt;- length(xActive)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">96</td>
-                    <td class="coverage">278<em>x</em></td>
+                    <td class="coverage">617<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
+                      <pre class="language-r">    nControl &lt;- length(xControl)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">97</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">617<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    all_sizes &lt;- size_look</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">98</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">617<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # The criteria for Decision 1 for Final looks are:</pre>
+                      <pre class="language-r">    index_look &lt;- index_look + 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">99</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">617<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Final GO = P(RR &gt; p0 + deltaE | data) =&gt; tT</pre>
+                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Final STOP = P(RR &gt; p0 + deltaF | data ) &lt; tT</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">101</td>
                     <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.na(decision)) {</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">102</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
+                      <pre class="language-r">    decision = decision,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">103</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xActive &lt;- response[which(isActive[1:size_look])]</pre>
+                      <pre class="language-r">    all_sizes = all_sizes,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">104</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xControl &lt;- response[which(!isActive[1:size_look])]</pre>
+                      <pre class="language-r">    nActive = nActive,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">105</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
+                      <pre class="language-r">    nControl = nControl</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">106</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      final_eff_qU &lt;- postprobDist(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">107</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(xActive),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">108</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = length(xActive),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">109</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xS = sum(xControl),</pre>
+                      <pre class="language-r">#' Creating list for operating characteristics</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">110</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nS = length(xControl),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">111</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        delta = deltaE,</pre>
+                      <pre class="language-r">#' Generates operating characteristics for [ocRctPostprobDist()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">112</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">113</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">#' @inheritParams h_get_decisionDist_rct</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">114</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weights = weights, # for activeBetamixPost</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">115</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parS = parS,</pre>
+                      <pre class="language-r">#' @return A list of results containing :</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">116</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weightsS = weightsS # for controlBetamixPost</pre>
+                      <pre class="language-r">#' - `ExpectedN`: expected number of patients in the trials in both treatment and SOC group</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">#' - `PrStopEarly`: probability to stop the trial early (before reaching the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">118</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(final_eff_qU &gt;= tT, TRUE, decision)</pre>
+                      <pre class="language-r">#' maximum sample size)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' - `PrEarlyEff`: probability of Early Go decision</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">120</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnF) {</pre>
+                      <pre class="language-r">#' - `PrEarlyFut`: probability of for Early Stop decision</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">121</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      final_fu_qU &lt;- postprobDist(</pre>
+                      <pre class="language-r">#' - `PrEfficacy`: probability of Go decision</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">122</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(xActive),</pre>
+                      <pre class="language-r">#' - `PrFutility`: probability of Stop decision</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">123</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = length(xActive),</pre>
+                      <pre class="language-r">#' - `PrGrayZone`: probability between Go and Stop ,"Evaluate" or Gray decision zone</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">124</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xS = sum(xControl),</pre>
+                      <pre class="language-r">#' - `ExpectedNactive` : the mean of the number of patients in treatment arm</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">125</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nS = length(xControl),</pre>
+                      <pre class="language-r">#' - `ExpectedNcontrol`: the mean of the number of patients in control arm</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">126</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        delta = deltaF,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">127</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">128</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">129</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weights = weights, # for activeBetamixPost</pre>
+                      <pre class="language-r">h_get_oc_rct &lt;- function(all_sizes, Nmax, nActive, nControl, decision) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">130</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parS = parS,</pre>
+                      <pre class="language-r">  assert_numeric(nActive, any.missing = FALSE, len = length(all_sizes))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">131</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weightsS = weightsS # for controlBetamixPost</pre>
+                      <pre class="language-r">  assert_numeric(nControl, any.missing = FALSE, len = length(all_sizes))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">132</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  assert_true(all(nActive + nControl == all_sizes))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">133</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(final_fu_qU &lt; tT, FALSE, decision)</pre>
+                      <pre class="language-r">  assert_true(Nmax &gt;= max(all_sizes))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">135</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  tmp &lt;- h_get_oc(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">136</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">    all_sizes = all_sizes,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">137</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nActive = length(xActive),</pre>
+                      <pre class="language-r">    Nmax = Nmax,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">138</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nControl = length(xControl),</pre>
+                      <pre class="language-r">    decision = decision</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">139</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    decision = decision,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">140</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_sizes = length(xActive) + length(xControl)</pre>
+                      <pre class="language-r">  tmp$ExpectedNactive &lt;- mean(nActive)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">141</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  tmp$ExpectedNcontrol &lt;- mean(nControl)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">142</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  tmp</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Generating random decision and sample size looks</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">#'</pre>
+                      <pre class="language-r">#' Calculate operating characteristics for RCT against SOC,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A helper function for [ocRctPredprobDist()] to generate a single trial decision and sample size.</pre>
+                      <pre class="language-r">#' using the posterior probability method with beta priors</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -1148,4931 +1148,4797 @@ <h2>phase1b coverage - 64.86%</h2>
                     <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_decision_one_RctpredprobDist</pre>
+                      <pre class="language-r">#' We emulate a randomized-controlled trial setting where at any given sample size,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams ocPredprobDist</pre>
+                      <pre class="language-r">#' there exists the number of patients enrolled in either standard of care (SOC) or control arm, and</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' a treatment or experimental arm. The allocation of patients will depend on the</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list with the following elements :</pre>
+                      <pre class="language-r">#' randomization ratio set by the user and is rounded to the next higher integer.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `decision` : decision `flag` with `TRUE` for Go, `FALSE` for Stop, `NA` for Gray zone.</pre>
+                      <pre class="language-r">#' Therefore the sequence of patients is determined from the start, such that the number of</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `all_sizes` : resulting sample size.</pre>
+                      <pre class="language-r">#' patients in both arms is constant across trial simulations, however the number of patients</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `nActive` : number of patients in the active arm.</pre>
+                      <pre class="language-r">#' within the control and treatment arm is determined by the randomisation ratio.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `nControl` : number of patients in the control arm.</pre>
+                      <pre class="language-r">#' Interim looks are for sample sizes below that of the final sample size.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">156</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">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_decision_two_RctpredprobDist &lt;- function(</pre>
+                      <pre class="language-r">#' Final looks are only performed at the maximum sample size.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nnE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nnF,</pre>
+                      <pre class="language-r">#' At each interim or final look, a futility or efficacy or both can be performed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nnr,</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">    pE,</pre>
+                      <pre class="language-r">#' The rules for Stop, Go and Gray Zone (where applicable), and use of beta priors are the same</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pS,</pre>
+                      <pre class="language-r">#' as in [ocPostprobDist()] where the only difference here is to emulate a</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parE,</pre>
+                      <pre class="language-r">#' randomized-controlled trial setting.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parS,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tF,</pre>
+                      <pre class="language-r">#' The returned value is a list with the following elements:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tT,</pre>
+                      <pre class="language-r">#' - `oc`: matrix with operating characteristics with the following details:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    phiU,</pre>
+                      <pre class="language-r">#' - `ExpectedN`: expected number of patients in the trials in both treatment and SOC group</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    phiFu,</pre>
+                      <pre class="language-r">#' - `ExpectedNactive` : the mean of the number of patients in treatment arm</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    deltaE,</pre>
+                      <pre class="language-r">#' - `ExpectedNcontrol`: the mean of the number of patients in control arm</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    deltaF,</pre>
+                      <pre class="language-r">#' - `PrStopEarly`: probability to stop the trial early (before reaching the maximum sample size)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights,</pre>
+                      <pre class="language-r">#' - `PrEarlyEff`: probability of Early Go decision</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weightsS,</pre>
+                      <pre class="language-r">#' - `PrEarlyFut`: probability of Early Stop decision</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    relativeDelta,</pre>
+                      <pre class="language-r">#' - `PrEfficacy`: probability of Go decision</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    randRatio) {</pre>
+                      <pre class="language-r">#' - `PrFutility`: probability of Stop decision</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">175</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnE, lower = 1, sorted = TRUE, any.missing = FALSE)</pre>
+                      <pre class="language-r">#' - `PrGrayZone`: probability of Evaluate or "Gray Zone" decision (between Go and Stop)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">176</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnF, lower = 1, sorted = TRUE, any.missing = FALSE)</pre>
+                      <pre class="language-r">#' - `Decision` : numeric of results with `TRUE` as Go, `FALSE` as Stop and `NA` as Evaluate decision.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">177</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnr, lower = 1, sorted = TRUE)</pre>
+                      <pre class="language-r">#' - `SampleSize` : numeric of sample sizes from `nnE` or `nnF` or both.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">178</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(pE, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">#' - `wiggled_nnE` : user input for `nnE` with random distance applied.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">179</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(pS, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">#' - `wiggled_nnF` : user input for `nnF` with random distance applied.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">180</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(randRatio, lower = 1, finite = TRUE)</pre>
+                      <pre class="language-r">#' - `wiggled_dist` : magnitude of random distance applied in order of input looks.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' - `params` : all user input arguments.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">182</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Nmax &lt;- max(nnr)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">183</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  NmaxControl &lt;- max(nnF)</pre>
+                      <pre class="language-r">#' @inheritParams h_get_decisionDist</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">184</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  index_look &lt;- 1</pre>
+                      <pre class="language-r">#' @inheritParams h_get_decisionDist_rct</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">185</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  size_look &lt;- nnr[index_look]</pre>
+                      <pre class="language-r">#' @inheritParams ocPostprobDist</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">186</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  all_sizes &lt;- decision &lt;- nActive &lt;- nControl &lt;- NA</pre>
+                      <pre class="language-r">#' @typed pE : number</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">187</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  activeProp &lt;- randRatio / (randRatio + 1)</pre>
+                      <pre class="language-r">#'  Response rate in Treatment group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @typed pS : number</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">189</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  NmaxActive &lt;- ceiling(activeProp * Nmax)</pre>
+                      <pre class="language-r">#'  Response rate in Control group.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">190</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  NmaxControl &lt;- Nmax - NmaxActive</pre>
+                      <pre class="language-r">#' @example examples/ocRctPostprobDist.R</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">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">192</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  isActive &lt;- sample(</pre>
+                      <pre class="language-r">ocRctPostprobDist &lt;- function(nnE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">193</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = rep(c(TRUE, FALSE), c(NmaxActive, NmaxControl)),</pre>
+                      <pre class="language-r">                              pE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">194</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size = Nmax,</pre>
+                      <pre class="language-r">                              pS,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">195</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    replace = FALSE</pre>
+                      <pre class="language-r">                              deltaE,</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">                              deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">197</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  response &lt;- rbinom(Nmax, size = 1, prob = ifelse(isActive, pE, pS))</pre>
+                      <pre class="language-r">                              relativeDelta = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">198</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  index_look &lt;- 1</pre>
+                      <pre class="language-r">                              tL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">199</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  size_look &lt;- nnr[index_look]</pre>
+                      <pre class="language-r">                              tU,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # The criteria for Decision 2 for Interim looks are :</pre>
+                      <pre class="language-r">                              parE = c(a = 1, b = 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Interim GO : P ( successful at final) &gt; phiU</pre>
+                      <pre class="language-r">                              parS = c(a = 1, b = 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Interim STOP : P ( unsuccessful at final ) &gt; phiFu</pre>
+                      <pre class="language-r">                              randRatio = 1,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">203</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  while (is.na(decision) &amp;&amp; index_look &lt; length(nnr)) {</pre>
+                      <pre class="language-r">                              sim,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">204</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xActive &lt;- response[which(isActive[1:size_look])]</pre>
+                      <pre class="language-r">                              wiggle = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">205</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xControl &lt;- response[which(!isActive[1:size_look])]</pre>
+                      <pre class="language-r">                              nnF = nnE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">206</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
+                      <pre class="language-r">  assert_numeric(nnE, min.len = 1, lower = 1, upper = max(nnE), any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">207</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      interim_qU &lt;- predprobDist(</pre>
+                      <pre class="language-r">  assert_number(pE, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">208</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(xActive),</pre>
+                      <pre class="language-r">  assert_number(pS, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">209</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = length(xActive),</pre>
+                      <pre class="language-r">  assert_number(deltaE, upper = 1, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">210</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xS = sum(xControl),</pre>
+                      <pre class="language-r">  assert_number(deltaF, upper = 1, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">211</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nS = length(xControl),</pre>
+                      <pre class="language-r">  assert_flag(relativeDelta)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">212</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Nmax = NmaxActive,</pre>
+                      <pre class="language-r">  assert_number(tL, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">213</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NmaxControl = NmaxControl,</pre>
+                      <pre class="language-r">  assert_number(tU, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">214</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        delta = deltaE,</pre>
+                      <pre class="language-r">  assert_numeric(parE, lower = 0, finite = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">215</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">  assert_numeric(parS, lower = 0, finite = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">216</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">  assert_number(sim, lower = 1, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">217</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weights = weights,</pre>
+                      <pre class="language-r">  assert_flag(wiggle)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">218</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parS = parS,</pre>
+                      <pre class="language-r">  assert_numeric(nnF, min.len = 0, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">219</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weightsS = weightsS,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">220</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        thetaT = tT</pre>
+                      <pre class="language-r">  if (sim &lt; 50000) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">221</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )$result</pre>
+                      <pre class="language-r">    warning("Advise to use sim &gt;= 50000 to achieve convergence")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">222</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &gt; phiU, TRUE, decision)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">223</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">  decision &lt;- all_sizes &lt;- nActive &lt;- nControl &lt;- vector(length = sim)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">224</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnF) {</pre>
+                      <pre class="language-r">  nnE &lt;- sort(nnE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">225</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      interim_qU &lt;- 1 - predprobDist(</pre>
+                      <pre class="language-r">  nnF &lt;- sort(nnF)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">226</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(xActive),</pre>
+                      <pre class="language-r">  nn &lt;- sort(unique(c(nnF, nnE)))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">227</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = length(xActive),</pre>
+                      <pre class="language-r">  nL &lt;- length(nn)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">228</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xS = sum(xControl),</pre>
+                      <pre class="language-r">  nn &lt;- sort(unique(c(nnF, nnE)))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">229</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nS = length(xControl),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">230</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Nmax = NmaxActive,</pre>
+                      <pre class="language-r">  nL &lt;- length(nn)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">231</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NmaxControl = NmaxControl,</pre>
+                      <pre class="language-r">  Nstart &lt;- nn[1]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">232</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        delta = deltaF,</pre>
+                      <pre class="language-r">  Nmax &lt;- nn[nL]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">233</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">234</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">  for (k in seq_len(sim)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">235</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weights = weights,</pre>
+                      <pre class="language-r">    if (length(nn) != 1 &amp;&amp; wiggle) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">236</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parS = parS,</pre>
+                      <pre class="language-r">      dist &lt;- h_get_distance(nn = nn)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">237</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weightsS = weightsS,</pre>
+                      <pre class="language-r">      nnr &lt;- h_get_looks(dist = dist, nnE = nnE, nnF = nnF)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">238</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        thetaT = tT</pre>
+                      <pre class="language-r">      nnrE &lt;- nnr$nnrE</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">239</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )$result</pre>
+                      <pre class="language-r">      nnrF &lt;- nnr$nnrF</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">      decision &lt;- ifelse(interim_qU &gt; phiFu, FALSE, decision)</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">241</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      dist &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">242</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    index_look &lt;- index_look + 1</pre>
+                      <pre class="language-r">      nnrE &lt;- nnE</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">243</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
+                      <pre class="language-r">      nnrF &lt;- nnF</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">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">245</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # The criteria for Decision 2 for Futility looks are :</pre>
+                      <pre class="language-r">    nnr &lt;- unique(c(nnrE, nnrF))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">246</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Final GO = P( RR &gt; p0 + delta ) &gt; tT</pre>
+                      <pre class="language-r">    tmp &lt;- h_get_decisionDist_rct(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">247</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Final STOP = P( RR &lt; p1 - delta ) &gt; tF</pre>
+                      <pre class="language-r">      nnr = nnr,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">248</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.na(decision)) {</pre>
+                      <pre class="language-r">      nnrE = nnrE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">249</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
+                      <pre class="language-r">      nnrF = nnrF,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">250</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xActive &lt;- response[which(isActive[1:size_look])]</pre>
+                      <pre class="language-r">      pE = pE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">251</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xControl &lt;- response[which(!isActive[1:size_look])]</pre>
+                      <pre class="language-r">      pS = pS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">252</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
+                      <pre class="language-r">      parE = c(1, 1),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">253</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      final_eff_qU &lt;- postprobDist(</pre>
+                      <pre class="language-r">      parS = c(1, 1),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">254</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(xActive),</pre>
+                      <pre class="language-r">      tL = tL,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">255</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = length(xActive),</pre>
+                      <pre class="language-r">      tU = tU,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">256</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xS = sum(xControl),</pre>
+                      <pre class="language-r">      deltaE = deltaE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">257</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nS = length(xControl),</pre>
+                      <pre class="language-r">      deltaF = deltaF,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">258</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        delta = deltaE,</pre>
+                      <pre class="language-r">      relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">259</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">      Nmax = Nmax</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">260</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">261</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parS = parS</pre>
+                      <pre class="language-r">    decision[k] &lt;- tmp$decision</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">262</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    all_sizes[k] &lt;- tmp$all_sizes</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">263</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(final_eff_qU &gt; tT, TRUE, decision)</pre>
+                      <pre class="language-r">    nActive[k] &lt;- tmp$nActive</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">264</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    nControl[k] &lt;- tmp$nControl</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">265</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnF) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">266</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      final_fu_qU &lt;- 1 - postprobDist(</pre>
+                      <pre class="language-r">  oc &lt;- h_get_oc_rct(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">267</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(xActive),</pre>
+                      <pre class="language-r">    all_sizes = all_sizes,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">268</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = length(xActive),</pre>
+                      <pre class="language-r">    Nmax = Nmax,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">269</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xS = sum(xControl),</pre>
+                      <pre class="language-r">    nActive = nActive,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">270</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nS = length(xControl),</pre>
+                      <pre class="language-r">    nControl = nControl,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">271</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        delta = deltaF,</pre>
+                      <pre class="language-r">    decision = decision</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">272</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">273</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">274</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parS = parS</pre>
+                      <pre class="language-r">    oc = oc,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">275</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">    ExpectedN = mean(all_sizes),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">276</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(final_fu_qU &gt; tF, FALSE, decision)</pre>
+                      <pre class="language-r">    ExpectedNactive = mean(nActive),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">277</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">    ExpectedNcontrol = mean(nControl),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">278</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">    Decision = decision,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">279</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">    SampleSize = all_sizes,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">280</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nActive = length(xActive),</pre>
+                      <pre class="language-r">    SampleSizeActive = nActive,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">281</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nControl = length(xControl),</pre>
+                      <pre class="language-r">    SampleSizeControl = nControl,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">282</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    decision = decision,</pre>
+                      <pre class="language-r">    union_nn = nnr,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">283</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_sizes = length(xActive) + length(xControl)</pre>
+                      <pre class="language-r">    wiggled_nnE = nnrE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">284</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">    wiggled_nnF = nnrF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">285</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">    wiggle_dist = dist,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">286</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">    params = as.list(match.call(expand.dots = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Calculate operating characteristics for RCT against SOC,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' using the predictive probability method with beta priors</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/oc3.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Run simulations to obtain operating characteristics for methods that include</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' We emulate a randomized-controlled trial setting where at any given sample size,</pre>
+                      <pre class="language-r">#' historical data on control</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' there exists the number of patients enrolled in either standard of care (SOC) or control arm, and</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a treatment or experimental arm. The allocation of patients will depend on the</pre>
+                      <pre class="language-r">#' This function differs from \code{\link{oc2}} with respect to how the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' randomization ratio set by the user and is rounded to the next higher integer.</pre>
+                      <pre class="language-r">#' historical and actual control rates are determined, see the parameter</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Therefore the sequence of patients is determined from the start, such that the number of</pre>
+                      <pre class="language-r">#' \code{controlRateDist}.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' patients in both arms is constant across trial simulations, however the number of patients</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' within the control and treatment arm is determined by the randomisation ratio.</pre>
+                      <pre class="language-r">#' Interim looks are done three times total including the last one, with</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Interim looks are for sample sizes below that of the final sample size.</pre>
+                      <pre class="language-r">#' approximately equal distance between the looks.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Final looks are only performed at the maximum sample size.</pre>
+                      <pre class="language-r">#' @param method 8 different methods can be selected:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' PointMass.Bayes: single arm trial with pointmass derived from the historical</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' At each interim or final look, a futility or efficacy or both can be performed.</pre>
+                      <pre class="language-r">#' data on the control response rate, see \code{\link{postprob}}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Prior.Bayes: single arm trial with prior derived from the historical data on</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The rules for Stop, Go and Gray Zone (where applicable), and use of beta priors are the same</pre>
+                      <pre class="language-r">#' the control response rate, see \code{\link{postprobDist}}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' as in [ocPredprobDist()] where the only difference here is to emulate a</pre>
+                      <pre class="language-r">#' RCT.Bayes: RCT (1:1 randomization) with prior derived from the historical data on</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' randomized-controlled trial setting.</pre>
+                      <pre class="language-r">#' the control response rate, see \code{\link{postprobDist}}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' RCT.vanillaBayes: RCT, not using the historical control data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The returned value is a list with the following elements:</pre>
+                      <pre class="language-r">#' PointMass.PP: single arm trial with pointmass derived from the historical</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `oc`: matrix with operating characteristics with the following details:</pre>
+                      <pre class="language-r">#' data on the control response rate, and using the predictive probability</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `ExpectedN`: expected number of patients in the trials in both treatment and SOC group</pre>
+                      <pre class="language-r">#' method, see \code{\link{predprob}}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `ExpectedNactive` : the mean of the number of patients in treatment arm</pre>
+                      <pre class="language-r">#' Prior.PP: single arm trial with prior derived from the historical data on</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `ExpectedNcontrol`: the mean of the number of patients in control arm</pre>
+                      <pre class="language-r">#' the control response rate, and using the predictive probability</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `PrStopEarly`: probability to stop the trial early (before reaching the maximum sample size)</pre>
+                      <pre class="language-r">#' method, see \code{\link{predprobDist}}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `PrEarlyEff`: probability of Early Go decision</pre>
+                      <pre class="language-r">#' RCT.PP: RCT (1:1 randomization) with prior derived from the historical data on</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `PrEarlyFut`: probability of Early Stop decision</pre>
+                      <pre class="language-r">#' the control response rate, and using the predictive probability</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `PrEfficacy`: probability of Go decision</pre>
+                      <pre class="language-r">#' method, see \code{\link{predprobDist}}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `PrFutility`: probability of Stop decision</pre>
+                      <pre class="language-r">#' RCT.vanillaPP: RCT and using the predictive probability</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `PrGrayZone`: probability of Evaluate or "Gray Zone" decision (between Go and Stop)</pre>
+                      <pre class="language-r">#' method, not using the historical control data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `Decision` : results in `logical` with `TRUE` as Go, `FALSE` as Stop and `NA` as Evaluate decision.</pre>
+                      <pre class="language-r">#' @param nSim number of trials to simulate</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `SampleSize` : numeric of sample sizes from `nnE` or `nnF` or both.</pre>
+                      <pre class="language-r">#' @param histSize historical data size</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `SampleSizeActive` : numeric of sample sizes in the treatment or experimental arm.</pre>
+                      <pre class="language-r">#' @param trialSize total trial sample size</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `SampleSizeControl` : numeric of sample sizes in either standard of care (SOC) or control arm.</pre>
+                      <pre class="language-r">#' @param controlRateDist the control response rate distribution. This shall be</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `union_nn` : unique `nnE` and `nnF` looks.</pre>
+                      <pre class="language-r">#' a function without any arguments, that gives back a random draw from the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `wiggled_nnE` : user input for `nnE` with random distance applied.</pre>
+                      <pre class="language-r">#' control response rate distribution. It is invoked to obtain control rates</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `wiggled_nnF` : user input for `nnF` with random distance applied.</pre>
+                      <pre class="language-r">#' for the historical and the actual control data sets.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">325</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `wiggled_dist` : magnitude of random distance applied in order of input looks.</pre>
+                      <pre class="language-r">#' @param nmeRate the treatment response rate</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `params` : all user input arguments.</pre>
+                      <pre class="language-r">#' @param delta delta for stopping for efficacy to be used. Implicitly a zero</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' delta for stopping for futility is used.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_decision_one_predprobDist</pre>
+                      <pre class="language-r">#' @param tL for Bayes methods: probability threshold for being below control</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_decision_two_predprobDist</pre>
+                      <pre class="language-r">#' response rate (default: 0.8)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams ocPredprobDist</pre>
+                      <pre class="language-r">#' @param tU for Bayes methods: probability threshold for being above control</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams ocRctPostprobDist</pre>
+                      <pre class="language-r">#' response rate + delta (default: 0.8)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/ocRctPredprobDist.R</pre>
+                      <pre class="language-r">#' @param tT threshold for the probability to be above the response rate p0 at</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' the end of the trial (default: 0.85)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ocRctPredprobDist &lt;- function(nnE,</pre>
+                      <pre class="language-r">#' @param phiL lower threshold on the predictive probability (default: 0.05)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              pE,</pre>
+                      <pre class="language-r">#' @param phiU upper threshold on the predictive probability (default: 0.95)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              pS,</pre>
+                      <pre class="language-r">#' @param parE the beta parameters matrix, with K rows and 2 columns,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              deltaE,</pre>
+                      <pre class="language-r">#' corresponding to the beta parameters of the K components. Default is a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              deltaF,</pre>
+                      <pre class="language-r">#' uniform prior.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              phiL = 1 - phiFu,</pre>
+                      <pre class="language-r">#' @param weights the mixture weights of the beta mixture prior. Default are</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              phiFu = 1 - phiL,</pre>
+                      <pre class="language-r">#' uniform weights across mixture components.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              phiU,</pre>
+                      <pre class="language-r">#' @return Returned operating characteristics in a matrix include:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              relativeDelta = FALSE,</pre>
+                      <pre class="language-r">#' ExpectedN: expected number of patients in the trials</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              tT,</pre>
+                      <pre class="language-r">#' ExpectedNactive: expected number of patients with treatment</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">344</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              tF,</pre>
+                      <pre class="language-r">#' PrStopEarly: probability to stop the trial early (before reaching the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              parE = c(a = 1, b = 1),</pre>
+                      <pre class="language-r">#' maximum sample size)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              parS = c(a = 1, b = 1),</pre>
+                      <pre class="language-r">#' PrEarlyEff: probability to decide for efficacy early</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              weights,</pre>
+                      <pre class="language-r">#' PrEarlyFut: probability to decide for futility early</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">348</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              weightsS,</pre>
+                      <pre class="language-r">#' PrEfficacy: probability to decide for efficacy</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">349</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              randRatio = 1,</pre>
+                      <pre class="language-r">#' PrFutility: probability to decide for futility</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              sim,</pre>
+                      <pre class="language-r">#' PrGrayZone: probability of no decision at the end ("gray zone")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              wiggle = FALSE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              nnF = nnE,</pre>
+                      <pre class="language-r">#' @importFrom stats rbinom</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              decision1 = TRUE) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnE, min.len = 1, lower = 1, upper = max(nnE), any.missing = FALSE)</pre>
+                      <pre class="language-r">#' @example examples/oc3.R</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(sim, lower = 1, finite = TRUE)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">68</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_flag(wiggle)</pre>
+                      <pre class="language-r">oc3 &lt;- function(method =</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnF, min.len = 0, any.missing = FALSE)</pre>
+                      <pre class="language-r">                  c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">358</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_flag(decision1)</pre>
+                      <pre class="language-r">                    "PointMass.Bayes", "Prior.Bayes",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                    "RCT.Bayes", "RCTvanilla.Bayes",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">360</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (sim &lt; 50000) {</pre>
+                      <pre class="language-r">                    "PointMass.PP", "Prior.PP",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">5<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">    warning("Advise to use sim &gt;= 50000 to achieve convergence")</pre>
+                      <pre class="language-r">                    "RCT.PP", "RCTvanilla.PP"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">362</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="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  decision &lt;- all_sizes &lt;- nActive &lt;- nControl &lt;- vector(length = sim)</pre>
+                      <pre class="language-r">                nSim,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nnE &lt;- sort(nnE)</pre>
+                      <pre class="language-r">                histSize,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">365</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nnF &lt;- sort(nnF)</pre>
+                      <pre class="language-r">                trialSize,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">366</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nnr &lt;- sort(unique(c(nnF, nnE)))</pre>
+                      <pre class="language-r">                controlRateDist,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">367</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                nmeRate,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">368</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Nstart &lt;- nnr[1]</pre>
+                      <pre class="language-r">                delta,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">369</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Nmax &lt;- max(nnr)</pre>
+                      <pre class="language-r">                ## for Bayes methods:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                tL = 0.8,</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">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (k in seq_len(sim)) {</pre>
+                      <pre class="language-r">                tU = 0.8,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">372</td>
-                    <td class="coverage">250<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">    if (length(nnr) != 1 &amp;&amp; wiggle) {</pre>
+                      <pre class="language-r">                ## for PP methods:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">373</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">85</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dist &lt;- h_get_distance(nn = nnr)</pre>
+                      <pre class="language-r">                tT = 0.85,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">374</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnr &lt;- h_get_looks(dist = dist, nnE = nnE, nnF = nnF)</pre>
+                      <pre class="language-r">                phiL = 0.05,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">375</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">87</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnrE &lt;- nnr$nnrE</pre>
+                      <pre class="language-r">                phiU = 0.95,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">376</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">88</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnrF &lt;- nnr$nnrF</pre>
+                      <pre class="language-r">                ## prior on NME response rate:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">                parE = c(1, 1),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">378</td>
-                    <td class="coverage">250<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">      nnrE &lt;- nnE</pre>
+                      <pre class="language-r">                weights) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">91</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnrF &lt;- nnF</pre>
+                      <pre class="language-r">  method &lt;- match.arg(method)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">92</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dist &lt;- NA</pre>
+                      <pre class="language-r">  bayesNames &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">381</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">93</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    "PointMass.Bayes", "Prior.Bayes", "RCT.Bayes",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">94</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nnr &lt;- unique(c(nnrE, nnrF))</pre>
+                      <pre class="language-r">    "RCTvanilla.Bayes"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">95</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tmp &lt;- if (decision1) {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">384</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">96</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      h_decision_one_RctpredprobDist(</pre>
+                      <pre class="language-r">  ppNames &lt;- c("PointMass.PP", "Prior.PP", "RCT.PP", "RCTvanilla.PP")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">385</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nnr = nnr,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">386</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nnE = nnE,</pre>
+                      <pre class="language-r">  ## if parE is a vector =&gt; situation where there is only one component</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">387</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">99</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nnF = nnF,</pre>
+                      <pre class="language-r">  if (is.vector(parE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">388</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        pE = pE,</pre>
+                      <pre class="language-r">    ## check that it has exactly two entries</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">389</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">101</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        pS = pS,</pre>
+                      <pre class="language-r">    stopifnot(identical(length(parE), 2L))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">390</td>
-                    <td class="coverage">250<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">        parE = parE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">391</td>
-                    <td class="coverage">250<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">        parS = parS,</pre>
+                      <pre class="language-r">    ## and transpose to matrix with one row</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">392</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">104</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tT = tT,</pre>
+                      <pre class="language-r">    parE &lt;- t(parE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">393</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">105</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        phiU = phiU,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">394</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">106</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        phiL = phiL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">395</td>
-                    <td class="coverage">250<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">        deltaE = deltaE,</pre>
+                      <pre class="language-r">  ## if prior weights of the beta mixture are not supplied</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">396</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">108</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        deltaF = deltaF,</pre>
+                      <pre class="language-r">  if (missing(weights)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">397</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">109</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weights = weights,</pre>
+                      <pre class="language-r">    weights &lt;- rep(1, nrow(parE))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">398</td>
-                    <td class="coverage">250<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">        weightsS = weightsS,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">399</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">    ## (don't need to be normalized, this is done in h_getBetamixPost)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">400</td>
-                    <td class="coverage">250<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">        randRatio = randRatio</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">401</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">402</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">  ## allocation to active and control arms:</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">403</td>
+                    <td class="num">114</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      h_decision_two_RctpredprobDist(</pre>
+                      <pre class="language-r">  activeProp &lt;-</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">404</td>
+                    <td class="num">115</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nnr = nnr,</pre>
+                      <pre class="language-r">    if (method %in% c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">405</td>
+                    <td class="num">116</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nnE = nnE,</pre>
+                      <pre class="language-r">      "RCT.Bayes",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">406</td>
+                    <td class="num">117</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nnF = nnF,</pre>
+                      <pre class="language-r">      "RCTvanilla.Bayes",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">407</td>
+                    <td class="num">118</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        pE = pE,</pre>
+                      <pre class="language-r">      "RCT.PP",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">408</td>
+                    <td class="num">119</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        pS = pS,</pre>
+                      <pre class="language-r">      "RCTvanilla.PP"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">409</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">120</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">    )) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">410</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parS = parS,</pre>
+                      <pre class="language-r">      ## randomize 1:1</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">411</td>
+                    <td class="num">122</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tT = tT,</pre>
+                      <pre class="language-r">      1 / 2</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">412</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">123</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tF = tF,</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">413</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        phiU = phiU,</pre>
+                      <pre class="language-r">      ## only active here</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">414</td>
+                    <td class="num">125</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        phiFu = phiFu,</pre>
+                      <pre class="language-r">      1</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">415</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        deltaE = deltaE,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">416</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">127</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        deltaF = deltaF,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">417</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weights = weights,</pre>
+                      <pre class="language-r">  ## deltas for prior methods:</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">418</td>
+                    <td class="num">129</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weightsS = weightsS,</pre>
+                      <pre class="language-r">  deltaE &lt;- delta</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">419</td>
+                    <td class="num">130</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">  deltaF &lt;- 0</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">420</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        randRatio = randRatio</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">421</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  ## s: decision reject H0 (TRUE) or fail to reject (FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">422</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  ##    during trial if continuing (NA)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">423</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">134</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    decision[k] &lt;- tmp$decision</pre>
+                      <pre class="language-r">  s &lt;- rep(NA, nSim)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">424</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">135</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_sizes[k] &lt;- tmp$all_sizes</pre>
+                      <pre class="language-r">  n &lt;- nActive &lt;- nControl &lt;- integer(length(s))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">425</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">136</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nActive[k] &lt;- tmp$nActive</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">426</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">137</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nControl[k] &lt;- tmp$nControl</pre>
+                      <pre class="language-r">  ## looks: three times total including the last one,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  ## approx equal distance.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">428</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">139</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  oc &lt;- h_get_oc_rct(</pre>
+                      <pre class="language-r">  nn &lt;- ceiling(seq(from = 1, to = trialSize, length = 3 + 1))[-1]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">429</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">140</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_sizes = all_sizes,</pre>
+                      <pre class="language-r">  nn &lt;- sort(nn)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">430</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">141</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Nmax = Nmax,</pre>
+                      <pre class="language-r">  nr &lt;- FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">431</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">142</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nActive = nActive,</pre>
+                      <pre class="language-r">  nL &lt;- length(nn)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">432</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">143</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nControl = nControl,</pre>
+                      <pre class="language-r">  Nstart &lt;- nn[1]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">433</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">144</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    decision = decision</pre>
+                      <pre class="language-r">  Nmax &lt;- nn[nL]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">434</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">435</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">146</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">  NmaxActive &lt;- ceiling(activeProp * Nmax)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">436</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">147</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    oc = oc,</pre>
+                      <pre class="language-r">  NmaxControl &lt;- Nmax - NmaxActive</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">437</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">148</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Decision = decision,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">438</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">149</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    SampleSize = all_sizes,</pre>
+                      <pre class="language-r">  if (nr &amp;&amp; is.null(d)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">439</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">150</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    SampleSizeActive = nActive,</pre>
+                      <pre class="language-r">    ## set parameter d for randomly generating look locations</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">440</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">151</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    SampleSizeControl = nControl,</pre>
+                      <pre class="language-r">    d &lt;- floor(min(nn - c(0, nn[-nL])) / 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">441</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">152</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    union_nn = nnr,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">442</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">153</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    wiggled_nnE = nnrE,</pre>
+                      <pre class="language-r">  nnr &lt;- nn</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">443</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    wiggled_nnF = nnrF,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">444</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">155</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    wiggle_dist = dist,</pre>
+                      <pre class="language-r">  for (k in 1:nSim) { ## simulate a clinical trial nSim times</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">445</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">156</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    params = as.list(match.call(expand.dots = FALSE))</pre>
+                      <pre class="language-r">    if (nr &amp;&amp; (d &gt; 0)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      ## randomly generate look locations</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">447</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">158</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      dd &lt;- sample(-d:d,</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/ocPredprobDist.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">159</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Generating random decision and sample size looks for `decision1 == TRUE` or default option</pre>
+                      <pre class="language-r">        size = nL - 1, replace = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">160</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        prob = 2^(c(-d:0, rev(-d:(-1))) / 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A helper function for [ocPredprobDist()] to generate numeric of decisions `decisions` and</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">162</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' random looks `all_sizes` for `decision1 == TRUE`.</pre>
+                      <pre class="language-r">      nnr &lt;- nn + c(dd, 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_decision_one_predprob</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_predprobdist</pre>
+                      <pre class="language-r">    ## simulate sequence of patients</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">166</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_decisionDist</pre>
+                      <pre class="language-r">    isActive &lt;- sample(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">167</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list with the following elements :</pre>
+                      <pre class="language-r">      x =</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">168</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `decision` : decision `flag` with `TRUE` for Go, `FALSE` for Stop, `NA` for Gray zone.</pre>
+                      <pre class="language-r">        rep(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">169</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `all_sizes` : resulting number of look size, anything below maximum</pre>
+                      <pre class="language-r">          c(TRUE, FALSE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">170</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   look size is an indicated interim, Futility or Efficacy or both.</pre>
+                      <pre class="language-r">          c(NmaxActive, NmaxControl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">172</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      size = Nmax,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">173</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_decision_one_predprobDist &lt;- function(</pre>
+                      <pre class="language-r">      replace = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nnE,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nnF,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nnr,</pre>
+                      <pre class="language-r">    ## generate the historical control rate</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">177</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    truep,</pre>
+                      <pre class="language-r">    histRate &lt;- controlRateDist()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xS,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nS,</pre>
+                      <pre class="language-r">    ## generate the control data (binomial distribution)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">180</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parE,</pre>
+                      <pre class="language-r">    xHist &lt;- stats::rbinom(n = 1L, size = histSize, prob = histRate)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parS,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tT,</pre>
+                      <pre class="language-r">    ## this generates p0:</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">183</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    phiU,</pre>
+                      <pre class="language-r">    p0 &lt;- xHist / histSize</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    phiL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    deltaE,</pre>
+                      <pre class="language-r">    ## and with the delta this gives p1:</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">186</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    deltaF,</pre>
+                      <pre class="language-r">    p1 &lt;- min(p0 + delta, 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weightsS,</pre>
+                      <pre class="language-r">    ## for the prior methods, these are the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    relativeDelta = FALSE) {</pre>
+                      <pre class="language-r">    ## beta parameters:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">101<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnE, lower = 1, sorted = TRUE, any.missing = FALSE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">33</td>
-                    <td class="coverage">101<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnF, lower = 1, sorted = TRUE, any.missing = FALSE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">101<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">190</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnr, lower = 1, sorted = TRUE)</pre>
+                      <pre class="language-r">    parS &lt;-</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">101<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">191</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(truep, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">      if (method %in% c("RCTvanilla.Bayes", "RCTvanilla.PP")) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        ## change parS to uniform in RCT vanilla case</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">101<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">193</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  index_look &lt;- 1</pre>
+                      <pre class="language-r">        c(1, 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">101<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">194</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Nmax &lt;- max(nnr)</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">101<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">195</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  NmaxControl &lt;- max(nnF)</pre>
+                      <pre class="language-r">        ## otherwise we use the historical data</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">101<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">196</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  decision &lt;- NA</pre>
+                      <pre class="language-r">        c(1 + xHist, 1 + histSize - xHist)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">101<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">  response &lt;- stats::rbinom(Nmax, size = 1, prob = truep)</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ### Decision 1:</pre>
+                      <pre class="language-r">    ## determine the control rate</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">200</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # The criteria for Decision 1 for Interim looks are :</pre>
+                      <pre class="language-r">    controlRate &lt;- controlRateDist()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Interim GO =  P(successful trial at final) &gt; phiU</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Interim STOP = P(successful trial at final) &lt; phiL</pre>
+                      <pre class="language-r">    ## generate the trial data (Bernoulli distribution)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">101<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  while (is.na(decision) &amp;&amp; index_look &lt; length(nnr)) {</pre>
+                      <pre class="language-r">    ## simulate sequence of responses</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">149<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">204</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
+                      <pre class="language-r">    x &lt;- stats::rbinom(Nmax, 1,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">149<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">205</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
+                      <pre class="language-r">      prob = ifelse(isActive, nmeRate, controlRate)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">206</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      interim_qU &lt;- predprobDist(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">207</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">208</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = size_look,</pre>
+                      <pre class="language-r">    ## start trial</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">209</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xS = xS,</pre>
+                      <pre class="language-r">    j &lt;- 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">210</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nS = nS,</pre>
+                      <pre class="language-r">    i &lt;- nnr[j]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">211</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Nmax = Nmax,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">212</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NmaxControl = NmaxControl,</pre>
+                      <pre class="language-r">    while (is.na(s[k]) &amp;&amp; (j &lt;= length(nnr))) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">213</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        delta = deltaE,</pre>
+                      <pre class="language-r">      if (method == "PointMass.Bayes") {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">21<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">        relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">        ## PointMass.Bayes</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">215</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">        qL &lt;- 1 - postprob(x = sum(x[1:i]), n = i, p = p0, parE = parE, weights = weights)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">216</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weights = weights,</pre>
+                      <pre class="language-r">        qU &lt;- postprob(x = sum(x[1:i]), n = i, p = p1, parE = parE, weights = weights)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">217</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parS = parS,</pre>
+                      <pre class="language-r">      } else if (method %in% c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">218</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weightsS = weightsS,</pre>
+                      <pre class="language-r">        "Prior.Bayes",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">219</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        thetaT = tT</pre>
+                      <pre class="language-r">        "RCT.Bayes",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">220</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )$result</pre>
+                      <pre class="language-r">        "RCTvanilla.Bayes"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">21<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">      decision &lt;- ifelse(interim_qU &gt; phiU, TRUE, decision)</pre>
+                      <pre class="language-r">      )) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        ## current data in both arms:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">149<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnF) {</pre>
+                  <tr class="missed">
+                    <td class="num">223</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        xActive &lt;- x[which(isActive[1:i])]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">224</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      interim_qU &lt;- predprobDist(</pre>
+                      <pre class="language-r">        xControl &lt;- x[which(!isActive[1:i])]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">225</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">226</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = size_look,</pre>
+                      <pre class="language-r">        ## compute the two probabilities</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">227</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xS = xS,</pre>
+                      <pre class="language-r">        qL &lt;- postprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">228</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nS = nS,</pre>
+                      <pre class="language-r">          x = sum(xControl), n = length(xControl),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">229</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Nmax = Nmax,</pre>
+                      <pre class="language-r">          xS = sum(xActive), nS = length(xActive),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">230</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NmaxControl = NmaxControl,</pre>
+                      <pre class="language-r">          delta = deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">231</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        delta = deltaF,</pre>
+                      <pre class="language-r">          parE = parS,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">232</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">          parS = parE, weightsS = weights</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">233</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">234</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weights = weights,</pre>
+                      <pre class="language-r">        qU &lt;- postprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">235</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parS = parS,</pre>
+                      <pre class="language-r">          x = sum(xActive), n = length(xActive),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">236</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weightsS = weightsS,</pre>
+                      <pre class="language-r">          xS = sum(xControl), nS = length(xControl),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">237</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        thetaT = tT</pre>
+                      <pre class="language-r">          delta = deltaE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">238</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )$result</pre>
+                      <pre class="language-r">          parE = parE, weights = weights,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">239</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &lt; phiL, FALSE, decision)</pre>
+                      <pre class="language-r">          parS = parS</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">149<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    index_look &lt;- index_look + 1</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # The criteria for Decision 1 for Final looks are:</pre>
+                      <pre class="language-r">        ## sample sizes: in both arms</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">243</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Final GO = P(RR &gt; p0 + deltaE | data) =&gt; tT</pre>
+                      <pre class="language-r">        nActive[k] &lt;- length(xActive)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">244</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Final STOP = P(RR &gt; p0 + deltaF | data ) &lt; tT</pre>
+                      <pre class="language-r">        nControl[k] &lt;- length(xControl)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">101<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">245</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.na(decision)) {</pre>
+                      <pre class="language-r">      } else if (method == "PointMass.PP") {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">246</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
+                      <pre class="language-r">        ## PointMass.PP</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">247</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
+                      <pre class="language-r">        q &lt;- predprob(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">248</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      final_eff_qU &lt;- postprobDist(</pre>
+                      <pre class="language-r">          x = sum(x[1:i]),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">249</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
+                      <pre class="language-r">          n = i, Nmax = Nmax, p = p1,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">250</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = size_look,</pre>
+                      <pre class="language-r">          thetaT = tT, parE = parE, weights = weights</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">251</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xS = xS,</pre>
+                      <pre class="language-r">        )$result</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">252</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nS = nS,</pre>
+                      <pre class="language-r">      } else if (method %in% c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">253</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        delta = deltaE,</pre>
+                      <pre class="language-r">        "Prior.PP",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">254</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">        "RCT.PP",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">255</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">        "RCTvanilla.PP"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">89<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        weights = weights, # for activeBetamixPost</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">89<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        parS = parS,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">256</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weightsS = weightsS # for controlBetamixPost</pre>
+                      <pre class="language-r">      )) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        ## current data in both arms:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">258</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(final_eff_qU &gt;= tT, TRUE, NA)</pre>
+                      <pre class="language-r">        xActive &lt;- x[which(isActive[1:i])]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">259</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        xControl &lt;- x[which(!isActive[1:i])]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">101<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (size_look %in% nnF) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">4<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">    final_fu_qU &lt;- postprobDist(</pre>
+                      <pre class="language-r">        ## compute predictive probability</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">262</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = sum(response[1:size_look]),</pre>
+                      <pre class="language-r">        q &lt;- predprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">263</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n = size_look,</pre>
+                      <pre class="language-r">          x = sum(xActive), n = length(xActive),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">264</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xS = xS,</pre>
+                      <pre class="language-r">          xS = sum(xControl), nS = length(xControl),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">265</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nS = nS,</pre>
+                      <pre class="language-r">          Nmax = NmaxActive, NmaxControl = NmaxControl,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">266</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      delta = deltaF,</pre>
+                      <pre class="language-r">          delta = delta,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">267</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">          thetaT = tT,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">268</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parE = parE,</pre>
+                      <pre class="language-r">          parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">269</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      weights = weights, # for activeBetamixPost</pre>
+                      <pre class="language-r">          weights = weights,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">270</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parS = parS,</pre>
+                      <pre class="language-r">          parS = parS</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">271</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      weightsS = weightsS # for controlBetamixPost</pre>
+                      <pre class="language-r">        )$result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    decision &lt;- ifelse(final_fu_qU &lt; tT, FALSE, decision)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">101<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">101<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    decision = decision,</pre>
+                      <pre class="language-r">        ## sample sizes: in both arms</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">101<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">274</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_sizes = size_look</pre>
+                      <pre class="language-r">        nActive[k] &lt;- length(xActive)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">275</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        nControl[k] &lt;- length(xControl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Generating random decision and sample size looks for `decision1 == FALSE` or default option</pre>
+                      <pre class="language-r">      ## decision depends on whether Bayes or PP is used:</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">279</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      s[k] &lt;- if (method %in% bayesNames) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">280</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A helper function for [ocPredprobDist()] to generate numeric of decisions `decisions` and</pre>
+                      <pre class="language-r">        ifelse(qU &gt;= tU, TRUE, ifelse(qL &gt;= tL, FALSE, NA))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' random looks `all_sizes` for `decision1 == TRUE`.</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">282</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ifelse(q &gt;= phiU &amp; !(i &lt; Nmax &amp; phiU == 1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">283</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_decision_two_predprob</pre>
+                      <pre class="language-r">          TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">284</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_predprobdist</pre>
+                      <pre class="language-r">          ifelse(q &lt;= phiL, FALSE, NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_decision_one_predprobDist</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list with the following elements:</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `decision` : decision `flag` with `TRUE` for Go, `FALSE` for Stop, `NA` for Gray zone.</pre>
+                      <pre class="language-r">      ## advance iterators</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">289</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `all_sizes` : resulting number of look size, anything below maximum</pre>
+                      <pre class="language-r">      n[k] &lt;- i</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">290</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   look size is an indicated interim, Futility or Efficacy or both.</pre>
+                      <pre class="language-r">      j &lt;- j + 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">142</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">291</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      i &lt;- nnr[j]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">292</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">144</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_decision_two_predprobDist &lt;- function(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nnE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">146</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">295</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nnF,</pre>
+                      <pre class="language-r">  oc &lt;- cbind(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">296</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nnr,</pre>
+                      <pre class="language-r">    ExpectedN = mean(n),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">148</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">297</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    truep,</pre>
+                      <pre class="language-r">    ExpectedNactive = mean(nActive),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">298</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xS,</pre>
+                      <pre class="language-r">    ExpectedNcontrol = mean(nControl),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">299</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nS,</pre>
+                      <pre class="language-r">    PrStopEarly = mean(n &lt; Nmax),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">300</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    PrEarlyEff = sum(s * (n &lt; Nmax), na.rm = TRUE) / nSim,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">301</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    PrEarlyFut = sum((1 - s) * (n &lt; Nmax), na.rm = TRUE) / nSim,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">302</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    PrEfficacy = sum(s, na.rm = TRUE) / nSim,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">303</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    PrFutility = sum(1 - s, na.rm = TRUE) / nSim,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">304</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    PrGrayZone = sum(is.na(s) / nSim)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parE,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parS,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tT,</pre>
+                      <pre class="language-r">  ## return OC</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">308</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  return(oc)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tF,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/dbetabinom.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    phiU,</pre>
+                      <pre class="language-r">#' Beta-Binomial Density Function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    phiFu,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    deltaE,</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    deltaF,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights,</pre>
+                      <pre class="language-r">#' Calculates the density function of the beta-binomial distribution.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weightsS,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    relativeDelta) {</pre>
+                      <pre class="language-r">#' The beta-binomial density function has the following form:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">201<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">  assert_numeric(nnE, lower = 1, sorted = TRUE, any.missing = FALSE, )</pre>
+                      <pre class="language-r">#' `p(x) = (m! / (x!*(m-x)!)) * Beta(x+a,m-x+b) / Beta(a,b)`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">201<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">  assert_numeric(nnF, lower = 1, sorted = TRUE, any.missing = FALSE, )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">201<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">  assert_numeric(nnr, lower = 1, sorted = TRUE, any.missing = FALSE, )</pre>
+                      <pre class="language-r">#' @typed x : numeric</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">201<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(truep, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">#'  number of successes.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @typed m : number</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">201<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">  index_look &lt;- 1</pre>
+                      <pre class="language-r">#'  number of trials.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">201<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">  Nmax &lt;- max(nnr)</pre>
+                      <pre class="language-r">#' @typed a : numeric</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">201<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">  NmaxControl &lt;- max(nnF)</pre>
+                      <pre class="language-r">#'  first parameter of the beta distribution.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">201<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">  decision &lt;- NA</pre>
+                      <pre class="language-r">#' @typed b : numeric</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">201<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">  response &lt;- stats::rbinom(Nmax, size = 1, prob = truep)</pre>
+                      <pre class="language-r">#'  second parameter of the beta distribution.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # The criteria for Decision 2 for Interim looks are :</pre>
+                      <pre class="language-r">#' @typed log : flag</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Interim GO : P ( successful at final) &gt; phiU</pre>
+                      <pre class="language-r">#'  whether to return the log density value (not default).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Interim STOP : P ( unsuccessful at final ) &gt; phiFu</pre>
+                      <pre class="language-r">#' @return The density values of the beta-binomial distribution at `x`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">201<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">  while (is.na(decision) &amp;&amp; index_look &lt; length(nnr)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">357<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">    size_look &lt;- nnr[index_look]</pre>
+                      <pre class="language-r">#' @example examples/dbetabinom.R</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">357<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">    if (size_look %in% nnE) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">86<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">      interim_qU &lt;- predprobDist(</pre>
+                      <pre class="language-r">dbetabinom &lt;- function(x, m, a, b, log = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">25</td>
+                    <td class="coverage">65638<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
+                      <pre class="language-r">  assert_numeric(x, lower = 0, upper = m, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">26</td>
+                    <td class="coverage">65637<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = size_look,</pre>
+                      <pre class="language-r">  assert_number(m, lower = 0, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">27</td>
+                    <td class="coverage">65637<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xS = xS,</pre>
+                      <pre class="language-r">  assert_numeric(a, lower = 0, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">28</td>
+                    <td class="coverage">65637<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nS = nS,</pre>
+                      <pre class="language-r">  assert_numeric(b, lower = 0, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">29</td>
+                    <td class="coverage">65637<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Nmax = Nmax,</pre>
+                      <pre class="language-r">  assert_flag(log)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">30</td>
+                    <td class="coverage">65637<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NmaxControl = NmaxControl,</pre>
+                      <pre class="language-r">  log_ret &lt;- lchoose(m, x) + lbeta(x + a, m - x + b) - lbeta(a, b)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">31</td>
+                    <td class="coverage">65637<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        delta = deltaE,</pre>
+                      <pre class="language-r">  if (log) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">32</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">    log_ret</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">86<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">        parE = parE,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">34</td>
+                    <td class="coverage">65637<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weights = weights,</pre>
+                      <pre class="language-r">    exp(log_ret)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">86<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">        parS = parS,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">86<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">        weightsS = weightsS,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">86<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">        thetaT = tT</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">86<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">      )$result</pre>
+                      <pre class="language-r">#' Beta-Mixture-Binomial Density Function</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">86<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">      decision &lt;- ifelse(interim_qU &gt; phiU, FALSE, decision)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">357<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">    if (size_look %in% nnF) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">76<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">      interim_qU &lt;- 1 - predprobDist(</pre>
+                      <pre class="language-r">#' Calculates the density function for a mixture of beta-binomial distributions.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">76<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">76<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">        n = size_look,</pre>
+                      <pre class="language-r">#' @inheritParams dbetabinom</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">76<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">        xS = xS,</pre>
+                      <pre class="language-r">#' @typed par : matrix</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">76<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">        nS = nS,</pre>
+                      <pre class="language-r">#'  the beta parameters matrix, with K rows and 2 columns,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">76<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">        Nmax = Nmax,</pre>
+                      <pre class="language-r">#'  corresponding to the beta parameters of the K components.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">76<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">        NmaxControl = NmaxControl,</pre>
+                      <pre class="language-r">#' @typed weights : numeric</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">76<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">        delta = deltaF,</pre>
+                      <pre class="language-r">#'  the mixture weights of the beta mixture prior of length K.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">76<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">        relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">#'  Each element corresponds to the row of beta parameters in `par`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">76<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">        parE = parE,</pre>
+                      <pre class="language-r">#' @typed log : flag</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">76<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">        weights = weights,</pre>
+                      <pre class="language-r">#'  whether to return the log density value (not default).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">76<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">        parS = parS,</pre>
+                      <pre class="language-r">#' @return The (log) density values of the mixture of beta-binomial distributions at `x`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">76<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">        weightsS = weightsS,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">76<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        thetaT = tT</pre>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @example examples/dbetabinomMix.R</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @export</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">dbetabinomMix &lt;- function(x, m, par, weights, log = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">76<em>x</em></td>
+                    <td class="num">58</td>
+                    <td class="coverage">65635<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )$result</pre>
+                      <pre class="language-r">  assert_matrix(par, min.rows = 1, min.cols = 2)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">76<em>x</em></td>
+                    <td class="num">59</td>
+                    <td class="coverage">65635<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &gt; phiFu, FALSE, decision)</pre>
+                      <pre class="language-r">  assert_flag(log)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">212</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">65635<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  ret &lt;- sum(weights * dbetabinom(x, m, par[, 1], par[, 2]))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">357<em>x</em></td>
+                    <td class="num">61</td>
+                    <td class="coverage">65634<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    index_look &lt;- index_look + 1</pre>
+                      <pre class="language-r">  if (log) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">214</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">62</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    log(ret)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # The criteria for Decision 2 for Futility looks are :</pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">64</td>
+                    <td class="coverage">65634<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ret</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Final GO = P( RR &gt; p0 + delta ) &gt; tT</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Final STOP = P( RR &lt; p1 - delta ) &gt; tF</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">201<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.na(decision)) {</pre>
+                      <pre class="language-r">dbetabinomMix &lt;- Vectorize(dbetabinomMix, vectorize.args = "x")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">128<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">    size_look &lt;- nnr[index_look]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">128<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">128<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      final_eff_qU &lt;- postprobDist(</pre>
+                      <pre class="language-r">#' Compute Beta-Mixture-Binomial Posterior Distribution</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">128<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">128<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = size_look,</pre>
+                      <pre class="language-r">#' A helper function that computes the posterior parameters of a beta-mixture-binomial distribution.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">128<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">        xS = xS,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">128<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nS = nS,</pre>
+                      <pre class="language-r">#' @inheritParams dbetabinom</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">128<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        delta = deltaE,</pre>
+                      <pre class="language-r">#' @inheritParams dbetabinomMix</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">128<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">128<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">#' @return A list with the updated beta parameters and weights.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">128<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parS = parS</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' @importFrom stats dbeta dbinom</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">128<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    decision &lt;- ifelse(final_eff_qU &gt; tT, TRUE, NA)</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">h_getBetamixPost &lt;- function(x, n, par, weights) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">201<em>x</em></td>
+                    <td class="num">83</td>
+                    <td class="coverage">584776<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (size_look %in% nnF) {</pre>
+                      <pre class="language-r">  assert_number(x, lower = 0, upper = n, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">162<em>x</em></td>
+                    <td class="num">84</td>
+                    <td class="coverage">584774<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    final_fu_qU &lt;- 1 - postprobDist(</pre>
+                      <pre class="language-r">  assert_number(n, lower = 0, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">162<em>x</em></td>
+                    <td class="num">85</td>
+                    <td class="coverage">584774<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = sum(response[1:size_look]),</pre>
+                      <pre class="language-r">  assert_matrix(par, min.rows = 1, max.cols = 2, mode = "numeric")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">162<em>x</em></td>
+                    <td class="num">86</td>
+                    <td class="coverage">584774<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n = size_look,</pre>
+                      <pre class="language-r">  assert_numeric(weights, min.len = 0, len = nrow(par), finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">162<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">87</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xS = xS,</pre>
+                      <pre class="language-r">  # We renormalize weights.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">162<em>x</em></td>
+                    <td class="num">88</td>
+                    <td class="coverage">584771<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nS = nS,</pre>
+                      <pre class="language-r">  weights &lt;- weights / sum(weights)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">162<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">89</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      delta = deltaF,</pre>
+                      <pre class="language-r">  # We now compute updated parameters.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">162<em>x</em></td>
+                    <td class="num">90</td>
+                    <td class="coverage">584771<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">  postPar &lt;- par</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">162<em>x</em></td>
+                    <td class="num">91</td>
+                    <td class="coverage">584771<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parE = parE,</pre>
+                      <pre class="language-r">  postPar[, 1] &lt;- postPar[, 1] + x</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">162<em>x</em></td>
+                    <td class="num">92</td>
+                    <td class="coverage">584771<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parS = parS</pre>
+                      <pre class="language-r">  postPar[, 2] &lt;- postPar[, 2] + n - x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  # We compute updated mixture probabilities.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">162<em>x</em></td>
+                    <td class="num">94</td>
+                    <td class="coverage">584771<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    decision &lt;- ifelse(final_fu_qU &gt; tF, FALSE, decision)</pre>
+                      <pre class="language-r">  tmp &lt;- exp(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">246</td>
+                  <tr class="covered">
+                    <td class="num">95</td>
+                    <td class="coverage">584771<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    lbeta(a = postPar[, 1], b = postPar[, 2]) - lbeta(a = par[, 1], b = par[, 2])</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">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # We compute the updated weights of the posterior</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">201<em>x</em></td>
+                    <td class="num">98</td>
+                    <td class="coverage">584771<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  postWeights &lt;- weights * tmp / sum(weights * tmp)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">99</td>
+                    <td class="coverage">584771<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_numeric(postWeights)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">584771<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">201<em>x</em></td>
+                    <td class="num">101</td>
+                    <td class="coverage">584771<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    decision = decision,</pre>
+                      <pre class="language-r">    par = postPar,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">201<em>x</em></td>
+                    <td class="num">102</td>
+                    <td class="coverage">584771<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_sizes = size_look</pre>
+                      <pre class="language-r">    weights = postWeights</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Calculate operating characteristics for predictive probability method</pre>
+                      <pre class="language-r">#' Beta-Mixture density function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' with beta prior on SOC response rate (gray zone allowed in the final analysis for Decision 2)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' This function calculates beta-mixture density values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' For formulas and expressions for predictive probability, refer to [predprobDist()].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The rules for Stop, Go and Gray Zone (where applicable) are the same as in [ocPredprob()].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' However when compared to [ocPredprob()], where the predictive probability of `response rate &gt; p0`</pre>
+                      <pre class="language-r">#' The beta-mixture distribution is defined by K beta parameters and the corresponding weights.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' was used to reach decisions, here the `response rate - p0 &gt; 0` is replaced by `response rate - p0 &gt; delta`,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and the reason is that `p0` is now also uncertain, which is quantified by a posterior distribution.</pre>
+                      <pre class="language-r">#' @inheritParams dbetabinom</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' To therefore understand the margin of difference between the experimental and control group, refer</pre>
+                      <pre class="language-r">#' @inheritParams dbetabinomMix</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' to the two ways of calculating delta in [postprobDist()].</pre>
+                      <pre class="language-r">#' @typed log : flag</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'  whether log values of the beta-mixture density function are returned.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The margin `delta` from [postprobDist()] is no longer used however where a Go decision is evaluated,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the margin `deltaE` is instead employed, and where a Stop decision is evaluated,</pre>
+                      <pre class="language-r">#' @return the (log) density values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the margin `deltaF` is instead employed in lieu of `delta`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Decision 1 and Decision 2 share the same Go rule for interim and final,</pre>
+                      <pre class="language-r">#' @example examples/dbetaMix.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' with the margin of difference is accounted for in the following manner for the final looks:</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `Pr(P_E &gt; p0 + deltaE | data) &gt; tT ` for the absolute case</pre>
+                      <pre class="language-r">dbetaMix &lt;- function(x, par, weights, log = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">271</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">366220<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `Pr(P_E &gt; (1-p0)*deltaE | data) &gt; tT` for the relative case</pre>
+                      <pre class="language-r">  assert_numeric(weights, lower = 0, upper = 1, finite = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">272</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">125</td>
+                    <td class="coverage">366220<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  assert_true(all.equal(sum(weights), 1))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">273</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">366219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' As mentioned, the rules of [ocPredprobDist()] and [ocPredprob()] for both Decision 1 and Decision 2 are the same,</pre>
+                      <pre class="language-r">  assert_true(identical(length(weights), nrow(par)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">274</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">366219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and the margin of difference differ depending on whether it is a Go or Stop decision</pre>
+                      <pre class="language-r">  degree &lt;- length(weights)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (`deltaE` and `deltaF` is employed instead of `delta`).</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">276</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">366219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' We highlight here another distinction between [ocPredprob()] and [ocPredprobDist()],</pre>
+                      <pre class="language-r">  component_densities &lt;- matrix(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">277</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">366219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' seen in the evaluation for the final futility look in [ocPredprobDist()] where `p1` is used instead of `p0` :</pre>
+                      <pre class="language-r">    dbeta(rep(x, each = degree), par[, 1], par[, 2]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">278</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">366219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `Pr(P_E &lt; p1 + deltaF | data) &gt; tF` for the absolute case</pre>
+                      <pre class="language-r">    nrow = degree,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">279</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">366219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `Pr(P_E &lt; (1-p1)*deltaF | data) &gt; tF` for the relative case</pre>
+                      <pre class="language-r">    ncol = length(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">281</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">366219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list with the following elements:</pre>
+                      <pre class="language-r">  ret &lt;- as.numeric(weights %*% component_densities)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">282</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">366219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `oc`: matrix with operating characteristics with the following details:</pre>
+                      <pre class="language-r">  if (log) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">283</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">136</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    - `ExpectedN`: expected number of patients in the trials</pre>
+                      <pre class="language-r">    log(ret)</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">#'    - `PrStopEarly`: probability to stop the trial early (before reaching the</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">285</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">366219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'                    maximum sample size)</pre>
+                      <pre class="language-r">    ret</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">#'    - `PrEarlyEff`: probability of Early Go decision</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    - `PrEarlyFut`: probability of for Early Stop decision</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    - `PrEfficacy`: probability of Go decision</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    - `PrFutility`: probability of Stop decision</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    - `PrGrayZone`: probability between Go and Stop ,"Evaluate" or Gray decision zone</pre>
+                      <pre class="language-r">#' Beta-Mixture CDF</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `Decision` : numeric of results with `TRUE` as Go decision, `FALSE` as Stop and `NA` as gray zone.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `SampleSize` : numeric of sample sizes from `nnE` or `nnF` or both.</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' - `wiggled_nnE` : user input for `nnE` with random distance applied.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">294</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' - `wiggled_nnF` : user input for `nnF` with random distance applied.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `wiggled_dist` : magnitude of random distance applied in order of input looks.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `params` : all user input arguments.</pre>
+                      <pre class="language-r">#' Calculates the CDF of the Beta-Mixture distribution.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/ocPredprobDist.R</pre>
+                      <pre class="language-r">#' @typed q : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'  the abscissa.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_looks</pre>
+                      <pre class="language-r">#' @typed par : matrix</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_decision_one_predprobDist</pre>
+                      <pre class="language-r">#'  the beta parameters matrix, with K rows and 2 columns,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams ocPredprob</pre>
+                      <pre class="language-r">#'  corresponding to the beta parameters of the K components.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ocPredprobDist &lt;- function(</pre>
+                      <pre class="language-r">#' @typed weights : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nnE,</pre>
+                      <pre class="language-r">#'  the mixture weights of the beta mixture prior which add up to 1.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    truep,</pre>
+                      <pre class="language-r">#' @typed lower.tail : flag</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    deltaE,</pre>
+                      <pre class="language-r">#'  if `TRUE` (default), probabilities are `P[X &lt;= x]`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    deltaF,</pre>
+                      <pre class="language-r">#'  and otherwise `P[X &gt; x]`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    phiU,</pre>
+                      <pre class="language-r">#' @return The (one minus) cdf value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xS = 0,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nS = 0,</pre>
+                      <pre class="language-r">#' @note `q` can be a vector.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    relativeDelta = FALSE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tT = 1 - tF,</pre>
+                      <pre class="language-r">#' @example examples/pbetaMix.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tF = 1 - tT,</pre>
+                      <pre class="language-r">#' @importFrom stats pbeta</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    phiL = 1 - phiFu,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    phiFu = 1 - phiL,</pre>
+                      <pre class="language-r">pbetaMix &lt;- function(q, par, weights, lower.tail = TRUE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">316</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parE = c(1, 1),</pre>
+                      <pre class="language-r">  assert_numeric(q, lower = 0, upper = 1, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">317</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parS = c(1, 1),</pre>
+                      <pre class="language-r">  assert_numeric(weights, lower = 0, upper = 1, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">318</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights = weights,</pre>
+                      <pre class="language-r">  assert_matrix(par)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">319</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weightsS = weightsS,</pre>
+                      <pre class="language-r">  assert_flag(lower.tail)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">320</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sim = 50000,</pre>
+                      <pre class="language-r">  .pbetaMix(q = q, par = par, weights = weights, lower.tail = lower.tail)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    wiggle = FALSE,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nnF = nnE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    decision1 = TRUE) {</pre>
+                      <pre class="language-r">.pbetaMix &lt;- function(q, par, weights, lower.tail) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">324</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">175</td>
+                    <td class="coverage">1092562<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Nmax &lt;- max(unique(nnE, nnF))</pre>
+                      <pre class="language-r">  degree &lt;- length(weights)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">325</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">1092562<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  component_p &lt;- matrix(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">326</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">177</td>
+                    <td class="coverage">1092562<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnE, any.missing = FALSE, sorted = TRUE)</pre>
+                      <pre class="language-r">    pbeta(rep(q, each = degree), par[, 1], par[, 2], lower.tail = lower.tail),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">327</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">178</td>
+                    <td class="coverage">1092562<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(sim, lower = 1, finite = TRUE)</pre>
+                      <pre class="language-r">    nrow = degree,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">328</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">179</td>
+                    <td class="coverage">1092562<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_flag(wiggle)</pre>
+                      <pre class="language-r">    ncol = length(q)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">329</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">180</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnF, lower = 1, any.missing = FALSE, sorted = TRUE)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">330</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">181</td>
+                    <td class="coverage">1092562<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_flag(decision1)</pre>
+                      <pre class="language-r">  as.numeric(weights %*% component_p)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</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="covered">
-                    <td class="num">332</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">183</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nn &lt;- sort(unique(c(nnF, nnE)))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">333</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">184</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (sim &lt; 50000) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">334</td>
-                    <td class="coverage">6<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">    warning("Advise to use sim &gt;= 50000 to achieve convergence")</pre>
+                      <pre class="language-r">#' Beta-Mixture Quantile Function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">336</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">187</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  decision &lt;- vector(length = sim)</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">337</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  all_sizes &lt;- vector(length = sim)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">338</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">189</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (k in seq_len(sim)) {</pre>
+                      <pre class="language-r">#' Calculates the quantile of the Beta-Mixture distribution for a given probability.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">339</td>
-                    <td class="coverage">300<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">190</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(nn) != 1 &amp;&amp; wiggle) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # if we have more than one look in nnF and nnE, we don't wiggle</pre>
+                      <pre class="language-r">#' @typed p : numeric</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">341</td>
-                    <td class="coverage">300<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">192</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dist &lt;- h_get_distance(nn = nn)</pre>
+                      <pre class="language-r">#'  the required probability.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">342</td>
-                    <td class="coverage">300<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">      nnr &lt;- h_get_looks(dist = dist, nnE = nnE, nnF = nnF)</pre>
+                      <pre class="language-r">#' @typed par : number</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">343</td>
-                    <td class="coverage">300<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">194</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnrE &lt;- nnr$nnrE</pre>
+                      <pre class="language-r">#'  the beta parameters matrix, with K rows and 2 columns,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">300<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">195</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnrF &lt;- nnr$nnrF</pre>
+                      <pre class="language-r">#'  corresponding to the beta parameters of the K components.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#' @typed weights : matrix</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">346</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">197</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dist &lt;- 0</pre>
+                      <pre class="language-r">#'  the mixture weights of the beta mixture prior.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">347</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">198</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnrE &lt;- nnE</pre>
+                      <pre class="language-r">#' @typed lower.tail : flag</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">348</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">199</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnrF &lt;- nnF</pre>
+                      <pre class="language-r">#'  whether CDF at x taken at lower or upper tail</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">349</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @return The abscissa.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">300<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">201</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nnr &lt;- unique(sort(c(nnrE, nnrF)))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">300<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">202</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tmp &lt;- if (decision1) {</pre>
+                      <pre class="language-r">#' @example examples/qbetaMix.R</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">100<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      h_decision_one_predprobDist(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">353</td>
-                    <td class="coverage">100<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">        nnE = nnE,</pre>
+                      <pre class="language-r">qbetaMix &lt;- function(p, par, weights, lower.tail = TRUE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">205</td>
+                    <td class="coverage">144669<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nnF = nnF,</pre>
+                      <pre class="language-r">  assert_numeric(p, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">206</td>
+                    <td class="coverage">144669<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nnr = nnr,</pre>
+                      <pre class="language-r">  assert_numeric(weights, lower = 0, upper = 1, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">207</td>
+                    <td class="coverage">144669<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        truep = truep,</pre>
+                      <pre class="language-r">  assert_matrix(par)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">208</td>
+                    <td class="coverage">144669<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xS = xS,</pre>
+                      <pre class="language-r">  assert_flag(lower.tail)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">358</td>
-                    <td class="coverage">100<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">        nS = nS,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">359</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">144669<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">  grid &lt;- seq(0, 1, len = 31)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">360</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">144669<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parS = parS,</pre>
+                      <pre class="language-r">  f_grid &lt;- .pbetaMix(grid, par, weights, lower.tail = lower.tail)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">100<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">212</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tT = tT,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">362</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">213</td>
+                    <td class="coverage">144669<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        phiU = phiU,</pre>
+                      <pre class="language-r">  sapply(p, function(p) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">100<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">        phiL = phiL,</pre>
+                      <pre class="language-r">    # special cases</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">215</td>
+                    <td class="coverage">289433<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        deltaE = deltaE,</pre>
+                      <pre class="language-r">    if (p == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">365</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">216</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        deltaF = deltaF,</pre>
+                      <pre class="language-r">      return(0)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">366</td>
-                    <td class="coverage">100<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">217</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weights = weights,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">367</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">218</td>
+                    <td class="coverage">289431<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weightsS = weightsS,</pre>
+                      <pre class="language-r">    if (p == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">368</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">219</td>
+                    <td class="coverage">144666<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        relativeDelta = relativeDelta</pre>
+                      <pre class="language-r">      return(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">221</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">371</td>
-                    <td class="coverage">200<em>x</em></td>
+                    <td class="num">222</td>
+                    <td class="coverage">144765<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      h_decision_two_predprobDist(</pre>
+                      <pre class="language-r">    diff &lt;- f_grid - p</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">372</td>
-                    <td class="coverage">200<em>x</em></td>
+                    <td class="num">223</td>
+                    <td class="coverage">144765<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nnE = nnE,</pre>
+                      <pre class="language-r">    pos &lt;- diff &gt; 0</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">373</td>
-                    <td class="coverage">200<em>x</em></td>
+                    <td class="num">224</td>
+                    <td class="coverage">144765<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nnF = nnF,</pre>
+                      <pre class="language-r">    grid_interval &lt;- c(grid[!pos][which.max(diff[!pos])], grid[pos][which.min(diff[pos])])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">374</td>
-                    <td class="coverage">200<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">        nnr = nnr,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">375</td>
-                    <td class="coverage">200<em>x</em></td>
+                    <td class="num">226</td>
+                    <td class="coverage">144765<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        truep = truep,</pre>
+                      <pre class="language-r">    uniroot(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">376</td>
-                    <td class="coverage">200<em>x</em></td>
+                    <td class="num">227</td>
+                    <td class="coverage">144765<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xS = xS,</pre>
+                      <pre class="language-r">      f = function(q) .pbetaMix(q, par, weights, lower.tail = lower.tail) - p,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">377</td>
-                    <td class="coverage">200<em>x</em></td>
+                    <td class="num">228</td>
+                    <td class="coverage">144765<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nS = nS,</pre>
+                      <pre class="language-r">      interval = grid_interval,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">378</td>
-                    <td class="coverage">200<em>x</em></td>
+                    <td class="num">229</td>
+                    <td class="coverage">144765<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">      f.lower = -p,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">200<em>x</em></td>
+                    <td class="num">230</td>
+                    <td class="coverage">144765<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parS = parS,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">200<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        tT = tT,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">200<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        tF = tF,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">200<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        phiU = phiU,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">200<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        phiFu = phiFu,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">384</td>
-                    <td class="coverage">200<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        deltaE = deltaE,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">385</td>
-                    <td class="coverage">200<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        deltaF = deltaF,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">386</td>
-                    <td class="coverage">200<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        weights = weights,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">387</td>
-                    <td class="coverage">200<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        weightsS = weightsS,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">388</td>
-                    <td class="coverage">200<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        relativeDelta = relativeDelta</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">389</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">390</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">391</td>
-                    <td class="coverage">300<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    decision[k] &lt;- tmp$decision</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">392</td>
-                    <td class="coverage">300<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    all_sizes[k] &lt;- tmp$all_sizes</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>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">394</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  oc &lt;- h_get_oc(all_sizes = all_sizes, Nmax = Nmax, decision = decision)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">395</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">396</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    oc = oc,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">397</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    Decision = decision,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">398</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    SampleSize = all_sizes,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">399</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    wiggled_nnrE = nnrE,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">400</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    wiggled_nnrF = nnrF,</pre>
+                      <pre class="language-r">      f.upper = 1 - p,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">401</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">231</td>
+                    <td class="coverage">144765<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dist = dist,</pre>
+                      <pre class="language-r">      tol = sqrt(.Machine$double.eps)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">402</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">232</td>
+                    <td class="coverage">144765<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    params = as.list(match.call(expand.dots = FALSE))</pre>
+                      <pre class="language-r">    )$root</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">403</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -6081,7 +5947,7 @@ <h2>phase1b coverage - 64.86%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/ocPredprob.R" class="hidden">
+            <div id="R/ocPredprobDist.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
@@ -6102,7 +5968,7 @@ <h2>phase1b coverage - 64.86%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A helper function for [ocPredprob()] to generate numeric of decisions `decisions` and</pre>
+                      <pre class="language-r">#' A helper function for [ocPredprobDist()] to generate numeric of decisions `decisions` and</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -6123,546 +5989,546 @@ <h2>phase1b coverage - 64.86%</h2>
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed nnr : numeric</pre>
+                      <pre class="language-r">#' @inheritParams h_get_decision_one_predprob</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  union of `nnE` and `nnF`.</pre>
+                      <pre class="language-r">#' @inheritParams h_predprobdist</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed truep : number</pre>
+                      <pre class="language-r">#' @inheritParams h_get_decisionDist</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  assumed true response rate or true rate (scenario).</pre>
+                      <pre class="language-r">#' @return A list with the following elements :</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed p0 : number</pre>
+                      <pre class="language-r">#'  - `decision` : decision `flag` with `TRUE` for Go, `FALSE` for Stop, `NA` for Gray zone.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  lower Futility threshold of response rate.</pre>
+                      <pre class="language-r">#'  - `all_sizes` : resulting number of look size, anything below maximum</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed parE : numeric</pre>
+                      <pre class="language-r">#'   look size is an indicated interim, Futility or Efficacy or both.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  alpha and beta parameters for the prior on the treatment population.</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">#'  Default set at alpha = 1, beta = 1, or uniform prior.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed nnE : numeric</pre>
+                      <pre class="language-r">h_decision_one_predprobDist &lt;- function(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  sample size or sizes where study can be stopped for Efficacy decision. If `0` or `NULL` and</pre>
+                      <pre class="language-r">    nnE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `length(nnE) = 1` then no Efficacy looks are performed.</pre>
+                      <pre class="language-r">    nnF,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed nnF : numeric</pre>
+                      <pre class="language-r">    nnr,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  sample size or sizes where study can be stopped for Efficacy decision. If `0` or `NULL` and</pre>
+                      <pre class="language-r">    truep,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `length(nnF) = 1` then no Futility looks are performed.</pre>
+                      <pre class="language-r">    xS,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed tT : number</pre>
+                      <pre class="language-r">    nS,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  threshold of which assumed `truep` exceeds acceptable threshold of `p0`.</pre>
+                      <pre class="language-r">    parE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed phiU : number</pre>
+                      <pre class="language-r">    parS,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  upper threshold on the predictive probability.</pre>
+                      <pre class="language-r">    tT,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed phiL : number</pre>
+                      <pre class="language-r">    phiU,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  lower threshold on the predictive probability.</pre>
+                      <pre class="language-r">    phiL,</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">    deltaE,</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 list with the following elements:</pre>
+                      <pre class="language-r">    deltaF,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `decision` : decision `flag` with `TRUE` for Go, `FALSE` for Stop, `NA` for Gray zone.</pre>
+                      <pre class="language-r">    weights,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `all_sizes` : resulting number of look size, anything below maximum</pre>
+                      <pre class="language-r">    weightsS,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   look size is an indicated interim, Futility or Efficacy or both.</pre>
+                      <pre class="language-r">    relativeDelta = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">32</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  assert_numeric(nnE, lower = 1, sorted = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">33</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  assert_numeric(nnF, lower = 1, sorted = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">34</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  assert_numeric(nnr, lower = 1, sorted = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">35</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_get_decision_one_predprob &lt;- function(nnr, truep, p0, parE = c(1, 1), nnE, nnF, tT, phiU, phiL) {</pre>
+                      <pre class="language-r">  assert_number(truep, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">36</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnr, lower = 1, sorted = TRUE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">37</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(truep, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">  index_look &lt;- 1</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">38</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnE, lower = 1, any.missing = FALSE, sorted = TRUE)</pre>
+                      <pre class="language-r">  Nmax &lt;- max(nnr)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">39</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnF, lower = 1, any.missing = FALSE, sorted = TRUE)</pre>
+                      <pre class="language-r">  NmaxControl &lt;- max(nnF)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">40</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(tT, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">  decision &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">41</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(phiU, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">  response &lt;- stats::rbinom(Nmax, size = 1, prob = truep)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">42</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(phiL, lower = 0, upper = 1)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  ### Decision 1:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">44</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  index_look &lt;- 1</pre>
+                      <pre class="language-r">  # The criteria for Decision 1 for Interim looks are :</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">45</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Nmax &lt;- max(nnr)</pre>
+                      <pre class="language-r">  # Interim GO =  P(successful trial at final) &gt; phiU</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">46</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  decision &lt;- NA</pre>
+                      <pre class="language-r">  # Interim STOP = P(successful trial at final) &lt; phiL</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">47</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  response &lt;- stats::rbinom(Nmax, size = 1, prob = truep)</pre>
+                      <pre class="language-r">  while (is.na(decision) &amp;&amp; index_look &lt; length(nnr)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">48</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="coverage">149<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  while (is.na(decision) &amp;&amp; index_look &lt; length(nnr)) {</pre>
+                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">49</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">149<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
+                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">50</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
+                      <pre class="language-r">      interim_qU &lt;- predprobDist(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">51</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      interim_qU &lt;- predprob(</pre>
+                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">52</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
+                      <pre class="language-r">        n = size_look,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">53</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = size_look,</pre>
+                      <pre class="language-r">        xS = xS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">54</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Nmax = Nmax,</pre>
+                      <pre class="language-r">        nS = nS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">55</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p = p0,</pre>
+                      <pre class="language-r">        Nmax = Nmax,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">56</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        thetaT = tT,</pre>
+                      <pre class="language-r">        NmaxControl = NmaxControl,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">57</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE</pre>
+                      <pre class="language-r">        delta = deltaE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )$result</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &gt; phiU, FALSE, decision)</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">60</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        weights = weights,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnF) {</pre>
+                      <pre class="language-r">        parS = parS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">62</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      interim_qU &lt;- predprob(</pre>
+                      <pre class="language-r">        weightsS = weightsS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
+                      <pre class="language-r">        thetaT = tT</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = size_look,</pre>
+                      <pre class="language-r">      )$result</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">65</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Nmax = Nmax,</pre>
+                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &gt; phiU, TRUE, decision)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">66</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p = p0,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">67</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">149<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        thetaT = tT,</pre>
+                      <pre class="language-r">    if (size_look %in% nnF) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">68</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE</pre>
+                      <pre class="language-r">      interim_qU &lt;- predprobDist(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )$result</pre>
+                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">70</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &lt; phiL, FALSE, decision)</pre>
+                      <pre class="language-r">        n = size_look,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">71</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        xS = xS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    index_look &lt;- index_look + 1</pre>
+                      <pre class="language-r">        nS = nS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">73</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        Nmax = Nmax,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.na(decision)) {</pre>
+                      <pre class="language-r">        NmaxControl = NmaxControl,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">75</td>
-                    <td class="coverage">44<em>x</em></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
+                      <pre class="language-r">        delta = deltaF,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage">44<em>x</em></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">77</td>
-                    <td class="coverage">44<em>x</em></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      final_eff_qU &lt;- postprob(</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">78</td>
-                    <td class="coverage">44<em>x</em></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
+                      <pre class="language-r">        weights = weights,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">79</td>
-                    <td class="coverage">44<em>x</em></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = size_look,</pre>
+                      <pre class="language-r">        parS = parS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage">44<em>x</em></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p = p0,</pre>
+                      <pre class="language-r">        weightsS = weightsS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">81</td>
-                    <td class="coverage">44<em>x</em></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">        thetaT = tT</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">82</td>
-                    <td class="coverage">44<em>x</em></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        log.p = FALSE</pre>
+                      <pre class="language-r">      )$result</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">83</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &lt; phiL, FALSE, decision)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -6674,9 +6540,9 @@ <h2>phase1b coverage - 64.86%</h2>
                   </tr>
                   <tr class="covered">
                     <td class="num">85</td>
-                    <td class="coverage">44<em>x</em></td>
+                    <td class="coverage">149<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    decision &lt;- ifelse(final_eff_qU &gt; tT, TRUE, NA)</pre>
+                      <pre class="language-r">    index_look &lt;- index_look + 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -6686,14175 +6552,13840 @@ <h2>phase1b coverage - 64.86%</h2>
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">87</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (size_look %in% nnF) {</pre>
+                      <pre class="language-r">  # The criteria for Decision 1 for Final looks are:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">88</td>
-                    <td class="coverage">137<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    final_fu_qU &lt;- postprob(</pre>
+                      <pre class="language-r">  # Final GO = P(RR &gt; p0 + deltaE | data) =&gt; tT</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">89</td>
-                    <td class="coverage">137<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = sum(response[1:size_look]),</pre>
+                      <pre class="language-r">  # Final STOP = P(RR &gt; p0 + deltaF | data ) &lt; tT</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">90</td>
-                    <td class="coverage">137<em>x</em></td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n = size_look,</pre>
+                      <pre class="language-r">  if (is.na(decision)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">91</td>
-                    <td class="coverage">137<em>x</em></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      p = p0,</pre>
+                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">92</td>
-                    <td class="coverage">137<em>x</em></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parE = parE,</pre>
+                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">93</td>
-                    <td class="coverage">137<em>x</em></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      log.p = FALSE</pre>
+                      <pre class="language-r">      final_eff_qU &lt;- postprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">94</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">95</td>
-                    <td class="coverage">137<em>x</em></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    decision &lt;- ifelse(final_fu_qU &lt; tT, FALSE, decision)</pre>
+                      <pre class="language-r">        n = size_look,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">96</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        xS = xS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">97</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">        nS = nS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">98</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    decision = decision,</pre>
+                      <pre class="language-r">        delta = deltaE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">99</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_sizes = size_look</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">100</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">101</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        weights = weights, # for activeBetamixPost</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">102</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        parS = parS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">103</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Generating random decision and sample size looks for `decision1 == FALSE`</pre>
+                      <pre class="language-r">        weightsS = weightsS # for controlBetamixPost</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">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">105</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A helper function for [ocPredprob()] to generate numeric of decisions `decisions` and</pre>
+                      <pre class="language-r">      decision &lt;- ifelse(final_eff_qU &gt;= tT, TRUE, NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' random looks `all_sizes` for `decision1 == FALSE`.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">108</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_decision_one_predprob</pre>
+                      <pre class="language-r">  if (size_look %in% nnF) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">109</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed phiFu : number</pre>
+                      <pre class="language-r">    final_fu_qU &lt;- postprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">110</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  upper threshold on the predictive probability.</pre>
+                      <pre class="language-r">      x = sum(response[1:size_look]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">111</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed p1 : number</pre>
+                      <pre class="language-r">      n = size_look,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">112</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  upper Futility threshold of response rate.</pre>
+                      <pre class="language-r">      xS = xS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">113</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed tF : number</pre>
+                      <pre class="language-r">      nS = nS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">114</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  threshold of which assumed `truep` does not exceed threshold of `p1`.</pre>
+                      <pre class="language-r">      delta = deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">115</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">      relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">116</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list with the following elements:</pre>
+                      <pre class="language-r">      parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">117</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `decision` : decision `flag` with `TRUE` for Go, `FALSE` for Stop, `NA` for Gray zone.</pre>
+                      <pre class="language-r">      weights = weights, # for activeBetamixPost</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">118</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `all_sizes` : resulting number of look size, anything below maximum</pre>
+                      <pre class="language-r">      parS = parS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">119</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   look size is an indicated interim, Futility or Efficacy or both.</pre>
+                      <pre class="language-r">      weightsS = weightsS # for controlBetamixPost</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">121</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    decision &lt;- ifelse(final_fu_qU &lt; tT, FALSE, decision)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">123</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_get_decision_two_predprob &lt;- function(nnr, truep, p0, p1, parE = c(1, 1), nnE, nnF, tT, tF, phiFu, phiU) {</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">124</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnr, lower = 1, sorted = TRUE)</pre>
+                      <pre class="language-r">    decision = decision,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">125</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(truep, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">    all_sizes = size_look</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">126</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnE, lower = 1, any.missing = FALSE, sorted = TRUE)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">127</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnF, lower = 1, any.missing = FALSE, sorted = TRUE)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">128</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(tT, lower = 0, upper = 1)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">129</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(tF, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">#' Generating random decision and sample size looks for `decision1 == FALSE` or default option</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">130</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(phiFu, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">131</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(phiU, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">#' A helper function for [ocPredprobDist()] to generate numeric of decisions `decisions` and</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">#' random looks `all_sizes` for `decision1 == TRUE`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">133</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  index_look &lt;- 1</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">134</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Nmax &lt;- max(nnr)</pre>
+                      <pre class="language-r">#' @inheritParams h_get_decision_two_predprob</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">135</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  decision &lt;- NA</pre>
+                      <pre class="language-r">#' @inheritParams h_predprobdist</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">136</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  response &lt;- stats::rbinom(Nmax, size = 1, prob = truep)</pre>
+                      <pre class="language-r">#' @inheritParams h_decision_one_predprobDist</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">137</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  while (is.na(decision) &amp;&amp; index_look &lt; length(nnr)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">138</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
+                      <pre class="language-r">#' @return A list with the following elements:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">139</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
+                      <pre class="language-r">#'  - `decision` : decision `flag` with `TRUE` for Go, `FALSE` for Stop, `NA` for Gray zone.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # GO when P(success at final) &gt; phiU</pre>
+                      <pre class="language-r">#'  - `all_sizes` : resulting number of look size, anything below maximum</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">141</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      interim_qU &lt;- predprob( # success at final is defined by P(p &gt; p0) &gt; tT</pre>
+                      <pre class="language-r">#'   look size is an indicated interim, Futility or Efficacy or both.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">142</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">143</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = size_look,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">144</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Nmax = Nmax,</pre>
+                      <pre class="language-r">h_decision_two_predprobDist &lt;- function(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">145</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p = p0,</pre>
+                      <pre class="language-r">    nnE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">146</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        thetaT = tT,</pre>
+                      <pre class="language-r">    nnF,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">147</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE</pre>
+                      <pre class="language-r">    nnr,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">148</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )$result</pre>
+                      <pre class="language-r">    truep,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">149</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &gt; phiU, TRUE, NA)</pre>
+                      <pre class="language-r">    xS,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    nS,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">151</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnF) {</pre>
+                      <pre class="language-r">    parE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # STOP when P (failure at final ) &gt; phiFu</pre>
+                      <pre class="language-r">    parS,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">153</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      interim_qU &lt;- 1 - predprob( # failure at final is defined as P(p &lt; p1) &gt; tF</pre>
+                      <pre class="language-r">    tT,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">154</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
+                      <pre class="language-r">    tF,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">155</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = size_look,</pre>
+                      <pre class="language-r">    phiU,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">156</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Nmax = Nmax,</pre>
+                      <pre class="language-r">    phiFu,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">157</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p = p1,</pre>
+                      <pre class="language-r">    deltaE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">158</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        thetaT = tF,</pre>
+                      <pre class="language-r">    deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">159</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE</pre>
+                      <pre class="language-r">    weights,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">160</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )$result</pre>
+                      <pre class="language-r">    weightsS,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">161</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &gt; phiFu, FALSE, decision)</pre>
+                      <pre class="language-r">    relativeDelta) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">162</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">201<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  assert_numeric(nnE, lower = 1, sorted = TRUE, any.missing = FALSE, )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">163</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage">201<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    index_look &lt;- index_look + 1</pre>
+                      <pre class="language-r">  assert_numeric(nnF, lower = 1, sorted = TRUE, any.missing = FALSE, )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">164</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">201<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  assert_numeric(nnr, lower = 1, sorted = TRUE, any.missing = FALSE, )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">165</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage">201<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.na(decision)) {</pre>
+                      <pre class="language-r">  assert_number(truep, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">166</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnE) { # for efficacy looks at FINAL</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">167</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">201<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      final_qU &lt;- postprob(</pre>
+                      <pre class="language-r">  index_look &lt;- 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">168</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">201<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # based on all data, the posterior probability is a GO when P(p &gt; p0) &gt; tT</pre>
+                      <pre class="language-r">  Nmax &lt;- max(nnr)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">169</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">201<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
+                      <pre class="language-r">  NmaxControl &lt;- max(nnF)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">170</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">201<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = size_look,</pre>
+                      <pre class="language-r">  decision &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">171</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">201<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p = p0,</pre>
+                      <pre class="language-r">  response &lt;- stats::rbinom(Nmax, size = 1, prob = truep)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">172</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">  # The criteria for Decision 2 for Interim looks are :</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">173</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        log.p = FALSE</pre>
+                      <pre class="language-r">  # Interim GO : P ( successful at final) &gt; phiU</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  # Interim STOP : P ( unsuccessful at final ) &gt; phiFu</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">175</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">201<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(final_qU &gt; tT, TRUE, NA)</pre>
+                      <pre class="language-r">  while (is.na(decision) &amp;&amp; index_look &lt; length(nnr)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">176</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">357<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">177</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">357<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnF) { # for futility looks at FINAL</pre>
+                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">178</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # based on all data, the posterior probability is a STOP when P(p &lt; p1) &gt; tF</pre>
+                      <pre class="language-r">      interim_qU &lt;- predprobDist(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">179</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      final_qU &lt;- 1 - postprob(</pre>
+                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">180</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(x = response[1:size_look]),</pre>
+                      <pre class="language-r">        n = size_look,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">181</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = size_look,</pre>
+                      <pre class="language-r">        xS = xS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">182</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p = p1,</pre>
+                      <pre class="language-r">        nS = nS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">183</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">        Nmax = Nmax,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">184</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        log.p = FALSE</pre>
+                      <pre class="language-r">        NmaxControl = NmaxControl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">185</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        delta = deltaE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">186</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(final_qU &gt; tF, FALSE, decision)</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">187</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">188</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        weights = weights,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">189</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">        parS = parS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">190</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    decision = decision,</pre>
+                      <pre class="language-r">        weightsS = weightsS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">191</td>
-                    <td class="coverage">1001<em>x</em></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_sizes = size_look</pre>
+                      <pre class="language-r">        thetaT = tT</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">192</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      )$result</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">193</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &gt; phiU, FALSE, decision)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">195</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">357<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Operating Characteristics for Predictive Probability method</pre>
+                      <pre class="language-r">    if (size_look %in% nnF) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">196</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      interim_qU &lt;- 1 - predprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">197</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">198</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        n = size_look,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">199</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Calculate operating characteristics for predictive probability method.</pre>
+                      <pre class="language-r">        xS = xS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">200</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        nS = nS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">201</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' It is assumed that the true response rate is `truep`. Trials can stop for Futility</pre>
+                      <pre class="language-r">        Nmax = Nmax,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">202</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' or Efficacy. Trials can also stop at Interim or Final for Futility or Efficacy.</pre>
+                      <pre class="language-r">        NmaxControl = NmaxControl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">203</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        delta = deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">204</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' There are two variations of decision rule, Decision 1 and Decision 2, to</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">205</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' evaluate decision at Interim or Final, for Futility or Efficacy. Decision 1 is</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">206</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' used when `decision1 == TRUE` which is the default setting.</pre>
+                      <pre class="language-r">        weights = weights,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">207</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        parS = parS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">208</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Decision 1:</pre>
+                      <pre class="language-r">        weightsS = weightsS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">209</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The criteria for Decision 1 for Interim looks are :</pre>
+                      <pre class="language-r">        thetaT = tT</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">210</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - interim GO =  P(successful trial at final) &gt; phiU</pre>
+                      <pre class="language-r">      )$result</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">211</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - interim STOP = P(successful trial at final) &lt; phiL</pre>
+                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &gt; phiFu, FALSE, decision)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">213</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">357<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The criteria for Decision 1 for Final looks are:</pre>
+                      <pre class="language-r">    index_look &lt;- index_look + 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - Final GO = P( response rate &gt; p0 | data) &gt; tT</pre>
+                      <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">#' - Final STOP = P( response rate &gt; p0 | data ) &lt; tT</pre>
+                      <pre class="language-r">  # The criteria for Decision 2 for Futility looks are :</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # Final GO = P( RR &gt; p0 + delta ) &gt; tT</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Decision 2:</pre>
+                      <pre class="language-r">  # Final STOP = P( RR &lt; p1 - delta ) &gt; tF</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">218</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">201<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The criteria for Decision 2 for Interim looks are :</pre>
+                      <pre class="language-r">  if (is.na(decision)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">219</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - Interim GO : P ( success at final) &gt; phiU</pre>
+                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">220</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - Interim STOP : P (failure at final ) &gt; phiFu</pre>
+                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">221</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      final_eff_qU &lt;- postprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">222</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The criteria for Decision 2 for Futility looks are :</pre>
+                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">223</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - Final GO = P( response rate &gt; p0) &gt; tT</pre>
+                      <pre class="language-r">        n = size_look,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">224</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - Final STOP = P( response rate  &lt; p1) &gt; tF</pre>
+                      <pre class="language-r">        xS = xS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">225</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        nS = nS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">226</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_decision_one_predprob</pre>
+                      <pre class="language-r">        delta = deltaE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">227</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_decision_two_predprob</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">228</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed sim : number</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">229</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of simulations.</pre>
+                      <pre class="language-r">        parS = parS</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed wiggle : flag</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  generate random look locations (not default). If `wiggle = TRUE` and `nnE = nnF`, then all wiggled</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">232</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  looks are the same between `nnE` and `nnF`.</pre>
+                      <pre class="language-r">    decision &lt;- ifelse(final_eff_qU &gt; tT, TRUE, NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed decision1 : flag</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">234</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">201<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Flag if `decision1 = TRUE` then Decision 1 rules will be used, otherwise Decision 2 rules will be used.</pre>
+                      <pre class="language-r">  if (size_look %in% nnF) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">235</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">162<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    final_fu_qU &lt;- 1 - postprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">236</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">162<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list with the following elements:</pre>
+                      <pre class="language-r">      x = sum(response[1:size_look]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">237</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">162<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `oc`: matrix with operating characteristics with the following details:</pre>
+                      <pre class="language-r">      n = size_look,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">238</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">162<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    - `ExpectedN`: expected number of patients in the trials</pre>
+                      <pre class="language-r">      xS = xS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">239</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">162<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    - `PrStopEarly`: probability to stop the trial early (before reaching the</pre>
+                      <pre class="language-r">      nS = nS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">240</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">162<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'                    maximum sample size)</pre>
+                      <pre class="language-r">      delta = deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">241</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">162<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    - `PrEarlyEff`: probability of Early Go decision</pre>
+                      <pre class="language-r">      relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">242</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">162<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    - `PrEarlyFut`: probability of for Early Stop decision</pre>
+                      <pre class="language-r">      parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">243</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">162<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    - `PrEfficacy`: probability of Go decision</pre>
+                      <pre class="language-r">      parS = parS</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    - `PrFutility`: probability of Stop decision</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">245</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">162<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    - `PrGrayZone`: probability between Go and Stop ,"Evaluate" or Gray decision zone</pre>
+                      <pre class="language-r">    decision &lt;- ifelse(final_fu_qU &gt; tF, FALSE, decision)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `Decision` : numeric of results with `TRUE` as Go decision, `FALSE` as Stop and `NA` as gray zone.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">247</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">201<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `SampleSize` : numeric of sample sizes from `nnE` or `nnF` or both.</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">248</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">201<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `wiggled_nnE` : user input for `nnE` with random distance applied.</pre>
+                      <pre class="language-r">    decision = decision,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">249</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">201<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `wiggled_nnF` : user input for `nnF` with random distance applied.</pre>
+                      <pre class="language-r">    all_sizes = size_look</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `wiggled_dist` : magnitude of random distance applied in order of input looks.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `params` : all user input arguments.</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">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/ocPredprob.R</pre>
+                      <pre class="language-r">#' Calculate operating characteristics for predictive probability method</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' with beta prior on SOC response rate (gray zone allowed in the final analysis for Decision 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ocPredprob &lt;- function(nnE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       truep,</pre>
+                      <pre class="language-r">#' For formulas and expressions for predictive probability, refer to [predprobDist()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       p0,</pre>
+                      <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">                       phiU,</pre>
+                      <pre class="language-r">#' The rules for Stop, Go and Gray Zone (where applicable) are the same as in [ocPredprob()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       p1 = p0,</pre>
+                      <pre class="language-r">#' However when compared to [ocPredprob()], where the predictive probability of `response rate &gt; p0`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       tT = 1 - tF,</pre>
+                      <pre class="language-r">#' was used to reach decisions, here the `response rate - p0 &gt; 0` is replaced by `response rate - p0 &gt; delta`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       tF = 1 - tT,</pre>
+                      <pre class="language-r">#' and the reason is that `p0` is now also uncertain, which is quantified by a posterior distribution.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       phiL = 1 - phiFu,</pre>
+                      <pre class="language-r">#' To therefore understand the margin of difference between the experimental and control group, refer</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       phiFu = 1 - phiL,</pre>
+                      <pre class="language-r">#' to the two ways of calculating delta in [postprobDist()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       parE = c(1, 1),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       sim = 50000,</pre>
+                      <pre class="language-r">#' The margin `delta` from [postprobDist()] is no longer used however where a Go decision is evaluated,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       wiggle = FALSE,</pre>
+                      <pre class="language-r">#' the margin `deltaE` is instead employed, and where a Stop decision is evaluated,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       nnF = nnE,</pre>
+                      <pre class="language-r">#' the margin `deltaF` is instead employed in lieu of `delta`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       decision1 = TRUE) {</pre>
+                      <pre class="language-r">#' Decision 1 and Decision 2 share the same Go rule for interim and final,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">269</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnE, lower = 1, any.missing = FALSE, sorted = TRUE)</pre>
+                      <pre class="language-r">#' with the margin of difference is accounted for in the following manner for the final looks:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">270</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(sim, lower = 1, finite = TRUE)</pre>
+                      <pre class="language-r">#' - `Pr(P_E &gt; p0 + deltaE | data) &gt; tT ` for the absolute case</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">271</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_flag(wiggle)</pre>
+                      <pre class="language-r">#' - `Pr(P_E &gt; (1-p0)*deltaE | data) &gt; tT` for the relative case</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">272</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnF, lower = 1, any.missing = FALSE, sorted = TRUE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">273</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_flag(decision1)</pre>
+                      <pre class="language-r">#' As mentioned, the rules of [ocPredprobDist()] and [ocPredprob()] for both Decision 1 and Decision 2 are the same,</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">#' and the margin of difference differ depending on whether it is a Go or Stop decision</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">275</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nn &lt;- sort(unique(c(nnF, nnE)))</pre>
+                      <pre class="language-r">#' (`deltaE` and `deltaF` is employed instead of `delta`).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">276</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Nmax &lt;- max(nn)</pre>
+                      <pre class="language-r">#' We highlight here another distinction between [ocPredprob()] and [ocPredprobDist()],</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">277</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (sim &lt; 50000) {</pre>
+                      <pre class="language-r">#' seen in the evaluation for the final futility look in [ocPredprobDist()] where `p1` is used instead of `p0` :</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">278</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning("Advise to use sim &gt;= 50000 to achieve convergence")</pre>
+                      <pre class="language-r">#' - `Pr(P_E &lt; p1 + deltaF | data) &gt; tF` for the absolute case</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' - `Pr(P_E &lt; (1-p1)*deltaF | data) &gt; tF` for the relative case</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">280</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  decision &lt;- vector(length = sim)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">281</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  all_sizes &lt;- vector(length = sim)</pre>
+                      <pre class="language-r">#' @return A list with the following elements:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">282</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (k in seq_len(sim)) {</pre>
+                      <pre class="language-r">#' - `oc`: matrix with operating characteristics with the following details:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">283</td>
-                    <td class="coverage">1150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(nn) != 1 &amp;&amp; wiggle) {</pre>
+                      <pre class="language-r">#'    - `ExpectedN`: expected number of patients in the trials</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # if we have more than one look in nnF and nnE, we don't wiggle</pre>
+                      <pre class="language-r">#'    - `PrStopEarly`: probability to stop the trial early (before reaching the</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">285</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dist &lt;- h_get_distance(nn = nn)</pre>
+                      <pre class="language-r">#'                    maximum sample size)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">286</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnr &lt;- h_get_looks(dist = dist, nnE = nnE, nnF = nnF)</pre>
+                      <pre class="language-r">#'    - `PrEarlyEff`: probability of Early Go decision</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">287</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnrE &lt;- nnr$nnrE</pre>
+                      <pre class="language-r">#'    - `PrEarlyFut`: probability of for Early Stop decision</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">288</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnrF &lt;- nnr$nnrF</pre>
+                      <pre class="language-r">#'    - `PrEfficacy`: probability of Go decision</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#'    - `PrFutility`: probability of Stop decision</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">290</td>
-                    <td class="coverage">1150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dist &lt;- NULL</pre>
+                      <pre class="language-r">#'    - `PrGrayZone`: probability between Go and Stop ,"Evaluate" or Gray decision zone</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">291</td>
-                    <td class="coverage">1150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnrE &lt;- nnE</pre>
+                      <pre class="language-r">#' - `Decision` : numeric of results with `TRUE` as Go decision, `FALSE` as Stop and `NA` as gray zone.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">292</td>
-                    <td class="coverage">1150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnrF &lt;- nnF</pre>
+                      <pre class="language-r">#' - `SampleSize` : numeric of sample sizes from `nnE` or `nnF` or both.</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">#' - `wiggled_nnE` : user input for `nnE` with random distance applied.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">294</td>
-                    <td class="coverage">1150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nnr &lt;- unique(sort(c(nnrE, nnrF)))</pre>
+                      <pre class="language-r">#' - `wiggled_nnF` : user input for `nnF` with random distance applied.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">295</td>
-                    <td class="coverage">1150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tmp &lt;- if (decision1) {</pre>
+                      <pre class="language-r">#' - `wiggled_dist` : magnitude of random distance applied in order of input looks.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">296</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      h_get_decision_one_predprob(</pre>
+                      <pre class="language-r">#' - `params` : all user input arguments.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">297</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nnr = nnr,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">298</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        truep = truep,</pre>
+                      <pre class="language-r">#' @example examples/ocPredprobDist.R</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">299</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p0 = p0,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">300</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">#' @inheritParams h_get_looks</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">301</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nnE = nnrE,</pre>
+                      <pre class="language-r">#' @inheritParams h_decision_one_predprobDist</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">302</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nnF = nnrF,</pre>
+                      <pre class="language-r">#' @inheritParams ocPredprob</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">303</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tT = tT,</pre>
+                      <pre class="language-r">ocPredprobDist &lt;- function(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">304</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        phiU = phiU,</pre>
+                      <pre class="language-r">    nnE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">305</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        phiL = phiL</pre>
+                      <pre class="language-r">    truep,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    deltaE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">    deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">308</td>
-                    <td class="coverage">1000<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      h_get_decision_two_predprob(</pre>
+                      <pre class="language-r">    phiU,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">309</td>
-                    <td class="coverage">1000<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nnr = nnr,</pre>
+                      <pre class="language-r">    xS = 0,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">310</td>
-                    <td class="coverage">1000<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        truep = truep,</pre>
+                      <pre class="language-r">    nS = 0,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">311</td>
-                    <td class="coverage">1000<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p0 = p0,</pre>
+                      <pre class="language-r">    relativeDelta = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">312</td>
-                    <td class="coverage">1000<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p1 = p1,</pre>
+                      <pre class="language-r">    tT = 1 - tF,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">313</td>
-                    <td class="coverage">1000<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">    tF = 1 - tT,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">314</td>
-                    <td class="coverage">1000<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nnE = nnrE,</pre>
+                      <pre class="language-r">    phiL = 1 - phiFu,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">315</td>
-                    <td class="coverage">1000<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nnF = nnrF,</pre>
+                      <pre class="language-r">    phiFu = 1 - phiL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">316</td>
-                    <td class="coverage">1000<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tT = tT,</pre>
+                      <pre class="language-r">    parE = c(1, 1),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">317</td>
-                    <td class="coverage">1000<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tF = tF,</pre>
+                      <pre class="language-r">    parS = c(1, 1),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">318</td>
-                    <td class="coverage">1000<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        phiFu = phiFu,</pre>
+                      <pre class="language-r">    weights = weights,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">319</td>
-                    <td class="coverage">1000<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        phiU = phiU</pre>
+                      <pre class="language-r">    weightsS = weightsS,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    sim = 50000,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    wiggle = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">322</td>
-                    <td class="coverage">1150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    decision[k] &lt;- tmp$decision</pre>
+                      <pre class="language-r">    nnF = nnE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">323</td>
-                    <td class="coverage">1150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_sizes[k] &lt;- tmp$all_sizes</pre>
+                      <pre class="language-r">    decision1 = TRUE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">324</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">  Nmax &lt;- max(unique(nnE, nnF))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">325</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  oc &lt;- h_get_oc(all_sizes = all_sizes, Nmax = Nmax, decision = decision)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">326</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">  assert_numeric(nnE, any.missing = FALSE, sorted = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">327</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    oc = oc,</pre>
+                      <pre class="language-r">  assert_number(sim, lower = 1, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">328</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Decision = decision,</pre>
+                      <pre class="language-r">  assert_flag(wiggle)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">329</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    SampleSize = all_sizes,</pre>
+                      <pre class="language-r">  assert_numeric(nnF, lower = 1, any.missing = FALSE, sorted = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">330</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    wiggled_nnrE = nnrE,</pre>
+                      <pre class="language-r">  assert_flag(decision1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">331</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    wiggled_nnrF = nnrF,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">332</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dist = dist,</pre>
+                      <pre class="language-r">  nn &lt;- sort(unique(c(nnF, nnE)))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">333</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    params = as.list(match.call(expand.dots = FALSE))</pre>
+                      <pre class="language-r">  if (sim &lt; 50000) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">334</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">    warning("Advise to use sim &gt;= 50000 to achieve convergence")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/oc2.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">336</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Run simulations to obtain operating characteristics for methods that include</pre>
+                      <pre class="language-r">  decision &lt;- vector(length = sim)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">337</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' historical data on control</pre>
+                      <pre class="language-r">  all_sizes &lt;- vector(length = sim)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">338</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  for (k in seq_len(sim)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">339</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Interim looks are done three times total including the last one, with</pre>
+                      <pre class="language-r">    if (length(nn) != 1 &amp;&amp; wiggle) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' approximately equal distance between the looks.</pre>
+                      <pre class="language-r">      # if we have more than one look in nnF and nnE, we don't wiggle</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">341</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      dist &lt;- h_get_distance(nn = nn)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">342</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param method 8 different methods can be selected:</pre>
+                      <pre class="language-r">      nnr &lt;- h_get_looks(dist = dist, nnE = nnE, nnF = nnF)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">343</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' PointMass.Bayes: single arm trial with pointmass derived from the historical</pre>
+                      <pre class="language-r">      nnrE &lt;- nnr$nnrE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">344</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data on the control response rate, see \code{\link{postprob}}</pre>
+                      <pre class="language-r">      nnrF &lt;- nnr$nnrF</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prior.Bayes: single arm trial with prior derived from the historical data on</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">346</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the control response rate, see \code{\link{postprobDist}}</pre>
+                      <pre class="language-r">      dist &lt;- 0</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">347</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' RCT.Bayes: RCT (1:1 randomization) with prior derived from the historical data on</pre>
+                      <pre class="language-r">      nnrE &lt;- nnE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">348</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the control response rate, see \code{\link{postprobDist}}</pre>
+                      <pre class="language-r">      nnrF &lt;- nnF</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' RCT.BayesRobust: Same as RCT.Bayes, but with a robust prior, enabling</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">350</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dynamic borrowing of the historical information</pre>
+                      <pre class="language-r">    nnr &lt;- unique(sort(c(nnrE, nnrF)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">351</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' RCT.vanillaBayes: RCT, not using the historical control data</pre>
+                      <pre class="language-r">    tmp &lt;- if (decision1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">352</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' PointMass.PP: single arm trial with pointmass derived from the historical</pre>
+                      <pre class="language-r">      h_decision_one_predprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">353</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data on the control response rate, and using the predictive probability</pre>
+                      <pre class="language-r">        nnE = nnE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">354</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' method, see \code{\link{predprob}}</pre>
+                      <pre class="language-r">        nnF = nnF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">355</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prior.PP: single arm trial with prior derived from the historical data on</pre>
+                      <pre class="language-r">        nnr = nnr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">356</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the control response rate, and using the predictive probability</pre>
+                      <pre class="language-r">        truep = truep,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">357</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' method, see \code{\link{predprobDist}}</pre>
+                      <pre class="language-r">        xS = xS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">358</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' RCT.PP: RCT (1:1 randomization) with prior derived from the historical data on</pre>
+                      <pre class="language-r">        nS = nS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">359</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the control response rate, and using the predictive probability</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">360</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' method, see \code{\link{predprobDist}}</pre>
+                      <pre class="language-r">        parS = parS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">361</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' RCT.PProbust: Same as RCT.PP,  but with a robust prior, enabling</pre>
+                      <pre class="language-r">        tT = tT,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">362</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dynamic borrowing of the historical information</pre>
+                      <pre class="language-r">        phiU = phiU,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">363</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' RCT.vanillaPP: RCT and using the predictive probability</pre>
+                      <pre class="language-r">        phiL = phiL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">364</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' method, not using the historical control data</pre>
+                      <pre class="language-r">        deltaE = deltaE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">365</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param nSim number of trials to simulate</pre>
+                      <pre class="language-r">        deltaF = deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">366</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param histSize historical data size</pre>
+                      <pre class="language-r">        weights = weights,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">367</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param trialSize total trial sample size</pre>
+                      <pre class="language-r">        weightsS = weightsS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">368</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param drift drift parameter: the actual control response rate is the</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' historical control response rate plus the drift. Hence a positive drift</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' means that the controls now have higher response rates than in the</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">371</td>
+                    <td class="coverage">200<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' historical trial.</pre>
+                      <pre class="language-r">      h_decision_two_predprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">372</td>
+                    <td class="coverage">200<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param controlRate the actual control response rate</pre>
+                      <pre class="language-r">        nnE = nnE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">373</td>
+                    <td class="coverage">200<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param nmeRate the treatment response rate</pre>
+                      <pre class="language-r">        nnF = nnF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">374</td>
+                    <td class="coverage">200<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param delta delta for stopping for efficacy to be used. Implicitly a zero</pre>
+                      <pre class="language-r">        nnr = nnr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">375</td>
+                    <td class="coverage">200<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' delta for stopping for futility is used.</pre>
+                      <pre class="language-r">        truep = truep,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">376</td>
+                    <td class="coverage">200<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param tL for Bayes methods: probability threshold for being below control</pre>
+                      <pre class="language-r">        xS = xS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">377</td>
+                    <td class="coverage">200<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' response rate (default: 0.8)</pre>
+                      <pre class="language-r">        nS = nS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">378</td>
+                    <td class="coverage">200<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param tU for Bayes methods: probability threshold for being above control</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">379</td>
+                    <td class="coverage">200<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' response rate + delta (default: 0.8)</pre>
+                      <pre class="language-r">        parS = parS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">380</td>
+                    <td class="coverage">200<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param tT threshold for the probability to be above the response rate p0 at</pre>
+                      <pre class="language-r">        tT = tT,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">381</td>
+                    <td class="coverage">200<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the end of the trial (default: 0.85)</pre>
+                      <pre class="language-r">        tF = tF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">382</td>
+                    <td class="coverage">200<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param phiL lower threshold on the predictive probability (default: 0.05)</pre>
+                      <pre class="language-r">        phiU = phiU,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">383</td>
+                    <td class="coverage">200<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param phiU upper threshold on the predictive probability (default: 0.95)</pre>
+                      <pre class="language-r">        phiFu = phiFu,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">384</td>
+                    <td class="coverage">200<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param parE the beta parameters matrix, with K rows and 2 columns,</pre>
+                      <pre class="language-r">        deltaE = deltaE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">385</td>
+                    <td class="coverage">200<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' corresponding to the beta parameters of the K components. Default is a</pre>
+                      <pre class="language-r">        deltaF = deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">386</td>
+                    <td class="coverage">200<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' uniform prior.</pre>
+                      <pre class="language-r">        weights = weights,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">387</td>
+                    <td class="coverage">200<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param weights the mixture weights of the beta mixture prior. Default are</pre>
+                      <pre class="language-r">        weightsS = weightsS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">388</td>
+                    <td class="coverage">200<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' uniform weights across mixture components.</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">389</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Returned operating characteristics in a matrix include:</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ExpectedN: expected number of patients in the trials</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">391</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ExpectedNactive: expected number of patients with treatment</pre>
+                      <pre class="language-r">    decision[k] &lt;- tmp$decision</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">392</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' PrStopEarly: probability to stop the trial early (before reaching the</pre>
+                      <pre class="language-r">    all_sizes[k] &lt;- tmp$all_sizes</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' maximum sample size)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">394</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' PrEarlyEff: probability to decide for efficacy early</pre>
+                      <pre class="language-r">  oc &lt;- h_get_oc(all_sizes = all_sizes, Nmax = Nmax, decision = decision)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">395</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' PrEarlyFut: probability to decide for futility early</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">396</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' PrEfficacy: probability to decide for efficacy</pre>
+                      <pre class="language-r">    oc = oc,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">397</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' PrFutility: probability to decide for futility</pre>
+                      <pre class="language-r">    Decision = decision,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">398</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' PrGrayZone: probability of no decision at the end ("gray zone")</pre>
+                      <pre class="language-r">    SampleSize = all_sizes,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">399</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    wiggled_nnrE = nnrE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">400</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom stats rbinom</pre>
+                      <pre class="language-r">    wiggled_nnrF = nnrF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">401</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    dist = dist,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">402</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    params = as.list(match.call(expand.dots = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">403</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/oc2.R</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/ocPredprob.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">oc2 &lt;- function(method =</pre>
+                      <pre class="language-r">#' Generating random decision and sample size looks for `decision1 == TRUE` or default option</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">2</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="never">
-                    <td class="num">71</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "PointMass.Bayes", "Prior.Bayes",</pre>
+                      <pre class="language-r">#' A helper function for [ocPredprob()] to generate numeric of decisions `decisions` and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "RCT.Bayes", "RCT.BayesRobust", "RCTvanilla.Bayes",</pre>
+                      <pre class="language-r">#' random looks `all_sizes` for `decision1 == TRUE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "PointMass.PP", "Prior.PP",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "RCT.PP", "RCT.PProbust", "RCTvanilla.PP"</pre>
+                      <pre class="language-r">#' @typed nnr : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ),</pre>
+                      <pre class="language-r">#'  union of `nnE` and `nnF`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                nSim,</pre>
+                      <pre class="language-r">#' @typed truep : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                histSize,</pre>
+                      <pre class="language-r">#'  assumed true response rate or true rate (scenario).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                trialSize,</pre>
+                      <pre class="language-r">#' @typed p0 : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                drift = 0,</pre>
+                      <pre class="language-r">#'  lower Futility threshold of response rate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                controlRate,</pre>
+                      <pre class="language-r">#' @typed parE : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                nmeRate,</pre>
+                      <pre class="language-r">#'  alpha and beta parameters for the prior on the treatment population.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                delta,</pre>
+                      <pre class="language-r">#'  Default set at alpha = 1, beta = 1, or uniform prior.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ## for Bayes methods:</pre>
+                      <pre class="language-r">#' @typed nnE : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tL = 0.8,</pre>
+                      <pre class="language-r">#'  sample size or sizes where study can be stopped for Efficacy decision. If `0` or `NULL` and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tU = 0.8,</pre>
+                      <pre class="language-r">#'  `length(nnE) = 1` then no Efficacy looks are performed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ## for PP methods:</pre>
+                      <pre class="language-r">#' @typed nnF : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tT = 0.85,</pre>
+                      <pre class="language-r">#'  sample size or sizes where study can be stopped for Efficacy decision. If `0` or `NULL` and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                phiL = 0.05,</pre>
+                      <pre class="language-r">#'  `length(nnF) = 1` then no Futility looks are performed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                phiU = 0.95,</pre>
+                      <pre class="language-r">#' @typed tT : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ## prior on NME response rate:</pre>
+                      <pre class="language-r">#'  threshold of which assumed `truep` exceeds acceptable threshold of `p0`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                parE = c(1, 1),</pre>
+                      <pre class="language-r">#' @typed phiU : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                weights) {</pre>
+                      <pre class="language-r">#'  upper threshold on the predictive probability.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">93</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  method &lt;- match.arg(method)</pre>
+                      <pre class="language-r">#' @typed phiL : number</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">94</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  bayesNames &lt;- c(</pre>
+                      <pre class="language-r">#'  lower threshold on the predictive probability.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">95</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "PointMass.Bayes", "Prior.Bayes", "RCT.Bayes", "RCT.BayesRobust",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">96</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "RCTvanilla.Bayes"</pre>
+                      <pre class="language-r">#' @return A list with the following elements:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'  - `decision` : decision `flag` with `TRUE` for Go, `FALSE` for Stop, `NA` for Gray zone.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">98</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ppNames &lt;- c(</pre>
+                      <pre class="language-r">#'  - `all_sizes` : resulting number of look size, anything below maximum</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">99</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "PointMass.PP", "Prior.PP", "RCT.PP", "RCT.PProbust",</pre>
+                      <pre class="language-r">#'   look size is an indicated interim, Futility or Efficacy or both.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">100</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "RCTvanilla.PP"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">33</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">102</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">103</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## if parE is a vector =&gt; situation where there is only one component</pre>
+                      <pre class="language-r">h_get_decision_one_predprob &lt;- function(nnr, truep, p0, parE = c(1, 1), nnE, nnF, tT, phiU, phiL) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">104</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">36</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.vector(parE)) {</pre>
+                      <pre class="language-r">  assert_numeric(nnr, lower = 1, sorted = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">37</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## check that it has exactly two entries</pre>
+                      <pre class="language-r">  assert_number(truep, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">106</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">38</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stopifnot(identical(length(parE), 2L))</pre>
+                      <pre class="language-r">  assert_numeric(nnE, lower = 1, any.missing = FALSE, sorted = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">39</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## and transpose to matrix with one row</pre>
+                      <pre class="language-r">  assert_numeric(nnF, lower = 1, any.missing = FALSE, sorted = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">108</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">40</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parE &lt;- t(parE)</pre>
+                      <pre class="language-r">  assert_number(tT, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">41</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  assert_number(phiU, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">42</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  assert_number(phiL, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## if prior weights of the beta mixture are not supplied</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">112</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">44</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (missing(weights)) {</pre>
+                      <pre class="language-r">  index_look &lt;- 1</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">113</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">45</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights &lt;- rep(1, nrow(parE))</pre>
+                      <pre class="language-r">  Nmax &lt;- max(nnr)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">46</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## (don't need to be normalized, this is done in h_getBetamixPost)</pre>
+                      <pre class="language-r">  decision &lt;- NA</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">47</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  response &lt;- stats::rbinom(Nmax, size = 1, prob = truep)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">48</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  while (is.na(decision) &amp;&amp; index_look &lt; length(nnr)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## allocation to active and control arms:</pre>
+                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">118</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">50</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  activeProp &lt;-</pre>
+                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">119</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">51</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (method %in% c(</pre>
+                      <pre class="language-r">      interim_qU &lt;- predprob(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">120</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "RCT.Bayes",</pre>
+                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">121</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">53</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "RCT.BayesRobust",</pre>
+                      <pre class="language-r">        n = size_look,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">122</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">54</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "RCTvanilla.Bayes",</pre>
+                      <pre class="language-r">        Nmax = Nmax,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">123</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "RCT.PP",</pre>
+                      <pre class="language-r">        p = p0,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">124</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">56</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "RCT.PProbust",</pre>
+                      <pre class="language-r">        thetaT = tT,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">125</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "RCTvanilla.PP"</pre>
+                      <pre class="language-r">        parE = parE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) {</pre>
+                      <pre class="language-r">      )$result</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">127</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      ## randomize 1:1</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">128</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      1 / 2</pre>
+                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &gt; phiU, FALSE, decision)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ## only active here</pre>
+                      <pre class="language-r">    if (size_look %in% nnF) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">131</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      1</pre>
+                      <pre class="language-r">      interim_qU &lt;- predprob(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">132</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">64</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        n = size_look,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## deltas for prior methods:</pre>
+                      <pre class="language-r">        Nmax = Nmax,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">135</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  deltaE &lt;- delta</pre>
+                      <pre class="language-r">        p = p0,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">136</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  deltaF &lt;- 0</pre>
+                      <pre class="language-r">        thetaT = tT,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">137</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        parE = parE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">69</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## drift is accounted for:</pre>
+                      <pre class="language-r">      )$result</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">139</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  histRate &lt;- controlRate - drift</pre>
+                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &lt; phiL, FALSE, decision)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</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="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## s: decision reject H0 (TRUE) or fail to reject (FALSE)</pre>
+                      <pre class="language-r">    index_look &lt;- index_look + 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ##    during trial if continuing (NA)</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">143</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  s &lt;- rep(NA, nSim)</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">144</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  n &lt;- nActive &lt;- nControl &lt;- integer(length(s))</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (is.na(decision)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">146</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## looks: three times total including the last one,</pre>
+                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">76</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## approx equal distance.</pre>
+                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">148</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nn &lt;- ceiling(seq(from = 1, to = trialSize, length = 3 + 1))[-1]</pre>
+                      <pre class="language-r">      final_eff_qU &lt;- postprob(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">149</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nn &lt;- sort(nn)</pre>
+                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">150</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nr &lt;- FALSE</pre>
+                      <pre class="language-r">        n = size_look,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">151</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nL &lt;- length(nn)</pre>
+                      <pre class="language-r">        p = p0,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">152</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Nstart &lt;- nn[1]</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">153</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">82</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Nmax &lt;- nn[nL]</pre>
+                      <pre class="language-r">        log.p = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">155</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  NmaxActive &lt;- ceiling(activeProp * Nmax)</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">156</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">85</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  NmaxControl &lt;- Nmax - NmaxActive</pre>
+                      <pre class="language-r">    decision &lt;- ifelse(final_eff_qU &gt; tT, TRUE, NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">158</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (nr &amp;&amp; is.null(d)) {</pre>
+                      <pre class="language-r">  if (size_look %in% nnF) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">159</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">88</td>
+                    <td class="coverage">137<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## set parameter d for randomly generating look locations</pre>
+                      <pre class="language-r">    final_fu_qU &lt;- postprob(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">160</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">89</td>
+                    <td class="coverage">137<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    d &lt;- floor(min(nn - c(0, nn[-nL])) / 2)</pre>
+                      <pre class="language-r">      x = sum(response[1:size_look]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">161</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">90</td>
+                    <td class="coverage">137<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      n = size_look,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">162</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  nnr &lt;- nn</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">163</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">137<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      p = p0,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">164</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">137<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (k in 1:nSim) { ## simulate a clinical trial nSim times</pre>
+                      <pre class="language-r">      parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">165</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">137<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (nr &amp;&amp; (d &gt; 0)) {</pre>
+                      <pre class="language-r">      log.p = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ## randomly generate look locations</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">167</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">95</td>
+                    <td class="coverage">137<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dd &lt;- sample(-d:d,</pre>
+                      <pre class="language-r">    decision &lt;- ifelse(final_fu_qU &lt; tT, FALSE, decision)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">168</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">96</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        size = nL - 1, replace = TRUE,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">169</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">97</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        prob = 2^(c(-d:0, rev(-d:(-1))) / 2)</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">98</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    decision = decision,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">171</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">99</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnr &lt;- nn + c(dd, 0)</pre>
+                      <pre class="language-r">    all_sizes = size_look</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</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">173</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">174</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## simulate sequence of patients</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">175</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">103</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    isActive &lt;- sample(</pre>
+                      <pre class="language-r">#' Generating random decision and sample size looks for `decision1 == FALSE`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">176</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x =</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">177</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">105</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        rep(</pre>
+                      <pre class="language-r">#' A helper function for [ocPredprob()] to generate numeric of decisions `decisions` and</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">178</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">106</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          c(TRUE, FALSE),</pre>
+                      <pre class="language-r">#' random looks `all_sizes` for `decision1 == FALSE`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">179</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">107</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          c(NmaxActive, NmaxControl)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">#' @inheritParams h_get_decision_one_predprob</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">181</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">109</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size = Nmax,</pre>
+                      <pre class="language-r">#' @typed phiFu : number</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">182</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      replace = FALSE</pre>
+                      <pre class="language-r">#'  upper threshold on the predictive probability.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @typed p1 : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'  upper Futility threshold of response rate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## generate the control data (binomial distribution)</pre>
+                      <pre class="language-r">#' @typed tF : number</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">186</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">114</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xHist &lt;- stats::rbinom(n = 1L, size = histSize, prob = histRate)</pre>
+                      <pre class="language-r">#'  threshold of which assumed `truep` does not exceed threshold of `p1`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</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">188</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## this generates p0:</pre>
+                      <pre class="language-r">#' @return A list with the following elements:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">189</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">117</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p0 &lt;- xHist / histSize</pre>
+                      <pre class="language-r">#'  - `decision` : decision `flag` with `TRUE` for Go, `FALSE` for Stop, `NA` for Gray zone.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'  - `all_sizes` : resulting number of look size, anything below maximum</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## and with the delta this gives p1:</pre>
+                      <pre class="language-r">#'   look size is an indicated interim, Futility or Efficacy or both.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">192</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">120</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p1 &lt;- min(p0 + delta, 1)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">121</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">194</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## for the prior methods, these are the</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## beta parameters:</pre>
+                      <pre class="language-r">h_get_decision_two_predprob &lt;- function(nnr, truep, p0, p1, parE = c(1, 1), nnE, nnF, tT, tF, phiFu, phiU) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">196</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parS &lt;-</pre>
+                      <pre class="language-r">  assert_numeric(nnr, lower = 1, sorted = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">197</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">125</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (method %in% c("RCTvanilla.Bayes", "RCTvanilla.PP")) {</pre>
+                      <pre class="language-r">  assert_number(truep, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">198</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## change parS to uniform in RCT vanilla case</pre>
+                      <pre class="language-r">  assert_numeric(nnE, lower = 1, any.missing = FALSE, sorted = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">199</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(1, 1)</pre>
+                      <pre class="language-r">  assert_numeric(nnF, lower = 1, any.missing = FALSE, sorted = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">200</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">128</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (method %in% c("RCT.BayesRobust", "RCT.PProbust")) {</pre>
+                      <pre class="language-r">  assert_number(tT, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">201</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## specify a robust prior using the historical data</pre>
+                      <pre class="language-r">  assert_number(tF, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">202</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## beta mixture (50% weight each) of the informative</pre>
+                      <pre class="language-r">  assert_number(phiFu, lower = 0, upper = 1)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">1001<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_number(phiU, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## and uniform distribution:</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">204</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        matrix(</pre>
+                      <pre class="language-r">  index_look &lt;- 1</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">205</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data =</pre>
+                      <pre class="language-r">  Nmax &lt;- max(nnr)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">206</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            c(</pre>
+                      <pre class="language-r">  decision &lt;- NA</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">207</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              1 + xHist, 1 + histSize - xHist,</pre>
+                      <pre class="language-r">  response &lt;- stats::rbinom(Nmax, size = 1, prob = truep)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">208</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              1, 1</pre>
+                      <pre class="language-r">  while (is.na(decision) &amp;&amp; index_look &lt; length(nnr)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">1001<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">1001<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">      # GO when P(success at final) &gt; phiU</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">210</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          nrow = 2,</pre>
+                      <pre class="language-r">      interim_qU &lt;- predprob( # success at final is defined by P(p &gt; p0) &gt; tT</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">211</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          byrow = TRUE</pre>
+                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">212</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        n = size_look,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">213</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## note that, because the default is a uniform distribution</pre>
+                      <pre class="language-r">        Nmax = Nmax,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">214</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## across the mixture components, we do not need to manually</pre>
+                      <pre class="language-r">        p = p0,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">215</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## specify the weights.</pre>
+                      <pre class="language-r">        thetaT = tT,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">216</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">        parE = parE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">217</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">148</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## otherwise we use the historical data without robustification</pre>
+                      <pre class="language-r">      )$result</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">218</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(1 + xHist, 1 + histSize - xHist)</pre>
+                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &gt; phiU, TRUE, NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</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">220</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    if (size_look %in% nnF) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## generate the trial data (Bernoulli distribution)</pre>
+                      <pre class="language-r">      # STOP when P (failure at final ) &gt; phiFu</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">222</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">153</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## simulate sequence of responses</pre>
+                      <pre class="language-r">      interim_qU &lt;- 1 - predprob( # failure at final is defined as P(p &lt; p1) &gt; tF</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">223</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">154</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- stats::rbinom(Nmax, 1,</pre>
+                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">224</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      prob = ifelse(isActive, nmeRate, controlRate)</pre>
+                      <pre class="language-r">        n = size_look,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">225</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        Nmax = Nmax,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">226</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        p = p1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">227</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## start trial</pre>
+                      <pre class="language-r">        thetaT = tF,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">228</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    j &lt;- 1</pre>
+                      <pre class="language-r">        parE = parE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">229</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    i &lt;- nnr[j]</pre>
+                      <pre class="language-r">      )$result</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">230</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &gt; phiFu, FALSE, decision)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">231</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">162</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    while (is.na(s[k]) &amp;&amp; (j &lt;= length(nnr))) {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">232</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (method == "PointMass.Bayes") {</pre>
+                      <pre class="language-r">    index_look &lt;- index_look + 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## PointMass.Bayes</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">234</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qL &lt;- 1 - postprob(x = sum(x[1:i]), n = i, p = p0, parE = parE, weights = weights)</pre>
+                      <pre class="language-r">  if (is.na(decision)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">235</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qU &lt;- postprob(x = sum(x[1:i]), n = i, p = p1, parE = parE, weights = weights)</pre>
+                      <pre class="language-r">    if (size_look %in% nnE) { # for efficacy looks at FINAL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">236</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (method %in% c(</pre>
+                      <pre class="language-r">      final_qU &lt;- postprob(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">237</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">168</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Prior.Bayes",</pre>
+                      <pre class="language-r">        # based on all data, the posterior probability is a GO when P(p &gt; p0) &gt; tT</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">238</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "RCT.Bayes",</pre>
+                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">239</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "RCT.BayesRobust",</pre>
+                      <pre class="language-r">        n = size_look,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">240</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "RCTvanilla.Bayes"</pre>
+                      <pre class="language-r">        p = p0,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">241</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )) {</pre>
+                      <pre class="language-r">        parE = parE,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        log.p = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## current data in both arms:</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">243</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xActive &lt;- x[which(isActive[1:i])]</pre>
+                      <pre class="language-r">      decision &lt;- ifelse(final_qU &gt; tT, TRUE, NA)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">244</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">176</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xControl &lt;- x[which(!isActive[1:i])]</pre>
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (size_look %in% nnF) { # for futility looks at FINAL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## compute the two probabilities</pre>
+                      <pre class="language-r">      # based on all data, the posterior probability is a STOP when P(p &lt; p1) &gt; tF</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">246</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qL &lt;- postprobDist(</pre>
+                      <pre class="language-r">      final_qU &lt;- 1 - postprob(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">247</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = sum(xControl), n = length(xControl),</pre>
+                      <pre class="language-r">        x = sum(x = response[1:size_look]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">248</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          xS = sum(xActive), nS = length(xActive),</pre>
+                      <pre class="language-r">        n = size_look,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">249</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">182</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          delta = deltaF,</pre>
+                      <pre class="language-r">        p = p1,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">250</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          parE = parS,</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">251</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          parS = parE, weightsS = weights</pre>
+                      <pre class="language-r">        log.p = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">253</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qU &lt;- postprobDist(</pre>
+                      <pre class="language-r">      decision &lt;- ifelse(final_qU &gt; tF, FALSE, decision)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">254</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">187</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = sum(xControl), n = length(xControl),</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">255</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          xS = sum(xActive), nS = length(xActive),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">256</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          delta = deltaE,</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">257</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          parE = parE, weights = weights,</pre>
+                      <pre class="language-r">    decision = decision,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">258</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">191</td>
+                    <td class="coverage">1001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          parS = parS</pre>
+                      <pre class="language-r">    all_sizes = size_look</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## sample sizes: in both arms</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">261</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">194</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nActive[k] &lt;- length(xActive)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">262</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">195</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nControl[k] &lt;- length(xControl)</pre>
+                      <pre class="language-r">#' Operating Characteristics for Predictive Probability method</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">263</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">196</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (method == "PointMass.PP") {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## PointMass.PP</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">265</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">198</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        q &lt;- predprob(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">266</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">199</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = sum(x[1:i]),</pre>
+                      <pre class="language-r">#' Calculate operating characteristics for predictive probability method.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">267</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">          n = i, Nmax = Nmax, p = p1,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">268</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">201</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          thetaT = tT, parE = parE, weights = weights</pre>
+                      <pre class="language-r">#' It is assumed that the true response rate is `truep`. Trials can stop for Futility</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">269</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">202</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )$result</pre>
+                      <pre class="language-r">#' or Efficacy. Trials can also stop at Interim or Final for Futility or Efficacy.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">270</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (method %in% c(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">271</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">204</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Prior.PP",</pre>
+                      <pre class="language-r">#' There are two variations of decision rule, Decision 1 and Decision 2, to</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">272</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">205</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "RCT.PP",</pre>
+                      <pre class="language-r">#' evaluate decision at Interim or Final, for Futility or Efficacy. Decision 1 is</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">273</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">206</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "RCT.PProbust",</pre>
+                      <pre class="language-r">#' used when `decision1 == TRUE` which is the default setting.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">274</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">207</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "RCTvanilla.PP"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )) {</pre>
+                      <pre class="language-r">#' ## Decision 1:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## current data in both arms:</pre>
+                      <pre class="language-r">#' The criteria for Decision 1 for Interim looks are :</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">277</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">210</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xActive &lt;- x[which(isActive[1:i])]</pre>
+                      <pre class="language-r">#' - interim GO =  P(successful trial at final) &gt; phiU</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">278</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">        xControl &lt;- x[which(!isActive[1:i])]</pre>
+                      <pre class="language-r">#' - interim STOP = P(successful trial at final) &lt; phiL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## compute predictive probability</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">280</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">213</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        q &lt;- predprobDist(</pre>
+                      <pre class="language-r">#' The criteria for Decision 1 for Final looks are:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">281</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">214</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = sum(xActive), n = length(xActive),</pre>
+                      <pre class="language-r">#' - Final GO = P( response rate &gt; p0 | data) &gt; tT</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">282</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">215</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          xS = sum(xControl), nS = length(xControl),</pre>
+                      <pre class="language-r">#' - Final STOP = P( response rate &gt; p0 | data ) &lt; tT</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">283</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">216</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          Nmax = NmaxActive, NmaxControl = NmaxControl,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">284</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">217</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          delta = delta,</pre>
+                      <pre class="language-r">#' ## Decision 2:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">285</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">218</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          thetaT = tT,</pre>
+                      <pre class="language-r">#' The criteria for Decision 2 for Interim looks are :</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">286</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">219</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          parE = parE,</pre>
+                      <pre class="language-r">#' - Interim GO : P ( success at final) &gt; phiU</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">287</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">220</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          weights = weights,</pre>
+                      <pre class="language-r">#' - Interim STOP : P (failure at final ) &gt; phiFu</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">288</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">221</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          parS = parS</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">289</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">222</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )$result</pre>
+                      <pre class="language-r">#' The criteria for Decision 2 for Futility looks are :</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' - Final GO = P( response rate &gt; p0) &gt; tT</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## sample sizes: in both arms</pre>
+                      <pre class="language-r">#' - Final STOP = P( response rate  &lt; p1) &gt; tF</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">292</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">225</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nActive[k] &lt;- length(xActive)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">293</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">226</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nControl[k] &lt;- length(xControl)</pre>
+                      <pre class="language-r">#' @inheritParams h_get_decision_one_predprob</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @inheritParams h_get_decision_two_predprob</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @typed sim : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ## decision depends on whether Bayes or PP is used:</pre>
+                      <pre class="language-r">#'  number of simulations.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">297</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">230</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      s[k] &lt;- if (method %in% bayesNames) {</pre>
+                      <pre class="language-r">#' @typed wiggle : flag</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">298</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">231</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ifelse(qU &gt;= tU, TRUE, ifelse(qL &gt;= tL, FALSE, NA))</pre>
+                      <pre class="language-r">#'  generate random look locations (not default). If `wiggle = TRUE` and `nnE = nnF`, then all wiggled</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#'  looks are the same between `nnE` and `nnF`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">300</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">233</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ifelse(q &gt;= phiU &amp; !(i &lt; Nmax &amp; phiU == 1),</pre>
+                      <pre class="language-r">#' @typed decision1 : flag</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">301</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">234</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          TRUE,</pre>
+                      <pre class="language-r">#'  Flag if `decision1 = TRUE` then Decision 1 rules will be used, otherwise Decision 2 rules will be used.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">302</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">235</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ifelse(q &lt;= phiL, FALSE, NA)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @return A list with the following elements:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' - `oc`: matrix with operating characteristics with the following details:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'    - `ExpectedN`: expected number of patients in the trials</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ## advance iterators</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">307</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      n[k] &lt;- i</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">308</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      j &lt;- j + 1</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">309</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      i &lt;- nnr[j]</pre>
+                      <pre class="language-r">#'    - `PrStopEarly`: probability to stop the trial early (before reaching the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'                    maximum sample size)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'    - `PrEarlyEff`: probability of Early Go decision</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">313</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  oc &lt;- cbind(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">314</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ExpectedN = mean(n),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">315</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ExpectedNactive = mean(nActive),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">316</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ExpectedNcontrol = mean(nControl),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">317</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    PrStopEarly = mean(n &lt; Nmax),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">318</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    PrEarlyEff = sum(s * (n &lt; Nmax), na.rm = TRUE) / nSim,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">319</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    PrEarlyFut = sum((1 - s) * (n &lt; Nmax), na.rm = TRUE) / nSim,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">320</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    PrEfficacy = sum(s, na.rm = TRUE) / nSim,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">321</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    PrFutility = sum(1 - s, na.rm = TRUE) / nSim,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">322</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    PrGrayZone = sum(is.na(s) / nSim)</pre>
+                      <pre class="language-r">#'    - `PrEarlyFut`: probability of for Early Stop decision</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'    - `PrEfficacy`: probability of Go decision</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'    - `PrFutility`: probability of Stop decision</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">325</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## return OC</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">326</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  return(oc)</pre>
+                      <pre class="language-r">#'    - `PrGrayZone`: probability between Go and Stop ,"Evaluate" or Gray decision zone</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' - `Decision` : numeric of results with `TRUE` as Go decision, `FALSE` as Stop and `NA` as gray zone.</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/dbetabinom.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Beta-Binomial Density Function</pre>
+                      <pre class="language-r">#' - `SampleSize` : numeric of sample sizes from `nnE` or `nnF` or both.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' - `wiggled_nnE` : user input for `nnE` with random distance applied.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">#' - `wiggled_nnF` : user input for `nnF` with random distance applied.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' - `wiggled_dist` : magnitude of random distance applied in order of input looks.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Calculates the density function of the beta-binomial distribution.</pre>
+                      <pre class="language-r">#' - `params` : all user input arguments.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' The beta-binomial density function has the following form:</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `p(x) = (m! / (x!*(m-x)!)) * Beta(x+a,m-x+b) / Beta(a,b)`</pre>
+                      <pre class="language-r">#' @example examples/ocPredprob.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">254</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">10</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed x : numeric</pre>
+                      <pre class="language-r">ocPredprob &lt;- function(nnE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of successes.</pre>
+                      <pre class="language-r">                       truep,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed m : number</pre>
+                      <pre class="language-r">                       p0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of trials.</pre>
+                      <pre class="language-r">                       phiU,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed a : numeric</pre>
+                      <pre class="language-r">                       p1 = p0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  first parameter of the beta distribution.</pre>
+                      <pre class="language-r">                       tT = 1 - tF,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed b : numeric</pre>
+                      <pre class="language-r">                       tF = 1 - tT,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  second parameter of the beta distribution.</pre>
+                      <pre class="language-r">                       phiL = 1 - phiFu,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed log : flag</pre>
+                      <pre class="language-r">                       phiFu = 1 - phiL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  whether to return the log density value (not default).</pre>
+                      <pre class="language-r">                       parE = c(1, 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return The density values of the beta-binomial distribution at `x`.</pre>
+                      <pre class="language-r">                       sim = 50000,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                       wiggle = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/dbetabinom.R</pre>
+                      <pre class="language-r">                       nnF = nnE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                       decision1 = TRUE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">269</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">dbetabinom &lt;- function(x, m, a, b, log = FALSE) {</pre>
+                      <pre class="language-r">  assert_numeric(nnE, lower = 1, any.missing = FALSE, sorted = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">25</td>
-                    <td class="coverage">65638<em>x</em></td>
+                    <td class="num">270</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(x, lower = 0, upper = m, finite = TRUE)</pre>
+                      <pre class="language-r">  assert_number(sim, lower = 1, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">26</td>
-                    <td class="coverage">65637<em>x</em></td>
+                    <td class="num">271</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(m, lower = 0, finite = TRUE)</pre>
+                      <pre class="language-r">  assert_flag(wiggle)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">27</td>
-                    <td class="coverage">65637<em>x</em></td>
+                    <td class="num">272</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(a, lower = 0, finite = TRUE)</pre>
+                      <pre class="language-r">  assert_numeric(nnF, lower = 1, any.missing = FALSE, sorted = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">28</td>
-                    <td class="coverage">65637<em>x</em></td>
+                    <td class="num">273</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(b, lower = 0, finite = TRUE)</pre>
+                      <pre class="language-r">  assert_flag(decision1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">65637<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">  assert_flag(log)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">30</td>
-                    <td class="coverage">65637<em>x</em></td>
+                    <td class="num">275</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  log_ret &lt;- lchoose(m, x) + lbeta(x + a, m - x + b) - lbeta(a, b)</pre>
+                      <pre class="language-r">  nn &lt;- sort(unique(c(nnF, nnE)))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">31</td>
-                    <td class="coverage">65637<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (log) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">32</td>
-                    <td class="coverage">!</td>
+                    <td class="num">276</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    log_ret</pre>
+                      <pre class="language-r">  Nmax &lt;- max(nn)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">277</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  if (sim &lt; 50000) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">65637<em>x</em></td>
+                    <td class="num">278</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    exp(log_ret)</pre>
+                      <pre class="language-r">    warning("Advise to use sim &gt;= 50000 to achieve convergence")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">280</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  decision &lt;- vector(length = sim)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">281</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  all_sizes &lt;- vector(length = sim)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">282</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Beta-Mixture-Binomial Density Function</pre>
+                      <pre class="language-r">  for (k in seq_len(sim)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">283</td>
+                    <td class="coverage">1150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    if (length(nn) != 1 &amp;&amp; wiggle) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">      # if we have more than one look in nnF and nnE, we don't wiggle</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">285</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      dist &lt;- h_get_distance(nn = nn)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">286</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Calculates the density function for a mixture of beta-binomial distributions.</pre>
+                      <pre class="language-r">      nnr &lt;- h_get_looks(dist = dist, nnE = nnE, nnF = nnF)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">287</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      nnrE &lt;- nnr$nnrE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">288</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams dbetabinom</pre>
+                      <pre class="language-r">      nnrF &lt;- nnr$nnrF</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed par : matrix</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">290</td>
+                    <td class="coverage">1150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  the beta parameters matrix, with K rows and 2 columns,</pre>
+                      <pre class="language-r">      dist &lt;- NULL</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">291</td>
+                    <td class="coverage">1150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  corresponding to the beta parameters of the K components.</pre>
+                      <pre class="language-r">      nnrE &lt;- nnE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">292</td>
+                    <td class="coverage">1150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed weights : numeric</pre>
+                      <pre class="language-r">      nnrF &lt;- nnF</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  the mixture weights of the beta mixture prior of length K.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">294</td>
+                    <td class="coverage">1150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Each element corresponds to the row of beta parameters in `par`.</pre>
+                      <pre class="language-r">    nnr &lt;- unique(sort(c(nnrE, nnrF)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">295</td>
+                    <td class="coverage">1150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed log : flag</pre>
+                      <pre class="language-r">    tmp &lt;- if (decision1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">296</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  whether to return the log density value (not default).</pre>
+                      <pre class="language-r">      h_get_decision_one_predprob(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">297</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return The (log) density values of the mixture of beta-binomial distributions at `x`.</pre>
+                      <pre class="language-r">        nnr = nnr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">298</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        truep = truep,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">299</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/dbetabinomMix.R</pre>
+                      <pre class="language-r">        p0 = p0,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">300</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">301</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">dbetabinomMix &lt;- function(x, m, par, weights, log = FALSE) {</pre>
+                      <pre class="language-r">        nnE = nnrE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">65635<em>x</em></td>
+                    <td class="num">302</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_matrix(par, min.rows = 1, min.cols = 2)</pre>
+                      <pre class="language-r">        nnF = nnrF,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">65635<em>x</em></td>
+                    <td class="num">303</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_flag(log)</pre>
+                      <pre class="language-r">        tT = tT,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">65635<em>x</em></td>
+                    <td class="num">304</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ret &lt;- sum(weights * dbetabinom(x, m, par[, 1], par[, 2]))</pre>
+                      <pre class="language-r">        phiU = phiU,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">65634<em>x</em></td>
+                    <td class="num">305</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (log) {</pre>
+                      <pre class="language-r">        phiL = phiL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">62</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">306</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    log(ret)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">65634<em>x</em></td>
+                    <td class="num">308</td>
+                    <td class="coverage">1000<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret</pre>
+                      <pre class="language-r">      h_get_decision_two_predprob(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">309</td>
+                    <td class="coverage">1000<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        nnr = nnr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">310</td>
+                    <td class="coverage">1000<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        truep = truep,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">311</td>
+                    <td class="coverage">1000<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">dbetabinomMix &lt;- Vectorize(dbetabinomMix, vectorize.args = "x")</pre>
+                      <pre class="language-r">        p0 = p0,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">312</td>
+                    <td class="coverage">1000<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        p1 = p1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">313</td>
+                    <td class="coverage">1000<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">314</td>
+                    <td class="coverage">1000<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Compute Beta-Mixture-Binomial Posterior Distribution</pre>
+                      <pre class="language-r">        nnE = nnrE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">315</td>
+                    <td class="coverage">1000<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        nnF = nnrF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">316</td>
+                    <td class="coverage">1000<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A helper function that computes the posterior parameters of a beta-mixture-binomial distribution.</pre>
+                      <pre class="language-r">        tT = tT,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">317</td>
+                    <td class="coverage">1000<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        tF = tF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">318</td>
+                    <td class="coverage">1000<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams dbetabinom</pre>
+                      <pre class="language-r">        phiFu = phiFu,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">319</td>
+                    <td class="coverage">1000<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams dbetabinomMix</pre>
+                      <pre class="language-r">        phiU = phiU</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list with the updated beta parameters and weights.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">322</td>
+                    <td class="coverage">1150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    decision[k] &lt;- tmp$decision</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">323</td>
+                    <td class="coverage">1150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom stats dbeta dbinom</pre>
+                      <pre class="language-r">    all_sizes[k] &lt;- tmp$all_sizes</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">325</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  oc &lt;- h_get_oc(all_sizes = all_sizes, Nmax = Nmax, decision = decision)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">326</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_getBetamixPost &lt;- function(x, n, par, weights) {</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">584680<em>x</em></td>
+                    <td class="num">327</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(x, lower = 0, upper = n, finite = TRUE)</pre>
+                      <pre class="language-r">    oc = oc,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">584678<em>x</em></td>
+                    <td class="num">328</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(n, lower = 0, finite = TRUE)</pre>
+                      <pre class="language-r">    Decision = decision,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">584678<em>x</em></td>
+                    <td class="num">329</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_matrix(par, min.rows = 1, max.cols = 2, mode = "numeric")</pre>
+                      <pre class="language-r">    SampleSize = all_sizes,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">584678<em>x</em></td>
+                    <td class="num">330</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(weights, min.len = 0, len = nrow(par), finite = TRUE)</pre>
+                      <pre class="language-r">    wiggled_nnrE = nnrE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">331</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # We renormalize weights.</pre>
+                      <pre class="language-r">    wiggled_nnrF = nnrF,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">584675<em>x</em></td>
+                    <td class="num">332</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  weights &lt;- weights / sum(weights)</pre>
+                      <pre class="language-r">    dist = dist,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">333</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    params = as.list(match.call(expand.dots = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # We now compute updated parameters.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">584675<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">335</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  postPar &lt;- par</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">584675<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/ocRctPredprobDist.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">  postPar[, 1] &lt;- postPar[, 1] + x</pre>
+                      <pre class="language-r">#' Generating random decision and sample size looks</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">584675<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">  postPar[, 2] &lt;- postPar[, 2] + n - x</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # We compute updated mixture probabilities.</pre>
+                      <pre class="language-r">#' A helper function for [ocRctPredprobDist()] to generate a single trial decision and sample size.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">584675<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">  tmp &lt;- exp(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">584675<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">    lbeta(a = postPar[, 1], b = postPar[, 2]) - lbeta(a = par[, 1], b = par[, 2])</pre>
+                      <pre class="language-r">#' @inheritParams h_get_decisionDist</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @inheritParams ocPredprobDist</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # We compute the updated weights of the posterior</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">584675<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">  postWeights &lt;- weights * tmp / sum(weights * tmp)</pre>
+                      <pre class="language-r">#' @return A list with the following elements :</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">584675<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">  assert_numeric(postWeights)</pre>
+                      <pre class="language-r">#'  - `decision` : decision `flag` with `TRUE` for Go, `FALSE` for Stop, `NA` for Gray zone.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">584675<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">#'  - `all_sizes` : resulting sample size.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">584675<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    par = postPar,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">584675<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">    weights = postWeights</pre>
+                      <pre class="language-r">#'  - `nActive` : number of patients in the active arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'  - `nControl` : number of patients in the control arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">h_decision_one_RctpredprobDist &lt;- function(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Beta-Mixture density function</pre>
+                      <pre class="language-r">    nnr,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    nnE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function calculates beta-mixture density values.</pre>
+                      <pre class="language-r">    nnF,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    pE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">    pS,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    parE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The beta-mixture distribution is defined by K beta parameters and the corresponding weights.</pre>
+                      <pre class="language-r">    parS,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    tT,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams dbetabinom</pre>
+                      <pre class="language-r">    phiU,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams dbetabinomMix</pre>
+                      <pre class="language-r">    phiL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed log : flag</pre>
+                      <pre class="language-r">    deltaE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  whether log values of the beta-mixture density function are returned.</pre>
+                      <pre class="language-r">    deltaF,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    weights,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return the (log) density values</pre>
+                      <pre class="language-r">    weightsS,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    relativeDelta = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/dbetaMix.R</pre>
+                      <pre class="language-r">    randRatio = 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">31</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  assert_numeric(nnE, lower = 1, sorted = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">32</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">dbetaMix &lt;- function(x, par, weights, log = FALSE) {</pre>
+                      <pre class="language-r">  assert_numeric(nnF, lower = 1, sorted = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">366220<em>x</em></td>
+                    <td class="num">33</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(weights, lower = 0, upper = 1, finite = TRUE, any.missing = FALSE)</pre>
+                      <pre class="language-r">  assert_numeric(nnr, lower = 1, sorted = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">366220<em>x</em></td>
+                    <td class="num">34</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_true(all.equal(sum(weights), 1))</pre>
+                      <pre class="language-r">  assert_number(pE, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">366219<em>x</em></td>
+                    <td class="num">35</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_true(identical(length(weights), nrow(par)))</pre>
+                      <pre class="language-r">  assert_number(pS, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">366219<em>x</em></td>
+                    <td class="num">36</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  degree &lt;- length(weights)</pre>
+                      <pre class="language-r">  assert_number(randRatio, lower = 1, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">366219<em>x</em></td>
+                    <td class="num">38</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  component_densities &lt;- matrix(</pre>
+                      <pre class="language-r">  Nmax &lt;- max(nnr)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">366219<em>x</em></td>
+                    <td class="num">39</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dbeta(rep(x, each = degree), par[, 1], par[, 2]),</pre>
+                      <pre class="language-r">  decision &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">366219<em>x</em></td>
+                    <td class="num">40</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nrow = degree,</pre>
+                      <pre class="language-r">  activeProp &lt;- randRatio / (randRatio + 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">366219<em>x</em></td>
+                    <td class="num">41</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ncol = length(x)</pre>
+                      <pre class="language-r">  NmaxActive &lt;- ceiling(activeProp * Nmax)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">42</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  NmaxControl &lt;- Nmax - NmaxActive</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">366219<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">  ret &lt;- as.numeric(weights %*% component_densities)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">366219<em>x</em></td>
+                    <td class="num">44</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (log) {</pre>
+                      <pre class="language-r">  isActive &lt;- sample(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">136</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">45</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    log(ret)</pre>
+                      <pre class="language-r">    x = rep(c(TRUE, FALSE), c(NmaxActive, NmaxControl)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">137</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">46</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    size = Nmax,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">366219<em>x</em></td>
+                    <td class="num">47</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret</pre>
+                      <pre class="language-r">    replace = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  response &lt;- rbinom(Nmax, size = 1, prob = ifelse(isActive, pE, pS))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">50</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  index_look &lt;- 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">142</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">51</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  size_look &lt;- nnr[index_look]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Beta-Mixture CDF</pre>
+                      <pre class="language-r">  ### Decision 1:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # The criteria for Decision 1 for Interim looks are :</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">  # Interim GO =  P(successful trial at final) &gt; phiU</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # Interim STOP = P(successful trial at final) &lt; phiL</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">56</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Calculates the CDF of the Beta-Mixture distribution.</pre>
+                      <pre class="language-r">  while (is.na(decision) &amp;&amp; index_look &lt; length(nnr)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">148</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">278<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    xActive &lt;- response[which(isActive[1:size_look])]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">278<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed q : number</pre>
+                      <pre class="language-r">    xControl &lt;- response[which(!isActive[1:size_look])]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">278<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  the abscissa.</pre>
+                      <pre class="language-r">    if (size_look %in% nnF) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">151</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed par : matrix</pre>
+                      <pre class="language-r">      interim_qU &lt;- predprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  the beta parameters matrix, with K rows and 2 columns,</pre>
+                      <pre class="language-r">        x = sum(xActive),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">153</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  corresponding to the beta parameters of the K components.</pre>
+                      <pre class="language-r">        n = length(xActive),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">154</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed weights : numeric</pre>
+                      <pre class="language-r">        xS = sum(xControl),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">155</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">64</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  the mixture weights of the beta mixture prior which add up to 1.</pre>
+                      <pre class="language-r">        nS = length(xControl),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">156</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed lower.tail : flag</pre>
+                      <pre class="language-r">        Nmax = NmaxActive,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">157</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  if `TRUE` (default), probabilities are `P[X &lt;= x]`,</pre>
+                      <pre class="language-r">        NmaxControl = NmaxControl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">158</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  and otherwise `P[X &gt; x]`.</pre>
+                      <pre class="language-r">        delta = deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">159</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return The (one minus) cdf value</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">160</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">69</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">161</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note `q` can be a vector.</pre>
+                      <pre class="language-r">        weights = weights,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">162</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        parS = parS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">163</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/pbetaMix.R</pre>
+                      <pre class="language-r">        weightsS = weightsS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">164</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">73</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom stats pbeta</pre>
+                      <pre class="language-r">        thetaT = tT</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      )$result</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">274<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &lt; phiL, FALSE, decision)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">pbetaMix &lt;- function(q, par, weights, lower.tail = TRUE) {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">77</td>
+                    <td class="coverage">278<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(q, lower = 0, upper = 1, finite = TRUE)</pre>
+                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">78</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(weights, lower = 0, upper = 1, finite = TRUE)</pre>
+                      <pre class="language-r">      interim_qU &lt;- predprobDist(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">79</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_matrix(par)</pre>
+                      <pre class="language-r">        x = sum(xActive),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">80</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_flag(lower.tail)</pre>
+                      <pre class="language-r">        n = length(xActive),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">81</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .pbetaMix(q = q, par = par, weights = weights, lower.tail = lower.tail)</pre>
+                      <pre class="language-r">        xS = sum(xControl),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">172</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">82</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        nS = length(xControl),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">173</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">83</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        Nmax = NmaxActive,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.pbetaMix &lt;- function(q, par, weights, lower.tail) {</pre>
+                      <pre class="language-r">        NmaxControl = NmaxControl,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">1092466<em>x</em></td>
+                    <td class="num">85</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  degree &lt;- length(weights)</pre>
+                      <pre class="language-r">        delta = deltaE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">1092466<em>x</em></td>
+                    <td class="num">86</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  component_p &lt;- matrix(</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">1092466<em>x</em></td>
+                    <td class="num">87</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pbeta(rep(q, each = degree), par[, 1], par[, 2], lower.tail = lower.tail),</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">1092466<em>x</em></td>
+                    <td class="num">88</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nrow = degree,</pre>
+                      <pre class="language-r">        weights = weights,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">1092466<em>x</em></td>
+                    <td class="num">89</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ncol = length(q)</pre>
+                      <pre class="language-r">        parS = parS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">180</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">90</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        weightsS = weightsS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">1092466<em>x</em></td>
+                    <td class="num">91</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  as.numeric(weights %*% component_p)</pre>
+                      <pre class="language-r">        thetaT = tT</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      )$result</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">183</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &gt; phiU, TRUE, decision)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">95</td>
+                    <td class="coverage">278<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Beta-Mixture Quantile Function</pre>
+                      <pre class="language-r">    index_look &lt;- index_look + 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">96</td>
+                    <td class="coverage">278<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # The criteria for Decision 1 for Final looks are:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Calculates the quantile of the Beta-Mixture distribution for a given probability.</pre>
+                      <pre class="language-r">  # Final GO = P(RR &gt; p0 + deltaE | data) =&gt; tT</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # Final STOP = P(RR &gt; p0 + deltaF | data ) &lt; tT</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">191</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed p : numeric</pre>
+                      <pre class="language-r">  if (is.na(decision)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">102</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  the required probability.</pre>
+                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">103</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed par : number</pre>
+                      <pre class="language-r">    xActive &lt;- response[which(isActive[1:size_look])]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">104</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  the beta parameters matrix, with K rows and 2 columns,</pre>
+                      <pre class="language-r">    xControl &lt;- response[which(!isActive[1:size_look])]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">105</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  corresponding to the beta parameters of the K components.</pre>
+                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">106</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed weights : matrix</pre>
+                      <pre class="language-r">      final_eff_qU &lt;- postprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  the mixture weights of the beta mixture prior.</pre>
+                      <pre class="language-r">        x = sum(xActive),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">198</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed lower.tail : flag</pre>
+                      <pre class="language-r">        n = length(xActive),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">199</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  whether CDF at x taken at lower or upper tail</pre>
+                      <pre class="language-r">        xS = sum(xControl),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">200</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return The abscissa.</pre>
+                      <pre class="language-r">        nS = length(xControl),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">201</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        delta = deltaE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">202</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">112</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/qbetaMix.R</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">203</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">204</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">114</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">qbetaMix &lt;- function(p, par, weights, lower.tail = TRUE) {</pre>
+                      <pre class="language-r">        weights = weights, # for activeBetamixPost</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">144669<em>x</em></td>
+                    <td class="num">115</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(p, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">        parS = parS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">144669<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">  assert_numeric(weights, lower = 0, upper = 1, finite = TRUE)</pre>
+                      <pre class="language-r">        weightsS = weightsS # for controlBetamixPost</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">144669<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">  assert_matrix(par)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">144669<em>x</em></td>
+                    <td class="num">118</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_flag(lower.tail)</pre>
+                      <pre class="language-r">      decision &lt;- ifelse(final_eff_qU &gt;= tT, TRUE, decision)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">144669<em>x</em></td>
+                    <td class="num">120</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grid &lt;- seq(0, 1, len = 31)</pre>
+                      <pre class="language-r">    if (size_look %in% nnF) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">144669<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  f_grid &lt;- .pbetaMix(grid, par, weights, lower.tail = lower.tail)</pre>
+                      <pre class="language-r">      final_fu_qU &lt;- postprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">212</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">122</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        x = sum(xActive),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">144669<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sapply(p, function(p) {</pre>
+                      <pre class="language-r">        n = length(xActive),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">214</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # special cases</pre>
+                      <pre class="language-r">        xS = sum(xControl),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">289433<em>x</em></td>
+                    <td class="num">125</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (p == 0) {</pre>
+                      <pre class="language-r">        nS = length(xControl),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">126</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(0)</pre>
+                      <pre class="language-r">        delta = deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">217</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">289431<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (p == 1) {</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">144666<em>x</em></td>
+                    <td class="num">129</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(1)</pre>
+                      <pre class="language-r">        weights = weights, # for activeBetamixPost</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">220</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">221</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        parS = parS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">144765<em>x</em></td>
+                    <td class="num">131</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    diff &lt;- f_grid - p</pre>
+                      <pre class="language-r">        weightsS = weightsS # for controlBetamixPost</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">144765<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">    pos &lt;- diff &gt; 0</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">144765<em>x</em></td>
+                    <td class="num">133</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grid_interval &lt;- c(grid[!pos][which.max(diff[!pos])], grid[pos][which.min(diff[pos])])</pre>
+                      <pre class="language-r">      decision &lt;- ifelse(final_fu_qU &lt; tT, FALSE, decision)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">144765<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    uniroot(</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">144765<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">      f = function(q) .pbetaMix(q, par, weights, lower.tail = lower.tail) - p,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">144765<em>x</em></td>
+                    <td class="num">136</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      interval = grid_interval,</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">144765<em>x</em></td>
+                    <td class="num">137</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      f.lower = -p,</pre>
+                      <pre class="language-r">    nActive = length(xActive),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">144765<em>x</em></td>
+                    <td class="num">138</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      f.upper = 1 - p,</pre>
+                      <pre class="language-r">    nControl = length(xControl),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">144765<em>x</em></td>
+                    <td class="num">139</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tol = sqrt(.Machine$double.eps)</pre>
+                      <pre class="language-r">    decision = decision,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">144765<em>x</em></td>
+                    <td class="num">140</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )$root</pre>
+                      <pre class="language-r">    all_sizes = length(xActive) + length(xControl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</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">234</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/plotBounds.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Plot the boundary decision cutpoints</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Generating random decision and sample size looks</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function will plot the response rate on the futility and efficacy</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' boundaries, and is used together with \code{\link{boundsPredprob}}</pre>
+                      <pre class="language-r">#' A helper function for [ocRctPredprobDist()] to generate a single trial decision and sample size.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and \code{\link{boundsPostprob}}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams h_decision_one_RctpredprobDist</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param z an output of \code{\link{boundsPredprob}} and</pre>
+                      <pre class="language-r">#' @inheritParams ocPredprobDist</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \code{\link{boundsPostprob}}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param area color the futility/efficacy stop area</pre>
+                      <pre class="language-r">#' @return A list with the following elements :</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param grid show the grid of y-axis or not</pre>
+                      <pre class="language-r">#'  - `decision` : decision `flag` with `TRUE` for Go, `FALSE` for Stop, `NA` for Gray zone.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param yt  indicate the y axis: response rate is "p", number of responses</pre>
+                      <pre class="language-r">#'  - `all_sizes` : resulting sample size.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' is "x"</pre>
+                      <pre class="language-r">#'  - `nActive` : number of patients in the active arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param add  add the boundary lines or not</pre>
+                      <pre class="language-r">#'  - `nControl` : number of patients in the control arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param cols specific the color of `[1]` efficacy area `[2]` futility area</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `[3]` efficacy boundary `[4]` futility boundary</pre>
+                      <pre class="language-r">h_decision_two_RctpredprobDist &lt;- function(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param lwds line width (a two dimensional vector)</pre>
+                      <pre class="language-r">    nnE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ltype line type</pre>
+                      <pre class="language-r">    nnF,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param lpch  a value of plotting characters or symbols</pre>
+                      <pre class="language-r">    nnr,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param lcex a value giving the amount by which plotting characters and</pre>
+                      <pre class="language-r">    pE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' symbols should be scaled relative to the default.</pre>
+                      <pre class="language-r">    pS,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param gy a value to adjust the gray level of the plot (default 20),</pre>
+                      <pre class="language-r">    parE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' applies when \code{grid==TRUE}</pre>
+                      <pre class="language-r">    parS,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return nothing, only produces the plot as side effect</pre>
+                      <pre class="language-r">    tF,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    tT,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom graphics lines abline polygon plot</pre>
+                      <pre class="language-r">    phiU,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    phiFu,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/plotBounds.R</pre>
+                      <pre class="language-r">    deltaE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    deltaF,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords graphics</pre>
+                      <pre class="language-r">    weights,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">plotBounds &lt;- function(z, area = TRUE, grid = TRUE, yt = "x", add = FALSE,</pre>
+                      <pre class="language-r">    weightsS,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       cols = c("green", "red", "darkgreen", "orange"),</pre>
+                      <pre class="language-r">    relativeDelta,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       lwds = c(3, 3), ltype = "l", lpch = 16, lcex = 1, gy = 20) {</pre>
+                      <pre class="language-r">    randRatio) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">33</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n &lt;- nrow(z)</pre>
+                      <pre class="language-r">  assert_numeric(nnE, lower = 1, sorted = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">34</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nmin &lt;- min(z$nvec)</pre>
+                      <pre class="language-r">  assert_numeric(nnF, lower = 1, sorted = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">35</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nmax &lt;- max(z$nvec)</pre>
+                      <pre class="language-r">  assert_numeric(nnr, lower = 1, sorted = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">36</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (yt == "x") {</pre>
+                      <pre class="language-r">  assert_number(pE, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">37</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    z1 &lt;- z$xL</pre>
+                      <pre class="language-r">  assert_number(pS, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">38</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    z2 &lt;- z$xU</pre>
+                      <pre class="language-r">  assert_number(randRatio, lower = 1, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">39</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">181</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    yU &lt;- nmax</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">40</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">182</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    yU2 &lt;- nmin</pre>
+                      <pre class="language-r">  Nmax &lt;- max(nnr)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">41</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ylabel &lt;- "Number of Responses"</pre>
+                      <pre class="language-r">  NmaxControl &lt;- max(nnF)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">42</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gridy &lt;- seq(0, yU, by = floor(yU / gy))</pre>
+                      <pre class="language-r">  index_look &lt;- 1</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">43</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (yt == "p") {</pre>
+                      <pre class="language-r">  size_look &lt;- nnr[index_look]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">44</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    z1 &lt;- z$pL</pre>
+                      <pre class="language-r">  all_sizes &lt;- decision &lt;- nActive &lt;- nControl &lt;- NA</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">45</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    z2 &lt;- z$pU</pre>
+                      <pre class="language-r">  activeProp &lt;- randRatio / (randRatio + 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">46</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    yU &lt;- 1</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">47</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    yU2 &lt;- 1</pre>
+                      <pre class="language-r">  NmaxActive &lt;- ceiling(activeProp * Nmax)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">48</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ylabel &lt;- "Response Rate"</pre>
+                      <pre class="language-r">  NmaxControl &lt;- Nmax - NmaxActive</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">49</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">191</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gridy &lt;- seq(0, yU, by = yU / gy)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">192</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  isActive &lt;- sample(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">51</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">193</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("yt can only be x or p")</pre>
+                      <pre class="language-r">    x = rep(c(TRUE, FALSE), c(NmaxActive, NmaxControl)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    size = Nmax,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">53</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">195</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (add) {</pre>
+                      <pre class="language-r">    replace = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">54</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">196</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::lines(z$nvec, z2,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">55</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lwd = lwds[1], col = cols[3], type = ltype,</pre>
+                      <pre class="language-r">  response &lt;- rbinom(Nmax, size = 1, prob = ifelse(isActive, pE, pS))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">56</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pch = lpch, cex = lcex</pre>
+                      <pre class="language-r">  index_look &lt;- 1</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  size_look &lt;- nnr[index_look]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  # The criteria for Decision 2 for Interim looks are :</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">58</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">201</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::lines(z$nvec, z1,</pre>
+                      <pre class="language-r">  # Interim GO : P ( successful at final) &gt; phiU</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">59</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">202</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lwd = lwds[2], col = cols[4], type = ltype,</pre>
+                      <pre class="language-r">  # Interim STOP : P ( unsuccessful at final ) &gt; phiFu</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">60</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">203</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pch = lpch, cex = lcex</pre>
+                      <pre class="language-r">  while (is.na(decision) &amp;&amp; index_look &lt; length(nnr)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">204</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    xActive &lt;- response[which(isActive[1:size_look])]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">62</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(invisible())</pre>
+                      <pre class="language-r">    xControl &lt;- response[which(!isActive[1:size_look])]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">206</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">64</td>
+                    <td class="num">207</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  graphics::plot(z$nvec, rep(0, n),</pre>
+                      <pre class="language-r">      interim_qU &lt;- predprobDist(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">65</td>
+                    <td class="num">208</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xlim = c(0, max(z$nvec)), ylim = c(0, yU), type = "n",</pre>
+                      <pre class="language-r">        x = sum(xActive),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">66</td>
+                    <td class="num">209</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xlab = "n", ylab = ylabel</pre>
+                      <pre class="language-r">        n = length(xActive),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">210</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        xS = sum(xControl),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">68</td>
+                    <td class="num">211</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (grid) {</pre>
+                      <pre class="language-r">        nS = length(xControl),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">69</td>
+                    <td class="num">212</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::abline(h = gridy, col = "gray")</pre>
+                      <pre class="language-r">        Nmax = NmaxActive,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">213</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        NmaxControl = NmaxControl,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">71</td>
+                    <td class="num">214</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (area) {</pre>
+                      <pre class="language-r">        delta = deltaE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">72</td>
+                    <td class="num">215</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::polygon(c(z$nvec, nmax, nmin), c(z2, yU, yU2),</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">73</td>
+                    <td class="num">216</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lwd = lwds[1],</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">74</td>
+                    <td class="num">217</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      col = cols[1], border = cols[1]</pre>
+                      <pre class="language-r">        weights = weights,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">218</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        parS = parS,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">76</td>
+                    <td class="num">219</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::polygon(c(z$nvec, nmax, nmin), c(z1, 0, 0),</pre>
+                      <pre class="language-r">        weightsS = weightsS,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">77</td>
+                    <td class="num">220</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lwd = lwds[2],</pre>
+                      <pre class="language-r">        thetaT = tT</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">78</td>
+                    <td class="num">221</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      col = cols[2], border = cols[2]</pre>
+                      <pre class="language-r">      )$result</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">222</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &gt; phiU, TRUE, decision)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (size_look %in% nnF) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">81</td>
+                    <td class="num">225</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::lines(z$nvec, z2,</pre>
+                      <pre class="language-r">      interim_qU &lt;- 1 - predprobDist(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">82</td>
+                    <td class="num">226</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lwd = lwds[1], col = cols[1], type = ltype,</pre>
+                      <pre class="language-r">        x = sum(xActive),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">83</td>
+                    <td class="num">227</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pch = lpch, cex = lcex</pre>
+                      <pre class="language-r">        n = length(xActive),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">228</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        xS = sum(xControl),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">85</td>
+                    <td class="num">229</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::lines(z$nvec, z1,</pre>
+                      <pre class="language-r">        nS = length(xControl),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">86</td>
+                    <td class="num">230</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lwd = lwds[2], col = cols[2], type = ltype,</pre>
+                      <pre class="language-r">        Nmax = NmaxActive,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">87</td>
+                    <td class="num">231</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pch = lpch, cex = lcex</pre>
+                      <pre class="language-r">        NmaxControl = NmaxControl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">232</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        delta = deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">233</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">90</td>
+                    <td class="num">234</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(invisible())</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">235</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        weights = weights,</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/ocPostprob.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">236</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Generating random distance for [h_get_distance()] helper function</pre>
+                      <pre class="language-r">        parS = parS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">237</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        weightsS = weightsS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">238</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A helper function for [h_get_distance()] by first calculating non-overlapping</pre>
+                      <pre class="language-r">        thetaT = tT</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">239</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' distance between looks if looks are of minimum length of 2 elements.</pre>
+                      <pre class="language-r">      )$result</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">240</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      decision &lt;- ifelse(interim_qU &gt; phiFu, FALSE, decision)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed nn : number or numeric</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">242</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  the union of `nnE` and `nnF`, if futility analysis or looks are supplied.</pre>
+                      <pre class="language-r">    index_look &lt;- index_look + 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">243</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A number providing the wiggle distance.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # The criteria for Decision 2 for Futility looks are :</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  # Final GO = P( RR &gt; p0 + delta ) &gt; tT</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # Final STOP = P( RR &lt; p1 - delta ) &gt; tF</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">248</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_dist0 &lt;- function(nn) {</pre>
+                      <pre class="language-r">  if (is.na(decision)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">14</td>
-                    <td class="coverage">1571<em>x</em></td>
+                    <td class="num">249</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nn, lower = 1, unique = TRUE, sorted = TRUE, min.len = 2)</pre>
+                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">15</td>
-                    <td class="coverage">1569<em>x</em></td>
+                    <td class="num">250</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ceiling(min(nn - c(0, nn[-length(nn)])) / 2) - 1</pre>
+                      <pre class="language-r">    xActive &lt;- response[which(isActive[1:size_look])]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">251</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    xControl &lt;- response[which(!isActive[1:size_look])]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">252</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">253</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Generating random distance in given looks for sample sizes for Efficacy and Futility.</pre>
+                      <pre class="language-r">      final_eff_qU &lt;- postprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">254</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        x = sum(xActive),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">255</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A helper function for [ocPostprob()] to generate random distance's wiggle room around looks `nn`.</pre>
+                      <pre class="language-r">        n = length(xActive),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">256</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        xS = sum(xControl),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">257</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_dist0</pre>
+                      <pre class="language-r">        nS = length(xControl),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">258</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        delta = deltaE,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">259</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">260</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        parE = parE,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">261</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        parS = parS</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A numeric with `length(nn)-1` elements.</pre>
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">263</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      decision &lt;- ifelse(final_eff_qU &gt; tT, TRUE, decision)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">265</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (size_look %in% nnF) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">266</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      final_fu_qU &lt;- 1 - postprobDist(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">267</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        x = sum(xActive),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">268</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        n = length(xActive),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">269</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        xS = sum(xControl),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">270</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        nS = length(xControl),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">271</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        delta = deltaF,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">272</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">273</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        parE = parE,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">274</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        parS = parS</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">276</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      decision &lt;- ifelse(final_fu_qU &gt; tF, FALSE, decision)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_get_distance &lt;- function(nn) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">1564<em>x</em></td>
+                    <td class="num">279</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dist0 &lt;- h_dist0(nn)</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">30</td>
-                    <td class="coverage">1562<em>x</em></td>
+                    <td class="num">280</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sample(-dist0:dist0,</pre>
+                      <pre class="language-r">    nActive = length(xActive),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">31</td>
-                    <td class="coverage">1562<em>x</em></td>
+                    <td class="num">281</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size = length(nn) - 1,</pre>
+                      <pre class="language-r">    nControl = length(xControl),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">1562<em>x</em></td>
+                    <td class="num">282</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    replace = TRUE,</pre>
+                      <pre class="language-r">    decision = decision,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">33</td>
-                    <td class="coverage">1562<em>x</em></td>
+                    <td class="num">283</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    prob = 2^(-abs(-dist0:dist0) / 2)</pre>
+                      <pre class="language-r">    all_sizes = length(xActive) + length(xControl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</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">37</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Calculate operating characteristics for RCT against SOC,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Generating looks from random distance</pre>
+                      <pre class="language-r">#' using the predictive probability method with beta priors</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A helper function for [ocPostprob()] that applies the numeric element of `dist` to looks `nn`.</pre>
+                      <pre class="language-r">#' We emulate a randomized-controlled trial setting where at any given sample size,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' there exists the number of patients enrolled in either standard of care (SOC) or control arm, and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed dist : numeric or logical</pre>
+                      <pre class="language-r">#' a treatment or experimental arm. The allocation of patients will depend on the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  distance for random looks around the look locations in `nn`,</pre>
+                      <pre class="language-r">#' randomization ratio set by the user and is rounded to the next higher integer.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  where `dist` is generated from [h_get_distance()] in a numeric of at least one element.</pre>
+                      <pre class="language-r">#' Therefore the sequence of patients is determined from the start, such that the number of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  If `NULL`, only one location look will be set at `nnE` or `nnF`.</pre>
+                      <pre class="language-r">#' patients in both arms is constant across trial simulations, however the number of patients</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed nnE : numeric</pre>
+                      <pre class="language-r">#' within the control and treatment arm is determined by the randomisation ratio.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  sample size or sizes where study can be stopped for Efficacy decision. If different for Futility decision,</pre>
+                      <pre class="language-r">#' Interim looks are for sample sizes below that of the final sample size.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  specify in `nnF`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed nnF : numeric</pre>
+                      <pre class="language-r">#' Final looks are only performed at the maximum sample size.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  sample size or sizes where study can be stopped for Futility decision if different from Efficacy decision.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' At each interim or final look, a futility or efficacy or both can be performed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Uses distance from [h_get_distance()] to add to looks, creating wiggled looks:</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `nnrE` is the result for Efficacy looks with random distance added.</pre>
+                      <pre class="language-r">#' The rules for Stop, Go and Gray Zone (where applicable), and use of beta priors are the same</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `nnrF` is the result for Futility looks with random distance added.</pre>
+                      <pre class="language-r">#' as in [ocPredprobDist()] where the only difference here is to emulate a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' randomized-controlled trial setting.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">306</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">57</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' The returned value is a list with the following elements:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_get_looks &lt;- function(dist, nnE, nnF) {</pre>
+                      <pre class="language-r">#' - `oc`: matrix with operating characteristics with the following details:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">1563<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">  assert_numeric(dist)</pre>
+                      <pre class="language-r">#'  - `ExpectedN`: expected number of patients in the trials in both treatment and SOC group</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">1563<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">  assert_numeric(nnE)</pre>
+                      <pre class="language-r">#'  - `ExpectedNactive` : the mean of the number of patients in treatment arm</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">1563<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">311</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnF)</pre>
+                      <pre class="language-r">#'  - `ExpectedNcontrol`: the mean of the number of patients in control arm</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'  - `PrStopEarly`: probability to stop the trial early (before reaching the maximum sample size)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">1563<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">313</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nn &lt;- sort(unique(c(nnE, nnF)))</pre>
+                      <pre class="language-r">#'  - `PrEarlyEff`: probability of Early Go decision</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">1563<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">314</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nnr &lt;- nn + c(dist, 0)</pre>
+                      <pre class="language-r">#'  - `PrEarlyFut`: probability of Early Stop decision</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">1563<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">  list(</pre>
+                      <pre class="language-r">#'  - `PrEfficacy`: probability of Go decision</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">1563<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">316</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nnrE = nnr[nn %in% nnE],</pre>
+                      <pre class="language-r">#'  - `PrFutility`: probability of Stop decision</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">1563<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">    nnrF = nnr[nn %in% nnF]</pre>
+                      <pre class="language-r">#'  - `PrGrayZone`: probability of Evaluate or "Gray Zone" decision (between Go and Stop)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' - `Decision` : results in `logical` with `TRUE` as Go, `FALSE` as Stop and `NA` as Evaluate decision.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' - `SampleSize` : numeric of sample sizes from `nnE` or `nnF` or both.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' - `SampleSizeActive` : numeric of sample sizes in the treatment or experimental arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Generating random decision and sample size looks</pre>
+                      <pre class="language-r">#' - `SampleSizeControl` : numeric of sample sizes in either standard of care (SOC) or control arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' - `union_nn` : unique `nnE` and `nnF` looks.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A helper function for [ocPostprob()] to generate numeric of decisions `decisions` and random looks `all_sizes`.</pre>
+                      <pre class="language-r">#' - `wiggled_nnE` : user input for `nnE` with random distance applied.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' - `wiggled_nnF` : user input for `nnF` with random distance applied.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_looks</pre>
+                      <pre class="language-r">#' - `wiggled_dist` : magnitude of random distance applied in order of input looks.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed nnr : numeric</pre>
+                      <pre class="language-r">#' - `params` : all user input arguments.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  union of `nnE`and `nnF`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed truep : number</pre>
+                      <pre class="language-r">#' @inheritParams h_decision_one_predprobDist</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  assumed true response rate.</pre>
+                      <pre class="language-r">#' @inheritParams h_decision_two_predprobDist</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed p0 : number</pre>
+                      <pre class="language-r">#' @inheritParams ocPredprobDist</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  lower Futility threshold of response rate.</pre>
+                      <pre class="language-r">#' @inheritParams ocRctPostprobDist</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed p1 : number</pre>
+                      <pre class="language-r">#' @example examples/ocRctPredprobDist.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  upper Efficacy threshold of response rate.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed tL : number</pre>
+                      <pre class="language-r">ocRctPredprobDist &lt;- function(nnE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  posterior probability threshold for being below `p0`.</pre>
+                      <pre class="language-r">                              pE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed tU : number</pre>
+                      <pre class="language-r">                              pS,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  posterior probability threshold for being above `p1`.</pre>
+                      <pre class="language-r">                              deltaE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed parE : numeric</pre>
+                      <pre class="language-r">                              deltaF,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  alpha and beta parameters for the prior on the treatment population.</pre>
+                      <pre class="language-r">                              phiL = 1 - phiFu,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Default set at alpha = 1, beta = 1, or uniform prior.</pre>
+                      <pre class="language-r">                              phiFu = 1 - phiL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                              phiU,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list with the following elements :</pre>
+                      <pre class="language-r">                              relativeDelta = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `decision` : decision `flag` with `TRUE` for Go, `FALSE` for Stop, `NA` for Gray zone.</pre>
+                      <pre class="language-r">                              tT,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `all_sizes` : resulting number of look size, anything below maximum</pre>
+                      <pre class="language-r">                              tF,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   look size is an indicated interim, Futility or Efficacy or both.</pre>
+                      <pre class="language-r">                              parE = c(a = 1, b = 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                              parS = c(a = 1, b = 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                              weights,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                              weightsS,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_get_decision &lt;- function(nnr, truep, p0, p1, parE = c(1, 1), nnE, nnF, tL, tU) {</pre>
+                      <pre class="language-r">                              randRatio = 1,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">100001<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">350</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnr)</pre>
+                      <pre class="language-r">                              sim,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">100001<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">351</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(truep, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">                              wiggle = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">100001<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">  assert_number(p0, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">                              nnF = nnE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">100001<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">353</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(p1, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">                              decision1 = TRUE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">100001<em>x</em></td>
+                    <td class="num">354</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(parE, min.len = 2, any.missing = FALSE)</pre>
+                      <pre class="language-r">  assert_numeric(nnE, min.len = 1, lower = 1, upper = max(nnE), any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">100001<em>x</em></td>
+                    <td class="num">355</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnE, lower = 1, any.missing = FALSE, sorted = TRUE)</pre>
+                      <pre class="language-r">  assert_number(sim, lower = 1, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">100001<em>x</em></td>
+                    <td class="num">356</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnF, lower = 1, any.missing = FALSE, sorted = TRUE)</pre>
+                      <pre class="language-r">  assert_flag(wiggle)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">100001<em>x</em></td>
+                    <td class="num">357</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(tL, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">  assert_numeric(nnF, min.len = 0, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">100001<em>x</em></td>
+                    <td class="num">358</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(tU, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">  assert_flag(decision1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">100001<em>x</em></td>
+                    <td class="num">360</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Nmax &lt;- max(nnr)</pre>
+                      <pre class="language-r">  if (sim &lt; 50000) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">100001<em>x</em></td>
+                    <td class="num">361</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  index_look &lt;- 1</pre>
+                      <pre class="language-r">    warning("Advise to use sim &gt;= 50000 to achieve convergence")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">362</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">100001<em>x</em></td>
+                    <td class="num">363</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  size_look &lt;- nnr[index_look]</pre>
+                      <pre class="language-r">  decision &lt;- all_sizes &lt;- nActive &lt;- nControl &lt;- vector(length = sim)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">100001<em>x</em></td>
+                    <td class="num">364</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  all_sizes &lt;- decision &lt;- NA</pre>
+                      <pre class="language-r">  nnE &lt;- sort(nnE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">100001<em>x</em></td>
+                    <td class="num">365</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  response &lt;- stats::rbinom(Nmax, size = 1, prob = truep)</pre>
+                      <pre class="language-r">  nnF &lt;- sort(nnF)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">366</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  nnr &lt;- sort(unique(c(nnF, nnE)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">100001<em>x</em></td>
+                    <td class="num">368</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  while (is.na(decision) &amp;&amp; index_look &lt;= length(nnr)) {</pre>
+                      <pre class="language-r">  Nstart &lt;- nnr[1]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">127424<em>x</em></td>
+                    <td class="num">369</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnF) {</pre>
+                      <pre class="language-r">  Nmax &lt;- max(nnr)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">370</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">118263<em>x</em></td>
+                    <td class="num">371</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qL &lt;- 1 - postprob(x = sum(response[1:size_look]), n = size_look, p = p0, parE = parE)</pre>
+                      <pre class="language-r">  for (k in seq_len(sim)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">118263<em>x</em></td>
+                    <td class="num">372</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(qL &gt;= tL, FALSE, NA)</pre>
+                      <pre class="language-r">    if (length(nnr) != 1 &amp;&amp; wiggle) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">373</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      dist &lt;- h_get_distance(nn = nnr)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">127424<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">374</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
+                      <pre class="language-r">      nnr &lt;- h_get_looks(dist = dist, nnE = nnE, nnF = nnF)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">127424<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">375</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qU &lt;- postprob(x = sum(response[1:size_look]), n = size_look, p = p1, parE = parE)</pre>
+                      <pre class="language-r">      nnrE &lt;- nnr$nnrE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">127424<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">376</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(qU &lt; tU, decision, TRUE)</pre>
+                      <pre class="language-r">      nnrF &lt;- nnr$nnrF</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">377</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">125</td>
-                    <td class="coverage">127424<em>x</em></td>
+                    <td class="num">378</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_sizes &lt;- size_look</pre>
+                      <pre class="language-r">      nnrE &lt;- nnE</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">127424<em>x</em></td>
+                    <td class="num">379</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    index_look &lt;- index_look + 1</pre>
+                      <pre class="language-r">      nnrF &lt;- nnF</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">127424<em>x</em></td>
+                    <td class="num">380</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
+                      <pre class="language-r">      dist &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">381</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">100001<em>x</em></td>
+                    <td class="num">382</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">    nnr &lt;- unique(c(nnrE, nnrF))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">100001<em>x</em></td>
+                    <td class="num">383</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    decision = decision,</pre>
+                      <pre class="language-r">    tmp &lt;- if (decision1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">100001<em>x</em></td>
+                    <td class="num">384</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_sizes = all_sizes</pre>
+                      <pre class="language-r">      h_decision_one_RctpredprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">132</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">385</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        nnr = nnr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">386</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        nnE = nnE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">387</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        nnF = nnF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">388</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Creating list for operating characteristics</pre>
+                      <pre class="language-r">        pE = pE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">136</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">389</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        pS = pS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">137</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">390</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Generates operating characteristics.</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">391</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        parS = parS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">139</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">392</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_looks</pre>
+                      <pre class="language-r">        tT = tT,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">393</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_decision</pre>
+                      <pre class="language-r">        phiU = phiU,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">394</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed all_sizes : numeric</pre>
+                      <pre class="language-r">        phiL = phiL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">142</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">395</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  sample sizes of all looks simulated `length(sim)` times if `dist` applied.</pre>
+                      <pre class="language-r">        deltaE = deltaE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">143</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">396</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed decision : numeric</pre>
+                      <pre class="language-r">        deltaF = deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">144</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">397</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Go, Stop or Gray Zone decisions of all looks simulated `length(sim)` times.</pre>
+                      <pre class="language-r">        weights = weights,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">398</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        weightsS = weightsS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">146</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">399</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list of results containing :</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">400</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        randRatio = randRatio</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">401</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `ExpectedN`: expected number of patients in the trials</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">402</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrStopEarly`: probability to stop the trial early (before reaching the</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">403</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' maximum sample size)</pre>
+                      <pre class="language-r">      h_decision_two_RctpredprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">151</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">404</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrEarlyEff`: probability of Early Go decision</pre>
+                      <pre class="language-r">        nnr = nnr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">405</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrEarlyFut`: probability of for Early Stop decision</pre>
+                      <pre class="language-r">        nnE = nnE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">153</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">406</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrEfficacy`: probability of Go decision</pre>
+                      <pre class="language-r">        nnF = nnF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">154</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">407</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrFutility`: probability of Stop decision</pre>
+                      <pre class="language-r">        pE = pE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">155</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">408</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrGrayZone`: probability between Go and Stop ,"Evaluate" or Gray decision zone</pre>
+                      <pre class="language-r">        pS = pS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">156</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">409</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">157</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">410</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">        parS = parS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">158</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">411</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        tT = tT,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">159</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">412</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_get_oc &lt;- function(all_sizes, Nmax, decision) {</pre>
+                      <pre class="language-r">        tF = tF,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">413</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(all_sizes)</pre>
+                      <pre class="language-r">        phiU = phiU,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">414</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_true(Nmax &gt;= max(all_sizes))</pre>
+                      <pre class="language-r">        phiFu = phiFu,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">415</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(Nmax, lower = 1)</pre>
+                      <pre class="language-r">        deltaE = deltaE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">416</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_logical(decision, len = length(all_sizes))</pre>
+                      <pre class="language-r">        deltaF = deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">164</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">417</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        weights = weights,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">418</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sim &lt;- length(all_sizes)</pre>
+                      <pre class="language-r">        weightsS = weightsS,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">419</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data.frame(</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">420</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ExpectedN = mean(all_sizes, na.rm = TRUE),</pre>
+                      <pre class="language-r">        randRatio = randRatio</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">35<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">    PrStopEarly = mean(all_sizes &lt; Nmax, na.rm = TRUE),</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">422</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PrEarlyEff = sum(decision * (all_sizes &lt; Nmax), na.rm = TRUE) / sim,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="num">423</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PrEarlyFut = sum((1 - decision) * (all_sizes &lt; Nmax), na.rm = TRUE) / sim,</pre>
+                      <pre class="language-r">    decision[k] &lt;- tmp$decision</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="num">424</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PrEfficacy = sum(decision, na.rm = TRUE) / sim,</pre>
+                      <pre class="language-r">    all_sizes[k] &lt;- tmp$all_sizes</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="num">425</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PrFutility = sum(1 - decision, na.rm = TRUE) / sim,</pre>
+                      <pre class="language-r">    nActive[k] &lt;- tmp$nActive</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="num">426</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PrGrayZone = sum(is.na(decision)) / sim</pre>
+                      <pre class="language-r">    nControl[k] &lt;- tmp$nControl</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">427</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">428</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  oc &lt;- h_get_oc_rct(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">429</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    all_sizes = all_sizes,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">177</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">430</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Operating Characteristics for Posterior Probability method</pre>
+                      <pre class="language-r">    Nmax = Nmax,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">178</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">431</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    nActive = nActive,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">179</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">432</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">    nControl = nControl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">180</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">433</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    decision = decision</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">434</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Calculate operating characteristics for posterior probability method.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">435</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">183</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">436</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' It is assumed that the true response rate is `truep`.</pre>
+                      <pre class="language-r">    oc = oc,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">184</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">437</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The trial is stopped for Efficacy if the posterior probability to be</pre>
+                      <pre class="language-r">    Decision = decision,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">438</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' above `p1` is larger than `tU`, and stopped for Futility if the posterior</pre>
+                      <pre class="language-r">    SampleSize = all_sizes,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">439</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' probability to be below `p0` is larger than `tL`:</pre>
+                      <pre class="language-r">    SampleSizeActive = nActive,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">440</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    SampleSizeControl = nControl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">441</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Stop criteria for Efficacy :</pre>
+                      <pre class="language-r">    union_nn = nnr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">442</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    wiggled_nnE = nnrE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">190</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">443</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `Pr(truep &gt; p1) &gt; tU`</pre>
+                      <pre class="language-r">    wiggled_nnF = nnrF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">191</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">444</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    wiggle_dist = dist,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">445</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Stop criteria for Futility :</pre>
+                      <pre class="language-r">    params = as.list(match.call(expand.dots = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">446</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">447</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `Pr(truep &lt; p0) &gt; tL`</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/oc2.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Run simulations to obtain operating characteristics for methods that include</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Resulting operating characteristics include the following:</pre>
+                      <pre class="language-r">#' historical data on control</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `ExpectedN`: expected number of patients in the trials</pre>
+                      <pre class="language-r">#' Interim looks are done three times total including the last one, with</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrStopEarly`: probability to stop the trial early (before reaching the</pre>
+                      <pre class="language-r">#' approximately equal distance between the looks.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' maximum sample size)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrEarlyEff`: probability of Early Go decision</pre>
+                      <pre class="language-r">#' @param method 8 different methods can be selected:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrEarlyFut`: probability of for Early Stop decision</pre>
+                      <pre class="language-r">#' PointMass.Bayes: single arm trial with pointmass derived from the historical</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrEfficacy`: probability of Go decision</pre>
+                      <pre class="language-r">#' data on the control response rate, see \code{\link{postprob}}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrFutility`: probability of Stop decision</pre>
+                      <pre class="language-r">#' Prior.Bayes: single arm trial with prior derived from the historical data on</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrGrayZone`: probability between Go and Stop ,"Evaluate" or Gray decision zone</pre>
+                      <pre class="language-r">#' the control response rate, see \code{\link{postprobDist}}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' RCT.Bayes: RCT (1:1 randomization) with prior derived from the historical data on</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_looks</pre>
+                      <pre class="language-r">#' the control response rate, see \code{\link{postprobDist}}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_decision</pre>
+                      <pre class="language-r">#' RCT.BayesRobust: Same as RCT.Bayes, but with a robust prior, enabling</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed sim : number</pre>
+                      <pre class="language-r">#' dynamic borrowing of the historical information</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of simulations.</pre>
+                      <pre class="language-r">#' RCT.vanillaBayes: RCT, not using the historical control data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed wiggle : flag</pre>
+                      <pre class="language-r">#' PointMass.PP: single arm trial with pointmass derived from the historical</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  generate random look locations (not default).</pre>
+                      <pre class="language-r">#' data on the control response rate, and using the predictive probability</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  if `TRUE`, optional to specify `dist` (see @details).</pre>
+                      <pre class="language-r">#' method, see \code{\link{predprob}}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Prior.PP: single arm trial with prior derived from the historical data on</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list with the following elements:</pre>
+                      <pre class="language-r">#' the control response rate, and using the predictive probability</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' method, see \code{\link{predprobDist}}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `oc`: matrix with operating characteristics (see @details section)</pre>
+                      <pre class="language-r">#' RCT.PP: RCT (1:1 randomization) with prior derived from the historical data on</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `nn`: vector of look locations that was supplied</pre>
+                      <pre class="language-r">#' the control response rate, and using the predictive probability</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `nnE`: vector of Efficacy look locations</pre>
+                      <pre class="language-r">#' method, see \code{\link{predprobDist}}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `nnF`: vector of Futility look locations</pre>
+                      <pre class="language-r">#' RCT.PProbust: Same as RCT.PP,  but with a robust prior, enabling</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `params`: user input arguments.</pre>
+                      <pre class="language-r">#' dynamic borrowing of the historical information</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#</pre>
+                      <pre class="language-r">#' RCT.vanillaPP: RCT and using the predictive probability</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' method, not using the historical control data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/ocPostprob.R</pre>
+                      <pre class="language-r">#' @param nSim number of trials to simulate</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @param histSize historical data size</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ocPostprob &lt;- function(nnE, truep, p0, p1, tL, tU, parE = c(1, 1),</pre>
+                      <pre class="language-r">#' @param trialSize total trial sample size</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       sim = 50000, wiggle = FALSE, nnF = nnE) {</pre>
+                      <pre class="language-r">#' @param drift drift parameter: the actual control response rate is the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">6<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">  nn &lt;- sort(unique(c(nnF, nnE)))</pre>
+                      <pre class="language-r">#' historical control response rate plus the drift. Hence a positive drift</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">6<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">  Nmax &lt;- max(nn)</pre>
+                      <pre class="language-r">#' means that the controls now have higher response rates than in the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">6<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">  assert_number(sim, lower = 1, finite = TRUE)</pre>
+                      <pre class="language-r">#' historical trial.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">6<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">  assert_flag(wiggle)</pre>
+                      <pre class="language-r">#' @param controlRate the actual control response rate</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (sim &lt; 50000) {</pre>
+                      <pre class="language-r">#' @param nmeRate the treatment response rate</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning("Advise to use sim &gt;= 50000 to achieve convergence")</pre>
+                      <pre class="language-r">#' @param delta delta for stopping for efficacy to be used. Implicitly a zero</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' delta for stopping for futility is used.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">6<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">  decision &lt;- vector(length = sim)</pre>
+                      <pre class="language-r">#' @param tL for Bayes methods: probability threshold for being below control</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">6<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">  all_sizes &lt;- vector(length = sim)</pre>
+                      <pre class="language-r">#' response rate (default: 0.8)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">6<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">  for (k in seq_len(sim)) {</pre>
+                      <pre class="language-r">#' @param tU for Bayes methods: probability threshold for being above control</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">1e+05<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">    if (length(nn) != 1 &amp;&amp; wiggle) {</pre>
+                      <pre class="language-r">#' response rate + delta (default: 0.8)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">239</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dist &lt;- h_get_distance(nn = nn)</pre>
+                      <pre class="language-r">#' @param tT threshold for the probability to be above the response rate p0 at</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">240</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnr &lt;- h_get_looks(dist = dist, nnE = nnE, nnF = nnF)</pre>
+                      <pre class="language-r">#' the end of the trial (default: 0.85)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">241</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnrE &lt;- nnr$nnrE</pre>
+                      <pre class="language-r">#' @param phiL lower threshold on the predictive probability (default: 0.05)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">242</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnrF &lt;- nnr$nnrF</pre>
+                      <pre class="language-r">#' @param phiU upper threshold on the predictive probability (default: 0.95)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#' @param parE the beta parameters matrix, with K rows and 2 columns,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">1e+05<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">      dist &lt;- 0</pre>
+                      <pre class="language-r">#' corresponding to the beta parameters of the K components. Default is a</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">1e+05<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">      nnrE &lt;- nnE</pre>
+                      <pre class="language-r">#' uniform prior.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">1e+05<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">      nnrF &lt;- nnF</pre>
+                      <pre class="language-r">#' @param weights the mixture weights of the beta mixture prior. Default are</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' uniform weights across mixture components.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">1e+05<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">    nnr &lt;- unique(c(nnrE, nnrF))</pre>
+                      <pre class="language-r">#' @return Returned operating characteristics in a matrix include:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">1e+05<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">    tmp &lt;- h_get_decision(</pre>
+                      <pre class="language-r">#' ExpectedN: expected number of patients in the trials</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">1e+05<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnr = nnr,</pre>
+                      <pre class="language-r">#' ExpectedNactive: expected number of patients with treatment</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">1e+05<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">      truep = truep, p0 = p0, p1 = p1,</pre>
+                      <pre class="language-r">#' PrStopEarly: probability to stop the trial early (before reaching the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">1e+05<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">      parE = c(1, 1), nnE = nnrE,</pre>
+                      <pre class="language-r">#' maximum sample size)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">1e+05<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">59</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnF = nnrF, tL = tL, tU = tU</pre>
+                      <pre class="language-r">#' PrEarlyEff: probability to decide for efficacy early</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' PrEarlyFut: probability to decide for futility early</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">1e+05<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    decision[k] &lt;- tmp$decision</pre>
+                      <pre class="language-r">#' PrEfficacy: probability to decide for efficacy</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">1e+05<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_sizes[k] &lt;- tmp$all_sizes</pre>
+                      <pre class="language-r">#' PrFutility: probability to decide for futility</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' PrGrayZone: probability of no decision at the end ("gray zone")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">6<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">  oc &lt;- h_get_oc(all_sizes = all_sizes, Nmax = Nmax, decision = decision)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">6<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">  list(</pre>
+                      <pre class="language-r">#' @importFrom stats rbinom</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">6<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">    oc = oc,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Decision = decision,</pre>
+                      <pre class="language-r">#' @example examples/oc2.R</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    SampleSize = all_sizes,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    union_nn = nnr,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    wiggled_nnrE = nnrE,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">265</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    wiggled_nnrF = nnrF,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    dist = dist,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">6<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">    params = as.list(match.call(expand.dots = FALSE))</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">oc2 &lt;- function(method =</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                  c(</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/predprobDist.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The predictive probability of success in single arm studies.</pre>
+                      <pre class="language-r">                    "PointMass.Bayes", "Prior.Bayes",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                    "RCT.Bayes", "RCT.BayesRobust", "RCTvanilla.Bayes",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The helper function to generate the predictive probability of success based only on treatment group (`E`)</pre>
+                      <pre class="language-r">                    "PointMass.PP", "Prior.PP",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' as there is no control or standard of care (`S`), indicated by `NmaxControl == 0`.</pre>
+                      <pre class="language-r">                    "RCT.PP", "RCT.PProbust", "RCTvanilla.PP"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</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">6</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed x : number</pre>
+                      <pre class="language-r">                nSim,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of successes in the `E` group at interim.</pre>
+                      <pre class="language-r">                histSize,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed mE : number</pre>
+                      <pre class="language-r">                trialSize,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of successes in the remaining `Nmax-n` number of patients in the treatment `E` group.</pre>
+                      <pre class="language-r">                drift = 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed Nmax : number</pre>
+                      <pre class="language-r">                controlRate,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   maximum number of patients in the `E` group at final analysis.</pre>
+                      <pre class="language-r">                nmeRate,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed delta : number</pre>
+                      <pre class="language-r">                delta,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   difference between response rates to be met.</pre>
+                      <pre class="language-r">                ## for Bayes methods:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed relativeDelta : flag</pre>
+                      <pre class="language-r">                tL = 0.8,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  If `TRUE`, then a `relativeDelta` is used. Represents that a minimum</pre>
+                      <pre class="language-r">                tU = 0.8,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  response rate in magnitude of `delta` of the `S` non-responding patients. See [postprobDist()].</pre>
+                      <pre class="language-r">                ## for PP methods:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed parE : numeric</pre>
+                      <pre class="language-r">                tT = 0.85,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  parameters for beta distribution. If it is a matrix, it needs to have 2 columns,</pre>
+                      <pre class="language-r">                phiL = 0.05,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  and each row corresponds to each component of a beta-mixture distribution</pre>
+                      <pre class="language-r">                phiU = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  for the `E` group.</pre>
+                      <pre class="language-r">                ## prior on NME response rate:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed parS : numeric</pre>
+                      <pre class="language-r">                parE = c(1, 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  parameters for beta distribution. If it is a matrix, it needs to have 2 columns,</pre>
+                      <pre class="language-r">                weights) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">93</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  and each row corresponds to each component of a beta-mixture distribution for the `S` group.</pre>
+                      <pre class="language-r">  method &lt;- match.arg(method)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">94</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed weights : numeric</pre>
+                      <pre class="language-r">  bayesNames &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">95</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  the mixture weights of the beta mixture prior.</pre>
+                      <pre class="language-r">    "PointMass.Bayes", "Prior.Bayes", "RCT.Bayes", "RCT.BayesRobust",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">96</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed weightsS : numeric</pre>
+                      <pre class="language-r">    "RCTvanilla.Bayes"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  weights for the `S` group.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">98</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed thetaT : number</pre>
+                      <pre class="language-r">  ppNames &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">99</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  threshold on the probability to be used.</pre>
+                      <pre class="language-r">    "PointMass.PP", "Prior.PP", "RCT.PP", "RCT.PProbust",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">100</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    "RCTvanilla.PP"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `list` is returned with names `result` for predictive probability and</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `table` of numeric values with counts of responses in the remaining patients,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  probabilities of these counts, corresponding probabilities to be above threshold,</pre>
+                      <pre class="language-r">  ## if parE is a vector =&gt; situation where there is only one component</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">104</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  and trial success indicators.</pre>
+                      <pre class="language-r">  if (is.vector(parE)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    ## check that it has exactly two entries</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">106</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    stopifnot(identical(length(parE), 2L))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_predprobdist_single_arm &lt;- function(x,</pre>
+                      <pre class="language-r">    ## and transpose to matrix with one row</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">108</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      mE,</pre>
+                      <pre class="language-r">    parE &lt;- t(parE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      n,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      Nmax,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      delta,</pre>
+                      <pre class="language-r">  ## if prior weights of the beta mixture are not supplied</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">112</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      relativeDelta,</pre>
+                      <pre class="language-r">  if (missing(weights)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">113</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      parE,</pre>
+                      <pre class="language-r">    weights &lt;- rep(1, nrow(parE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      parS,</pre>
+                      <pre class="language-r">    ## (don't need to be normalized, this is done in h_getBetamixPost)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      weights,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      weightsS,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      thetaT) {</pre>
+                      <pre class="language-r">  ## allocation to active and control arms:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">118</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(x, lower = 0, upper = Nmax)</pre>
+                      <pre class="language-r">  activeProp &lt;-</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">119</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(mE, lower = 0)</pre>
+                      <pre class="language-r">    if (method %in% c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">120</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(x + mE, upper = Nmax)</pre>
+                      <pre class="language-r">      "RCT.Bayes",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">121</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(thetaT, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">      "RCT.BayesRobust",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">122</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  posterior_y &lt;- postprobDist(</pre>
+                      <pre class="language-r">      "RCTvanilla.Bayes",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">123</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x + c(0:mE),</pre>
+                      <pre class="language-r">      "RCT.PP",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">124</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n = Nmax,</pre>
+                      <pre class="language-r">      "RCT.PProbust",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">125</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    delta = delta,</pre>
+                      <pre class="language-r">      "RCTvanilla.PP"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">6<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">    relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">    )) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">6<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">    parE = parE,</pre>
+                      <pre class="language-r">      ## randomize 1:1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">128</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights = weights,</pre>
+                      <pre class="language-r">      1 / 2</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parS = parS,</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weightsS = weightsS</pre>
+                      <pre class="language-r">      ## only active here</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">131</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  activeBetamixPost &lt;- h_getBetamixPost(x = x, n = n, par = parE, weights = weights)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  density_y &lt;- with(</pre>
+                      <pre class="language-r">  ## deltas for prior methods:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">135</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    activeBetamixPost,</pre>
+                      <pre class="language-r">  deltaE &lt;- delta</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">136</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dbetabinomMix(x = 0:mE, m = mE, par = par, weights = weights)</pre>
+                      <pre class="language-r">  deltaF &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</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">67</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">6<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">    result = sum(density_y * (posterior_y &gt; thetaT)),</pre>
+                      <pre class="language-r">  ## drift is accounted for:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">139</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table = data.frame(</pre>
+                      <pre class="language-r">  histRate &lt;- controlRate - drift</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      counts = c(0:mE),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">141</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cumul_counts = x + (0:mE),</pre>
+                      <pre class="language-r">  ## s: decision reject H0 (TRUE) or fail to reject (FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">142</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      density = density_y,</pre>
+                      <pre class="language-r">  ##    during trial if continuing (NA)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">143</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      posterior = posterior_y,</pre>
+                      <pre class="language-r">  s &lt;- rep(NA, nSim)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">144</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      success = (posterior_y &gt; thetaT)</pre>
+                      <pre class="language-r">  n &lt;- nActive &lt;- nControl &lt;- integer(length(s))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  ## looks: three times total including the last one,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  ## approx equal distance.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">148</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  nn &lt;- ceiling(seq(from = 1, to = trialSize, length = 3 + 1))[-1]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">149</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The predictive probability of success in two-arm studies.</pre>
+                      <pre class="language-r">  nn &lt;- sort(nn)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">150</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  nr &lt;- FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">151</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The helper function to generate the predictive probability of success</pre>
+                      <pre class="language-r">  nL &lt;- length(nn)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">152</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' based on the difference in treatment group (`E`) and control or</pre>
+                      <pre class="language-r">  Nstart &lt;- nn[1]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">153</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' standard of care (`S`) group.</pre>
+                      <pre class="language-r">  Nmax &lt;- nn[nL]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</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">85</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">155</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_predprobdist_single_arm</pre>
+                      <pre class="language-r">  NmaxActive &lt;- ceiling(activeProp * Nmax)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">156</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  NmaxControl &lt;- Nmax - NmaxActive</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed xS : number</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">158</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of successes in the `S` group at interim.</pre>
+                      <pre class="language-r">  if (nr &amp;&amp; is.null(d)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed n : number</pre>
+                      <pre class="language-r">    ## set parameter d for randomly generating look locations</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">160</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of patients in the `E` group at interim.</pre>
+                      <pre class="language-r">    d &lt;- floor(min(nn - c(0, nn[-nL])) / 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed nS : number</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">162</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of patients in the `E` group at interim.</pre>
+                      <pre class="language-r">  nnr &lt;- nn</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed NmaxControl : number</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">164</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   maximum number of patients in the `S` group at final analysis.</pre>
+                      <pre class="language-r">  for (k in 1:nSim) { ## simulate a clinical trial nSim times</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">165</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    if (nr &amp;&amp; (d &gt; 0)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `list` is returned with names `result` for predictive probability and</pre>
+                      <pre class="language-r">      ## randomly generate look locations</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">167</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `table` of numeric values with counts of responses in the remaining patients, `density` for</pre>
+                      <pre class="language-r">      dd &lt;- sample(-d:d,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">168</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  probabilities of these counts, `posterior` for corresponding probabilities to be above threshold,</pre>
+                      <pre class="language-r">        size = nL - 1, replace = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">169</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  and `success`for trial success indicators.</pre>
+                      <pre class="language-r">        prob = 2^(c(-d:0, rev(-d:(-1))) / 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">171</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      nnr &lt;- nn + c(dd, 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_predprobdist &lt;- function(x,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           n,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           xS,</pre>
+                      <pre class="language-r">    ## simulate sequence of patients</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">175</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           nS,</pre>
+                      <pre class="language-r">    isActive &lt;- sample(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">176</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           Nmax,</pre>
+                      <pre class="language-r">      x =</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">177</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           NmaxControl,</pre>
+                      <pre class="language-r">        rep(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">178</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           delta,</pre>
+                      <pre class="language-r">          c(TRUE, FALSE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">179</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           relativeDelta,</pre>
+                      <pre class="language-r">          c(NmaxActive, NmaxControl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           parE,</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">181</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           parS,</pre>
+                      <pre class="language-r">      size = Nmax,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">182</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           weights,</pre>
+                      <pre class="language-r">      replace = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           weightsS,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           thetaT) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">758<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">  assert_number(x, lower = 0, upper = Nmax)</pre>
+                      <pre class="language-r">    ## generate the control data (binomial distribution)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">186</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(n, lower = 0, upper = Nmax)</pre>
+                      <pre class="language-r">    xHist &lt;- stats::rbinom(n = 1L, size = histSize, prob = histRate)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">187</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(xS, lower = 0, upper = NmaxControl)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(nS, lower = 0, upper = NmaxControl)</pre>
+                      <pre class="language-r">    ## this generates p0:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">189</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(Nmax, lower = x)</pre>
+                      <pre class="language-r">    p0 &lt;- xHist / histSize</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">190</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(NmaxControl, lower = xS)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">191</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(thetaT, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">    ## and with the delta this gives p1:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">192</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mS &lt;- NmaxControl - nS</pre>
+                      <pre class="language-r">    p1 &lt;- min(p0 + delta, 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">758<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">  mE &lt;- Nmax - n</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">194</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(xS + mS, lower = 0, upper = NmaxControl)</pre>
+                      <pre class="language-r">    ## for the prior methods, these are the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">195</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(x + mE, lower = 0, upper = Nmax)</pre>
+                      <pre class="language-r">    ## beta parameters:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">196</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  controlBetamixPost &lt;- h_getBetamixPost(</pre>
+                      <pre class="language-r">    parS &lt;-</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">197</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = xS,</pre>
+                      <pre class="language-r">      if (method %in% c("RCTvanilla.Bayes", "RCTvanilla.PP")) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">758<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">    n = nS,</pre>
+                      <pre class="language-r">        ## change parS to uniform in RCT vanilla case</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">199</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    par = parS,</pre>
+                      <pre class="language-r">        c(1, 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">200</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights = weightsS</pre>
+                      <pre class="language-r">      } else if (method %in% c("RCT.BayesRobust", "RCT.PProbust")) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">758<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  density_z &lt;- with(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">758<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    controlBetamixPost,</pre>
+                      <pre class="language-r">        ## specify a robust prior using the historical data</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">202</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dbetabinomMix(x = 0:mS, m = mS, par = par, weights = weights)</pre>
+                      <pre class="language-r">        ## beta mixture (50% weight each) of the informative</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        ## and uniform distribution:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">204</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  activeBetamixPost &lt;- h_getBetamixPost(x = x, n = n, par = parE, weights = weights)</pre>
+                      <pre class="language-r">        matrix(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">205</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  density_y &lt;- with(</pre>
+                      <pre class="language-r">          data =</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">206</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    activeBetamixPost,</pre>
+                      <pre class="language-r">            c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">207</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dbetabinomMix(x = 0:mE, m = mE, par = par, weights = weights)</pre>
+                      <pre class="language-r">              1 + xHist, 1 + histSize - xHist,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">208</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">              1, 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # determine resulting posterior probabilities:</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">210</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  outcomesY &lt;- x + c(0:mE)</pre>
+                      <pre class="language-r">          nrow = 2,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">211</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  outcomesZ &lt;- xS + c(0:mS)</pre>
+                      <pre class="language-r">          byrow = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">212</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  density_yz &lt;- posterior_yz &lt;- matrix(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">758<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">    nrow = 1 + mE,</pre>
+                      <pre class="language-r">        ## note that, because the default is a uniform distribution</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">758<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">    ncol = 1 + mS,</pre>
+                      <pre class="language-r">        ## across the mixture components, we do not need to manually</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">215</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dimnames =</pre>
+                      <pre class="language-r">        ## specify the weights.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">758<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">      list(</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">217</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        0:mE,</pre>
+                      <pre class="language-r">        ## otherwise we use the historical data without robustification</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">218</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        0:mS</pre>
+                      <pre class="language-r">        c(1 + xHist, 1 + histSize - xHist)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">758<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  for (i in seq_along(outcomesY)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">9244<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    for (j in seq_along(outcomesZ)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">142352<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">      posterior_yz[i, j] &lt;-</pre>
+                      <pre class="language-r">    ## generate the trial data (Bernoulli distribution)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">142352<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">        postprobDist(</pre>
+                      <pre class="language-r">    ## simulate sequence of responses</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">142352<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">223</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = outcomesY[i],</pre>
+                      <pre class="language-r">    x &lt;- stats::rbinom(Nmax, 1,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">142352<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">224</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          n = Nmax,</pre>
+                      <pre class="language-r">      prob = ifelse(isActive, nmeRate, controlRate)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">142352<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">          xS = outcomesZ[j],</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">142352<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">226</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          nS = NmaxControl,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">142352<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">227</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          delta = delta,</pre>
+                      <pre class="language-r">    ## start trial</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">142352<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">228</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">    j &lt;- 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">142352<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">229</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          parE = parE,</pre>
+                      <pre class="language-r">    i &lt;- nnr[j]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">142352<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">          weights = weights,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">142352<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">231</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          parS = parS,</pre>
+                      <pre class="language-r">    while (is.na(s[k]) &amp;&amp; (j &lt;= length(nnr))) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">142352<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">232</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          weightsS = weightsS</pre>
+                      <pre class="language-r">      if (method == "PointMass.Bayes") {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">142352<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      density_yz[i, j] &lt;- density_y[i] * density_z[j] # check each</pre>
+                      <pre class="language-r">        ## PointMass.Bayes</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">234</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        qL &lt;- 1 - postprob(x = sum(x[1:i]), n = i, p = p0, parE = parE, weights = weights)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">235</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        qU &lt;- postprob(x = sum(x[1:i]), n = i, p = p1, parE = parE, weights = weights)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">236</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ret &lt;- list(</pre>
+                      <pre class="language-r">      } else if (method %in% c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">237</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result = sum(density_yz * (posterior_yz &gt; thetaT)),</pre>
+                      <pre class="language-r">        "Prior.Bayes",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">238</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table = data.frame(</pre>
+                      <pre class="language-r">        "RCT.Bayes",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">239</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      counts = c(0:mE),</pre>
+                      <pre class="language-r">        "RCT.BayesRobust",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">240</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cumul_counts = x + (0:mE)</pre>
+                      <pre class="language-r">        "RCTvanilla.Bayes"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</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">177</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">242</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    density = density_yz,</pre>
+                      <pre class="language-r">        ## current data in both arms:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">243</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    posterior = posterior_yz,</pre>
+                      <pre class="language-r">        xActive &lt;- x[which(isActive[1:i])]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">244</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    success = (posterior_yz &gt; thetaT)</pre>
+                      <pre class="language-r">        xControl &lt;- x[which(!isActive[1:i])]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        ## compute the two probabilities</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">758<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">246</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ret</pre>
+                      <pre class="language-r">        qL &lt;- postprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">247</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          x = sum(xControl), n = length(xControl),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">183</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">248</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          xS = sum(xActive), nS = length(xActive),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">184</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">249</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          delta = deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">250</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Compute the predictive probability that the trial will be</pre>
+                      <pre class="language-r">          parE = parS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">251</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' successful, with a prior distribution on the standard of care or `S`</pre>
+                      <pre class="language-r">          parS = parE, weightsS = weights</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</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="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">253</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">        qU &lt;- postprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">254</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          x = sum(xControl), n = length(xControl),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">190</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">255</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Compute the predictive probability of trial success given current data.</pre>
+                      <pre class="language-r">          xS = sum(xActive), nS = length(xActive),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">191</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">256</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          delta = deltaE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">257</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Success means that at the end of the trial the posterior probability is:</pre>
+                      <pre class="language-r">          parE = parE, weights = weights,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">258</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `Pr(P_E &gt; P_S + delta_0 | data) &gt;= thetaT`.</pre>
+                      <pre class="language-r">          parS = parS</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Where `P_E` is the response rate of the treatment or `E`group and</pre>
+                      <pre class="language-r">        ## sample sizes: in both arms</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">261</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `P_S` is the response rate of the standard of care of `S` group.</pre>
+                      <pre class="language-r">        nActive[k] &lt;- length(xActive)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">262</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        nControl[k] &lt;- length(xControl)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">198</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">263</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Then the predictive probability for success is:</pre>
+                      <pre class="language-r">      } else if (method == "PointMass.PP") {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `pp = sum over i: Pr(Y = i | x , n)*I{Pr(P_E &gt; P_S + delta | x,Y=i) &gt;= thetaT}`,</pre>
+                      <pre class="language-r">        ## PointMass.PP</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">200</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">265</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' where `Y` is the number of future responses in the treatment group and `x` is</pre>
+                      <pre class="language-r">        q &lt;- predprob(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">201</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">266</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the current number of responses in the treatment group out of `n`.</pre>
+                      <pre class="language-r">          x = sum(x[1:i]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">202</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">267</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Please see note in [postprobDist()] for definition of `delta` and `relativeDelta`.</pre>
+                      <pre class="language-r">          n = i, Nmax = Nmax, p = p1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">203</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">268</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prior is `P_E ~ beta(a, b)` and uniform is a `beta(1,1)`.</pre>
+                      <pre class="language-r">          thetaT = tT, parE = parE, weights = weights</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">204</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">269</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' However, a beta mixture prior can also be specified. Analogously</pre>
+                      <pre class="language-r">        )$result</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">205</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">270</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' for `P_S` either a uniform beta prior or a beta mixture prior can be</pre>
+                      <pre class="language-r">      } else if (method %in% c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">206</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">271</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' specified.</pre>
+                      <pre class="language-r">        "Prior.PP",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">207</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">272</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        "RCT.PP",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">208</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">273</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Also data on the `S` might be available. Then the predictive probability is</pre>
+                      <pre class="language-r">        "RCT.PProbust",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">209</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">274</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' more generally defined as :</pre>
+                      <pre class="language-r">        "RCTvanilla.PP"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `pp = sum over i, j: Pr(Y = i | x, n)*Pr(Z = j | xS, nS )*I{Pr(P_E &gt; P_S + delta | x,xS, Y=i, Z=j ) &gt;= thetaT}`</pre>
+                      <pre class="language-r">      )) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' where `Z` is the future number of responses in the `S` group, and `xS` is the</pre>
+                      <pre class="language-r">        ## current data in both arms:</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">212</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">277</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' current number of responses in the `S` group.</pre>
+                      <pre class="language-r">        xActive &lt;- x[which(isActive[1:i])]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">213</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">278</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        xControl &lt;- x[which(!isActive[1:i])]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' In the case where `NmaxControl = 0`, a table with the following contents will be included in the return output :</pre>
+                      <pre class="language-r">        ## compute predictive probability</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">215</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">280</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `counts`: `Y = i`, number of future successes in `Nmax-n` subjects in ascending order.</pre>
+                      <pre class="language-r">        q &lt;- predprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">216</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">281</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `cumul_counts`: `Y = i`, number of future successes in `Nmax-n` subjects.</pre>
+                      <pre class="language-r">          x = sum(xActive), n = length(xActive),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">217</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">282</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `density`: `Pr(Y = i|x)` using beta-(mixture)-binomial distribution.</pre>
+                      <pre class="language-r">          xS = sum(xControl), nS = length(xControl),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">218</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">283</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `posterior`: `Pr(P_E &gt; P_S + delta | x, Y = i)` using beta posterior.</pre>
+                      <pre class="language-r">          Nmax = NmaxActive, NmaxControl = NmaxControl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">219</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">284</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `success`: indicator `I( b &gt; thetaT )`.</pre>
+                      <pre class="language-r">          delta = delta,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">220</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">285</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          thetaT = tT,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">221</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">286</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If `NmaxControl` is not zero, i.e., when data on the control treatment</pre>
+                      <pre class="language-r">          parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">222</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">287</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' is available in this trial, then a list with the following contents will be included in the return output :</pre>
+                      <pre class="language-r">          weights = weights,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">223</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">288</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `counts`: `Y = i`, number of future successes in `Nmax-n` subjects in ascending order.</pre>
+                      <pre class="language-r">          parS = parS</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">224</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">289</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `cumul_counts`: `Y = i`, number of future successes in `Nmax-n` subjects.</pre>
+                      <pre class="language-r">        )$result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `density`: `Pr(Y = i|x)` using beta-(mixture)-binomial distribution.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `posterior`: `Pr(P_E &gt; P_S + delta | x, Y = i)` using beta posterior.</pre>
+                      <pre class="language-r">        ## sample sizes: in both arms</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">227</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">292</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `success`: indicator `I( b &gt; thetaT )`.</pre>
+                      <pre class="language-r">        nActive[k] &lt;- length(xActive)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">228</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">293</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        nControl[k] &lt;- length(xControl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_predprobdist</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</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">231</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `list` is returned with names `result` for predictive probability including or separately a</pre>
+                      <pre class="language-r">      ## decision depends on whether Bayes or PP is used:</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">232</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">297</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `table` of numeric values with counts of responses in the remaining patients, `density` for</pre>
+                      <pre class="language-r">      s[k] &lt;- if (method %in% bayesNames) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">233</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">298</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  probabilities of these counts, `posterior` for corresponding probabilities to be above threshold,</pre>
+                      <pre class="language-r">        ifelse(qU &gt;= tU, TRUE, ifelse(qL &gt;= tL, FALSE, NA))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  and `success`for trial success indicators.</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">235</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">300</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ifelse(q &gt;= phiU &amp; !(i &lt; Nmax &amp; phiU == 1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">236</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">301</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @references Lee, J. J., &amp; Liu, D. D. (2008). A predictive probability</pre>
+                      <pre class="language-r">          TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">237</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">302</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' design for phase II cancer clinical trials. Clinical Trials, 5(2),</pre>
+                      <pre class="language-r">          ifelse(q &lt;= phiL, FALSE, NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 93-106. doi:10.1177/1740774508089279</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/predprobDist.R</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ## advance iterators</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">242</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">307</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      n[k] &lt;- i</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">243</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">308</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">predprobDist &lt;- function(x, n,</pre>
+                      <pre class="language-r">      j &lt;- j + 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">244</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">309</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         xS = 0,</pre>
+                      <pre class="language-r">      i &lt;- nnr[j]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         nS = 0,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         Nmax,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         NmaxControl = 0,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">248</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">313</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         delta = 0,</pre>
+                      <pre class="language-r">  oc &lt;- cbind(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">249</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">314</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         relativeDelta = FALSE,</pre>
+                      <pre class="language-r">    ExpectedN = mean(n),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">250</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">315</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         parE = c(a = 1, b = 1),</pre>
+                      <pre class="language-r">    ExpectedNactive = mean(nActive),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">251</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">316</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         weights,</pre>
+                      <pre class="language-r">    ExpectedNcontrol = mean(nControl),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">252</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">317</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         parS = c(a = 1, b = 1),</pre>
+                      <pre class="language-r">    PrStopEarly = mean(n &lt; Nmax),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">253</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">318</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         weightsS,</pre>
+                      <pre class="language-r">    PrEarlyEff = sum(s * (n &lt; Nmax), na.rm = TRUE) / nSim,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">254</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">319</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         thetaT) {</pre>
+                      <pre class="language-r">    PrEarlyFut = sum((1 - s) * (n &lt; Nmax), na.rm = TRUE) / nSim,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">255</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">320</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # ensure reasonable numbers</pre>
+                      <pre class="language-r">    PrEfficacy = sum(s, na.rm = TRUE) / nSim,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">756<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">321</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stopifnot(</pre>
+                      <pre class="language-r">    PrFutility = sum(1 - s, na.rm = TRUE) / nSim,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">756<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">322</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n &lt;= Nmax,</pre>
+                      <pre class="language-r">    PrGrayZone = sum(is.na(s) / nSim)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">756<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">    nS &lt;= NmaxControl,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">756<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;= n,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">756<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    xS &lt;= nS</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">756<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  mE &lt;- Nmax - n # remaining active patients</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # if par is a vector =&gt; situation where there is only one component</pre>
+                      <pre class="language-r">  ## return OC</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">756<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">326</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.vector(parE)) {</pre>
+                      <pre class="language-r">  return(oc)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">265</td>
-                    <td class="coverage">750<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">    stopifnot(identical(length(parE), 2L))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">750<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/ocPostprob.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">    parE &lt;- t(parE)</pre>
+                      <pre class="language-r">#' Generating random distance for [h_get_distance()] helper function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</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">268</td>
-                    <td class="coverage">756<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">  if (missing(weights)) {</pre>
+                      <pre class="language-r">#' A helper function for [h_get_distance()] by first calculating non-overlapping</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">269</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights &lt;- rep(1, nrow(parE))</pre>
+                      <pre class="language-r">#' distance between looks if looks are of minimum length of 2 elements.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # if parS is a vector =&gt; situation where there is only one component</pre>
+                      <pre class="language-r">#' @typed nn : number or numeric</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">756<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.vector(parS)) {</pre>
+                      <pre class="language-r">#'  the union of `nnE` and `nnF`, if futility analysis or looks are supplied.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">752<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">    stopifnot(identical(length(parS), 2L))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">752<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">    parS &lt;- t(parS)</pre>
+                      <pre class="language-r">#' @return A number providing the wiggle distance.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">756<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">  if (missing(weightsS)) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weightsS &lt;- rep(1, nrow(parS))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">h_dist0 &lt;- function(nn) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">279</td>
-                    <td class="coverage">756<em>x</em></td>
+                    <td class="num">14</td>
+                    <td class="coverage">1571<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (NmaxControl == 0) {</pre>
+                      <pre class="language-r">  assert_numeric(nn, lower = 1, unique = TRUE, sorted = TRUE, min.len = 2)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">15</td>
+                    <td class="coverage">1569<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret &lt;- h_predprobdist_single_arm(</pre>
+                      <pre class="language-r">  ceiling(min(nn - c(0, nn[-length(nn)])) / 2) - 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = x,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">282</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mE = mE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n = n,</pre>
+                      <pre class="language-r">#' Generating random distance in given looks for sample sizes for Efficacy and Futility.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">284</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      Nmax = Nmax,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      delta = delta,</pre>
+                      <pre class="language-r">#' A helper function for [ocPostprob()] to generate random distance's wiggle room around looks `nn`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">286</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">287</td>
-                    <td class="coverage">2<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">      parE = parE,</pre>
+                      <pre class="language-r">#' @inheritParams h_dist0</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">288</td>
-                    <td class="coverage">2<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">      parS = parS,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">289</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      weights = weights,</pre>
+                      <pre class="language-r">#' @return A numeric with `length(nn)-1` elements.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">290</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      weightsS = weightsS,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">291</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      thetaT = thetaT # check what is missing here</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">h_get_distance &lt;- function(nn) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">294</td>
-                    <td class="coverage">754<em>x</em></td>
+                    <td class="num">29</td>
+                    <td class="coverage">1564<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret &lt;- h_predprobdist(</pre>
+                      <pre class="language-r">  dist0 &lt;- h_dist0(nn)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">295</td>
-                    <td class="coverage">754<em>x</em></td>
+                    <td class="num">30</td>
+                    <td class="coverage">1562<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = x,</pre>
+                      <pre class="language-r">  sample(-dist0:dist0,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">296</td>
-                    <td class="coverage">754<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      n = n,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">297</td>
-                    <td class="coverage">754<em>x</em></td>
+                    <td class="num">31</td>
+                    <td class="coverage">1562<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xS = xS,</pre>
+                      <pre class="language-r">    size = length(nn) - 1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">298</td>
-                    <td class="coverage">754<em>x</em></td>
+                    <td class="num">32</td>
+                    <td class="coverage">1562<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nS = nS,</pre>
+                      <pre class="language-r">    replace = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">754<em>x</em></td>
+                    <td class="num">33</td>
+                    <td class="coverage">1562<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      Nmax = Nmax,</pre>
+                      <pre class="language-r">    prob = 2^(-abs(-dist0:dist0) / 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">300</td>
-                    <td class="coverage">754<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">      NmaxControl = NmaxControl,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">754<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">      delta = delta,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">302</td>
-                    <td class="coverage">754<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">      relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">303</td>
-                    <td class="coverage">754<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">      parE = parE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">754<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">      parS = parS,</pre>
+                      <pre class="language-r">#' Generating looks from random distance</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">754<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">      weights = weights,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">306</td>
-                    <td class="coverage">754<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">      weightsS = weightsS,</pre>
+                      <pre class="language-r">#' A helper function for [ocPostprob()] that applies the numeric element of `dist` to looks `nn`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">307</td>
-                    <td class="coverage">754<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">      thetaT = thetaT</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @typed dist : numeric or logical</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'  distance for random looks around the look locations in `nn`,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">756<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">  ret</pre>
+                      <pre class="language-r">#'  where `dist` is generated from [h_get_distance()] in a numeric of at least one element.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'  If `NULL`, only one location look will be set at `nnE` or `nnF`.</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/betadiff.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The Difference between Two Beta Distributions</pre>
+                      <pre class="language-r">#' @typed nnE : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'  sample size or sizes where study can be stopped for Efficacy decision. If different for Futility decision,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">#'  specify in `nnF`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @typed nnF : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The Probability Density Function of the difference of two Beta Distributions.</pre>
+                      <pre class="language-r">#'  sample size or sizes where study can be stopped for Futility decision if different from Efficacy decision.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</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">7</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Density, distribution function and quantile function for</pre>
+                      <pre class="language-r">#' @return Uses distance from [h_get_distance()] to add to looks, creating wiggled looks:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the distribution of the difference of two Beta distributions with parameters `parX` and `parY`.</pre>
+                      <pre class="language-r">#'  - `nnrE` is the result for Efficacy looks with random distance added.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' We denote `X` and `Y` as two random variables representing the response rate of Control and Treatment</pre>
+                      <pre class="language-r">#'  - `nnrF` is the result for Futility looks with random distance added.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' group respectively. The assignment of Control and Treatment is practically interchangeable.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' We denote `Z` as the difference between two groups such that `Z = Y-X`.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed z : numeric</pre>
+                      <pre class="language-r">h_get_looks &lt;- function(dist, nnE, nnF) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">1563<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  vector of differences between Control and Treatment arms such that `Z = Y-X`</pre>
+                      <pre class="language-r">  assert_numeric(dist)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">1563<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed parX : numeric</pre>
+                      <pre class="language-r">  assert_numeric(nnE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">1563<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  two parameters of `X`'s Beta distribution (Control)</pre>
+                      <pre class="language-r">  assert_numeric(nnF)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed parY : numeric</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">1563<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  two parameters of `Y`'s Beta distribution (Treatment)</pre>
+                      <pre class="language-r">  nn &lt;- sort(unique(c(nnE, nnF)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">64</td>
+                    <td class="coverage">1563<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed eps : number</pre>
+                      <pre class="language-r">  nnr &lt;- nn + c(dist, 0)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">1563<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  lowest floating point number as lower bound of integration</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">1563<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed rel.tol : number</pre>
+                      <pre class="language-r">    nnrE = nnr[nn %in% nnE],</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">1563<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    nnrF = nnr[nn %in% nnF]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  used in [stats::integrate()]</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return The density values</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note `X` and `Y` can be either Control or Treatment and `Z = X-Y`, subject to assumptions.</pre>
+                      <pre class="language-r">#' Generating random decision and sample size looks</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</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">27</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom stats dbeta integrate</pre>
+                      <pre class="language-r">#' A helper function for [ocPostprob()] to generate numeric of decisions `decisions` and random looks `all_sizes`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname dbetadiff</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/dbetadiff.R</pre>
+                      <pre class="language-r">#' @inheritParams h_get_looks</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @typed nnr : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">dbetadiff &lt;- function(z, parY, parX, eps = .Machine$double.eps, rel.tol = .Machine$double.eps^0.1) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">114<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(z, min.len = 1, finite = TRUE, any.missing = TRUE, null.ok = FALSE)</pre>
+                      <pre class="language-r">#'  union of `nnE`and `nnF`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">33</td>
-                    <td class="coverage">114<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ret &lt;- z</pre>
+                      <pre class="language-r">#' @typed truep : number</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">114<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_z_pos &lt;- z &gt;= 0</pre>
+                      <pre class="language-r">#'  assumed true response rate.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">114<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_z_neg &lt;- z &lt; 0</pre>
+                      <pre class="language-r">#' @typed p0 : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'  lower Futility threshold of response rate.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">114<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(parY, len = 2, lower = .Machine$double.xmin, any.missing = FALSE, finite = TRUE)</pre>
+                      <pre class="language-r">#' @typed p1 : number</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">114<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">  assert_numeric(parX, len = 2, lower = .Machine$double.xmin, any.missing = FALSE, finite = TRUE)</pre>
+                      <pre class="language-r">#'  upper Efficacy threshold of response rate.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">114<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">  assert_number(eps, finite = TRUE)</pre>
+                      <pre class="language-r">#' @typed tL : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'  posterior probability threshold for being below `p0`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">114<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  integrandPos &lt;- function(x, zval) {</pre>
+                      <pre class="language-r">#' @typed tU : number</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">1361<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">87</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    exp(</pre>
+                      <pre class="language-r">#'  posterior probability threshold for being above `p1`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">1361<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">88</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stats::dbeta(x = x, parX[1], parX[2], log = TRUE) +</pre>
+                      <pre class="language-r">#' @typed parE : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # x + zval = y, if z = y - x</pre>
+                      <pre class="language-r">#'  alpha and beta parameters for the prior on the treatment population.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">1361<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">        stats::dbeta(x = x + zval, parY[1], parY[2], log = TRUE)</pre>
+                      <pre class="language-r">#'  Default set at alpha = 1, beta = 1, or uniform prior.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @return A list with the following elements :</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">114<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  integrandNeg &lt;- function(y, zval) {</pre>
+                      <pre class="language-r">#'  - `decision` : decision `flag` with `TRUE` for Go, `FALSE` for Stop, `NA` for Gray zone.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">5236<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">    exp(</pre>
+                      <pre class="language-r">#'  - `all_sizes` : resulting number of look size, anything below maximum</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">5236<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">95</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stats::dbeta(x = y, parY[1], parY[2], log = TRUE) +</pre>
+                      <pre class="language-r">#'   look size is an indicated interim, Futility or Efficacy or both.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # y - zval = x, if  z = y - x</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">5236<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stats::dbeta(x = y - zval, parX[1], parX[2], log = TRUE)</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</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">54</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">h_get_decision &lt;- function(nnr, truep, p0, p1, parE = c(1, 1), nnE, nnF, tL, tU) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">114<em>x</em></td>
+                    <td class="num">100</td>
+                    <td class="coverage">100001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (i in seq_along(z)[is_z_pos]) {</pre>
+                      <pre class="language-r">  assert_numeric(nnr)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">632<em>x</em></td>
+                    <td class="num">101</td>
+                    <td class="coverage">100001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret[i] &lt;- stats::integrate(</pre>
+                      <pre class="language-r">  assert_number(truep, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">632<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      f = integrandPos,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                    <td class="num">102</td>
+                    <td class="coverage">100001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # We transform the bounds to follow the support of integrandPos here.</pre>
+                      <pre class="language-r">  assert_number(p0, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">632<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      lower = eps,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                    <td class="num">103</td>
+                    <td class="coverage">100001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # The upper bounds here are between 0 and 1.</pre>
+                      <pre class="language-r">  assert_number(p1, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">632<em>x</em></td>
+                    <td class="num">104</td>
+                    <td class="coverage">100001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      upper = 1 - z[i],</pre>
+                      <pre class="language-r">  assert_numeric(parE, min.len = 2, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">632<em>x</em></td>
+                    <td class="num">105</td>
+                    <td class="coverage">100001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      zval = z[i],</pre>
+                      <pre class="language-r">  assert_numeric(nnE, lower = 1, any.missing = FALSE, sorted = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">632<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">100001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      subdivisions = 1000L,</pre>
+                      <pre class="language-r">  assert_numeric(nnF, lower = 1, any.missing = FALSE, sorted = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">632<em>x</em></td>
+                    <td class="num">107</td>
+                    <td class="coverage">100001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rel.tol = rel.tol</pre>
+                      <pre class="language-r">  assert_number(tL, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">632<em>x</em></td>
+                    <td class="num">108</td>
+                    <td class="coverage">100001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )$value</pre>
+                      <pre class="language-r">  assert_number(tU, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</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">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">100001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  Nmax &lt;- max(nnr)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">113<em>x</em></td>
+                    <td class="num">111</td>
+                    <td class="coverage">100001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (i in seq_along(z)[is_z_neg]) {</pre>
+                      <pre class="language-r">  index_look &lt;- 1</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">1742<em>x</em></td>
+                    <td class="num">112</td>
+                    <td class="coverage">100001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret[i] &lt;- stats::integrate(</pre>
+                      <pre class="language-r">  size_look &lt;- nnr[index_look]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">1742<em>x</em></td>
+                    <td class="num">113</td>
+                    <td class="coverage">100001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      f = integrandNeg,</pre>
+                      <pre class="language-r">  all_sizes &lt;- decision &lt;- NA</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">114</td>
+                    <td class="coverage">100001<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  response &lt;- stats::rbinom(Nmax, size = 1, prob = truep)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # We transform the bounds to follow the support of integrandNeg.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">1742<em>x</em></td>
+                    <td class="num">116</td>
+                    <td class="coverage">100001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lower = eps,</pre>
+                      <pre class="language-r">  while (is.na(decision) &amp;&amp; index_look &lt;= length(nnr)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">117</td>
+                    <td class="coverage">127424<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (size_look %in% nnF) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">118</td>
+                    <td class="coverage">118263<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      qL &lt;- 1 - postprob(x = sum(response[1:size_look]), n = size_look, p = p0, parE = parE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">118263<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      decision &lt;- ifelse(qL &gt;= tL, FALSE, NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # The upper bounds here are between 0 and 1.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">1742<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">127424<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      upper = 1 + z[i],</pre>
+                      <pre class="language-r">    if (size_look %in% nnE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">1742<em>x</em></td>
+                    <td class="num">122</td>
+                    <td class="coverage">127424<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      zval = z[i],</pre>
+                      <pre class="language-r">      qU &lt;- postprob(x = sum(response[1:size_look]), n = size_look, p = p1, parE = parE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">1742<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">127424<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      subdivisions = 1000L,</pre>
+                      <pre class="language-r">      decision &lt;- ifelse(qU &lt; tU, decision, TRUE)</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">77</td>
-                    <td class="coverage">1742<em>x</em></td>
+                    <td class="num">125</td>
+                    <td class="coverage">127424<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rel.tol = rel.tol</pre>
+                      <pre class="language-r">    all_sizes &lt;- size_look</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">1742<em>x</em></td>
+                    <td class="num">126</td>
+                    <td class="coverage">127424<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )$value</pre>
+                      <pre class="language-r">    index_look &lt;- index_look + 1</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">127424<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</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">80</td>
-                    <td class="coverage">113<em>x</em></td>
+                    <td class="num">129</td>
+                    <td class="coverage">100001<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ret</pre>
+                      <pre class="language-r">  list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">100001<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    decision = decision,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">100001<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    all_sizes = all_sizes</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Beta difference Cumulative Probability Function</pre>
+                      <pre class="language-r">#' Creating list for operating characteristics</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">#' Generates operating characteristics.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Calculates the Cumulative Probability Function of the Beta difference for a given probability.</pre>
+                      <pre class="language-r">#' @inheritParams h_get_looks</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams h_get_decision</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams dbetadiff</pre>
+                      <pre class="language-r">#' @typed all_sizes : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed q : number</pre>
+                      <pre class="language-r">#'  sample sizes of all looks simulated `length(sim)` times if `dist` applied.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  vector of quantiles</pre>
+                      <pre class="language-r">#' @typed decision : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">144</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'  Go, Stop or Gray Zone decisions of all looks simulated `length(sim)` times.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return The probability distribution value</pre>
+                      <pre class="language-r">#' @return A list of results containing :</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom stats integrate</pre>
+                      <pre class="language-r">#' - `ExpectedN`: expected number of patients in the trials</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname pbetadiff</pre>
+                      <pre class="language-r">#' - `PrStopEarly`: probability to stop the trial early (before reaching the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/pbetadiff.R</pre>
+                      <pre class="language-r">#' maximum sample size)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' - `PrEarlyEff`: probability of Early Go decision</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">pbetadiff &lt;- function(q, parY, parX, rel.tol = .Machine$double.eps^0.1) {</pre>
+                      <pre class="language-r">#' - `PrEarlyFut`: probability of for Early Stop decision</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">31<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stats::integrate(</pre>
+                      <pre class="language-r">#' - `PrEfficacy`: probability of Go decision</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">31<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    f = dbetadiff,</pre>
+                      <pre class="language-r">#' - `PrFutility`: probability of Stop decision</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">31<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parY = parY,</pre>
+                      <pre class="language-r">#' - `PrGrayZone`: probability between Go and Stop ,"Evaluate" or Gray decision zone</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">31<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">156</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parX = parX,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">31<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">    lower = -1,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">31<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">    upper = q,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">31<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">159</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    subdivisions = 1000L,</pre>
+                      <pre class="language-r">h_get_oc &lt;- function(all_sizes, Nmax, decision) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">31<em>x</em></td>
+                    <td class="num">160</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rel.tol = rel.tol</pre>
+                      <pre class="language-r">  assert_numeric(all_sizes)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">31<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  )$value</pre>
+                    <td class="num">161</td>
+                    <td class="coverage">35<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_true(Nmax &gt;= max(all_sizes))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  assert_numeric(Nmax, lower = 1)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">35<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_logical(decision, len = length(all_sizes))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Beta difference Quantile Function</pre>
+                      <pre class="language-r">  sim &lt;- length(all_sizes)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">35<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">113</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">    ExpectedN = mean(all_sizes, na.rm = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    PrStopEarly = mean(all_sizes &lt; Nmax, na.rm = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Calculates the quantile of the Beta difference for a given probability.</pre>
+                      <pre class="language-r">    PrEarlyEff = sum(decision * (all_sizes &lt; Nmax), na.rm = TRUE) / sim,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    PrEarlyFut = sum((1 - decision) * (all_sizes &lt; Nmax), na.rm = TRUE) / sim,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams dbetadiff</pre>
+                      <pre class="language-r">    PrEfficacy = sum(decision, na.rm = TRUE) / sim,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed p : number</pre>
+                      <pre class="language-r">    PrFutility = sum(1 - decision, na.rm = TRUE) / sim,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  vector of probabilities</pre>
+                      <pre class="language-r">    PrGrayZone = sum(is.na(decision)) / sim</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return The quantile values.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom stats uniroot</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname qbetadiff</pre>
+                      <pre class="language-r">#' Operating Characteristics for Posterior Probability method</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/qbetadiff.R</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">qbetadiff &lt;- function(p, parY, parX, eps = .Machine$double.eps) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">181</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  target &lt;- function(q) {</pre>
+                      <pre class="language-r">#' Calculate operating characteristics for posterior probability method.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">182</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pbetadiff(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">183</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      q = q,</pre>
+                      <pre class="language-r">#' It is assumed that the true response rate is `truep`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">184</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parY = parY,</pre>
+                      <pre class="language-r">#' The trial is stopped for Efficacy if the posterior probability to be</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">26<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">      parX = parX</pre>
+                      <pre class="language-r">#' above `p1` is larger than `tU`, and stopped for Futility if the posterior</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">186</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) - p</pre>
+                      <pre class="language-r">#' probability to be below `p0` is larger than `tL`:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  eps &lt;- 1e-10</pre>
+                      <pre class="language-r">#' Stop criteria for Efficacy :</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">189</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stats::uniroot(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">190</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    f = target,</pre>
+                      <pre class="language-r">#' `Pr(RR &gt; p1) &gt; tU`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">191</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    interval = c(-1 + eps, 1 - eps)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">192</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )$root</pre>
+                      <pre class="language-r">#' Stop criteria for Futility :</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/postprob.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Posterior Probability of Efficacy Given Beta Prior</pre>
+                      <pre class="language-r">#' `Pr(RR &lt; p0) &gt; tL`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">#' Resulting operating characteristics include the following:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Compute the posterior probability to be above threshold assuming a beta prior</pre>
+                      <pre class="language-r">#' - `ExpectedN`: expected number of patients in the trials</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' on the response rate such that the response rate in the experimental or treatment `E` exceeds</pre>
+                      <pre class="language-r">#' - `PrStopEarly`: probability to stop the trial early (before reaching the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the threshold set to compute the posterior probability `p` :  `Pr(P_E &gt; p | data)`.</pre>
+                      <pre class="language-r">#' maximum sample size)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prior is `P_E ~ beta(a, b)`, with default set to be a uniform or beta(1,1).</pre>
+                      <pre class="language-r">#' - `PrEarlyEff`: probability of Early Go decision</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' - `PrEarlyFut`: probability of for Early Stop decision</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' We observed `x` successes in n trials and so the posterior is</pre>
+                      <pre class="language-r">#' - `PrEfficacy`: probability of Go decision</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `P_E | data  ~ beta(a + x, b + n - x)`.</pre>
+                      <pre class="language-r">#' - `PrFutility`: probability of Stop decision</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' - `PrGrayZone`: probability between Go and Stop ,"Evaluate" or Gray decision zone</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed x : numeric</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of successes.</pre>
+                      <pre class="language-r">#' @inheritParams h_get_looks</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed n : number</pre>
+                      <pre class="language-r">#' @inheritParams h_get_decision</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of patients.</pre>
+                      <pre class="language-r">#' @typed sim : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed p : number</pre>
+                      <pre class="language-r">#'  number of simulations.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  threshold set to compute posterior probability.</pre>
+                      <pre class="language-r">#' @typed wiggle : flag</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed a : matrix</pre>
+                      <pre class="language-r">#'  generate random look locations (not default).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  first parameter `alpha` of the beta prior (successes).</pre>
+                      <pre class="language-r">#'  if `TRUE`, optional to specify `dist` (see @details).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed b : matrix</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  second parameter `beta` of the beta prior (failures).</pre>
+                      <pre class="language-r">#' @return A list with the following elements:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return The posterior probability that the response rate P_E is above a threshold p.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' - `oc`: matrix with operating characteristics (see @details section)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/postprobBeta.R</pre>
+                      <pre class="language-r">#' - `nn`: vector of look locations that was supplied</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' - `nnE`: vector of Efficacy look locations</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">postprobBeta &lt;- function(x, n, p, a = 1, b = 1) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">28</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(n, lower = 0, finite = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(x, lower = 0, upper = n, finite = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">30</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(a, finite = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">31</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(b, finite = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(p, lower = 0, upper = 1, finite = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">33</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  stats::pbeta(p, a + x, b + n - x, lower.tail = FALSE)</pre>
+                      <pre class="language-r">#' - `nnF`: vector of Futility look locations</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' - `params`: user input arguments.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">222</td>
                     <td class="coverage"></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">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Posterior Probability of Efficacy Given Beta-Mixture Prior</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @example examples/ocPostprob.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">ocPostprob &lt;- function(nnE, truep, p0, p1, tL, tU, parE = c(1, 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Compute the posterior probability that the response probability `P_E` is above a threshold.</pre>
+                      <pre class="language-r">                       sim = 50000, wiggle = FALSE, nnF = nnE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">228</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' such that this posterior probability can be expressed as `Pr(P_E &gt; p | data)`. Prior is</pre>
+                      <pre class="language-r">  nn &lt;- sort(unique(c(nnF, nnE)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">229</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `P_E ~ sum(weights * beta(parE[, 1], parE[, 2]))`, i.e., a mixture of beta priors.</pre>
+                      <pre class="language-r">  Nmax &lt;- max(nn)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">230</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Default is one component only with uniform or `beta(1,1)`.</pre>
+                      <pre class="language-r">  assert_number(sim, lower = 1, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">231</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  assert_flag(wiggle)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' We observed `x` successes in n trials.</pre>
+                      <pre class="language-r">  if (sim &lt; 50000) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</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">#'</pre>
+                      <pre class="language-r">    warning("Advise to use sim &gt;= 50000 to achieve convergence")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Posterior is again a mixture of beta priors, with updated mixture weights</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">235</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and beta parameters.</pre>
+                      <pre class="language-r">  decision &lt;- vector(length = sim)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">236</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  all_sizes &lt;- vector(length = sim)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">237</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed x : numeric</pre>
+                      <pre class="language-r">  for (k in seq_len(sim)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">238</td>
+                    <td class="coverage">1e+05<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of successes.</pre>
+                      <pre class="language-r">    if (length(nn) != 1 &amp;&amp; wiggle) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">239</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed n : number</pre>
+                      <pre class="language-r">      dist &lt;- h_get_distance(nn = nn)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">240</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of patients.</pre>
+                      <pre class="language-r">      nnr &lt;- h_get_looks(dist = dist, nnE = nnE, nnF = nnF)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">241</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed p : number</pre>
+                      <pre class="language-r">      nnrE &lt;- nnr$nnrE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">242</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  threshold that `P_E` is measured.</pre>
+                      <pre class="language-r">      nnrF &lt;- nnr$nnrF</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @typed parE : matrix</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  the beta parameters matrix, with `K` rows and 2 columns,</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">244</td>
+                    <td class="coverage">1e+05<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  corresponding to the beta parameters of the `K` components.</pre>
+                      <pre class="language-r">      dist &lt;- 0</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">245</td>
+                    <td class="coverage">1e+05<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed weights : vector</pre>
+                      <pre class="language-r">      nnrE &lt;- nnE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">246</td>
+                    <td class="coverage">1e+05<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  The mixture weights of the beta mixture prior.</pre>
+                      <pre class="language-r">      nnrF &lt;- nnF</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed betamixPost : matrix</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">248</td>
+                    <td class="coverage">1e+05<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  optional result of `[h_getBetamixPost()]` in order</pre>
+                      <pre class="language-r">    nnr &lt;- unique(c(nnrE, nnrF))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">249</td>
+                    <td class="coverage">1e+05<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  to speed up the computations. If supplied, this is directly used, bypassing</pre>
+                      <pre class="language-r">    tmp &lt;- h_get_decision(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">250</td>
+                    <td class="coverage">1e+05<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  the other arguments (except `p` and `log.p` of course).</pre>
+                      <pre class="language-r">      nnr = nnr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">251</td>
+                    <td class="coverage">1e+05<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed log.p : number</pre>
+                      <pre class="language-r">      truep = truep, p0 = p0, p1 = p1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">252</td>
+                    <td class="coverage">1e+05<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  whether to return the log of the probability</pre>
+                      <pre class="language-r">      parE = c(1, 1), nnE = nnrE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">253</td>
+                    <td class="coverage">1e+05<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return The posterior probability that the response rate `P_E` is above `p`.</pre>
+                      <pre class="language-r">      nnF = nnrF, tL = tL, tU = tU</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">255</td>
+                    <td class="coverage">1e+05<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/postprob.R</pre>
+                      <pre class="language-r">    decision[k] &lt;- tmp$decision</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">256</td>
+                    <td class="coverage">1e+05<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    all_sizes[k] &lt;- tmp$all_sizes</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">postprob &lt;- function(x, n, p, parE = c(1, 1), weights, betamixPost, log.p = FALSE) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">614398<em>x</em></td>
+                    <td class="num">258</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (missing(betamixPost)) {</pre>
+                      <pre class="language-r">  oc &lt;- h_get_oc(all_sizes = all_sizes, Nmax = Nmax, decision = decision)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">248186<em>x</em></td>
+                    <td class="num">259</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_flag(log.p)</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">248186<em>x</em></td>
+                    <td class="num">260</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.vector(parE)) {</pre>
+                      <pre class="language-r">    oc = oc,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">261</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Here there is only one component.</pre>
+                      <pre class="language-r">    Decision = decision,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">245872<em>x</em></td>
+                    <td class="num">262</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      assert_true(identical(length(parE), 2L))</pre>
+                      <pre class="language-r">    SampleSize = all_sizes,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">263</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # To get matrix with one row.</pre>
+                      <pre class="language-r">    union_nn = nnr,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">245872<em>x</em></td>
+                    <td class="num">264</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parE &lt;- t(parE)</pre>
+                      <pre class="language-r">    wiggled_nnrE = nnrE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">265</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    wiggled_nnrF = nnrF,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">248186<em>x</em></td>
+                    <td class="num">266</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_matrix(parE)</pre>
+                      <pre class="language-r">    dist = dist,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">248186<em>x</em></td>
+                    <td class="num">267</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (missing(weights)) {</pre>
+                      <pre class="language-r">    params = as.list(match.call(expand.dots = FALSE))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">245875<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">      weights &lt;- rep(1, nrow(parE))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">248186<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/postprob.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">    betamixPost &lt;- lapply(</pre>
+                      <pre class="language-r">#' Posterior Probability of Efficacy Given Beta Prior</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">248186<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">248186<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">      h_getBetamixPost,</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">248186<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">      n = n,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">248186<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">      par = parE,</pre>
+                      <pre class="language-r">#' Compute the posterior probability to be above threshold assuming a beta prior</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">248186<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">      weights = weights</pre>
+                      <pre class="language-r">#' on the response rate such that the response rate in the experimental or treatment `E` exceeds</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' the threshold set to compute the posterior probability `p` :  `Pr(P_E &gt; p | data)`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</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">#' Prior is `P_E ~ beta(a, b)`, with default set to be a uniform or beta(1,1).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">366212<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">    assert_list(betamixPost)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">366212<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">    assert_names(names(betamixPost), identical.to = c("par", "weights"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">366212<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    betamixPost &lt;- list(betamixPost)</pre>
+                      <pre class="language-r">#' We observed `x` successes in n trials and so the posterior is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' `P_E | data  ~ beta(a + x, b + n - x)`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">614398<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">  ret &lt;- vapply(</pre>
+                      <pre class="language-r">#' @typed x : numeric</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">614398<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">    betamixPost,</pre>
+                      <pre class="language-r">#'  number of successes.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">614398<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">    FUN = function(bmp) {</pre>
+                      <pre class="language-r">#' @typed n : number</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">657606<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">      .pbetaMix(q = p, par = bmp$par, weights = bmp$weights, lower.tail = FALSE)</pre>
+                      <pre class="language-r">#'  number of patients.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' @typed p : number</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">614398<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">    FUN.VALUE = numeric(length(p))</pre>
+                      <pre class="language-r">#'  threshold set to compute posterior probability.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @typed a : matrix</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'  first parameter `alpha` of the beta prior (successes).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">614398<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (log.p) {</pre>
+                      <pre class="language-r">#' @typed b : matrix</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">106</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    log(ret)</pre>
+                      <pre class="language-r">#'  second parameter `beta` of the beta prior (failures).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' @return The posterior probability that the response rate P_E is above a threshold p.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">614398<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">    ret</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @example examples/postprobBeta.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <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>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/ocRctPostprobDist.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Generating random decision and sample size looks</pre>
+                      <pre class="language-r">postprobBeta &lt;- function(x, n, p, a = 1, b = 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">28</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  assert_number(n, lower = 0, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">29</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A helper function for [ocRctPostprobDist()] to generate numeric of decisions `decisions` and</pre>
+                      <pre class="language-r">  assert_numeric(x, lower = 0, upper = n, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">30</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' random looks `all_sizes`.</pre>
+                      <pre class="language-r">  assert_number(a, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">31</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  assert_number(b, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">32</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_decision_one_predprob</pre>
+                      <pre class="language-r">  assert_number(p, lower = 0, upper = 1, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">33</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_decision_two_predprob</pre>
+                      <pre class="language-r">  stats::pbeta(p, a + x, b + n - x, lower.tail = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</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">9</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed randRatio : numeric</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  The randomisation ratio between treatment and control. Must be greater than 0 and maximum of 1.</pre>
+                      <pre class="language-r">#' Posterior Probability of Efficacy Given Beta-Mixture Prior</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed Nmax : number</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The max sample size or the sample size of final look.</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list with the following elements :</pre>
+                      <pre class="language-r">#' Compute the posterior probability that the response probability `P_E` is above a threshold.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `decision` : decision `flag` with `TRUE` for Go, `FALSE` for Stop, `NA` for Gray zone.</pre>
+                      <pre class="language-r">#' such that this posterior probability can be expressed as `Pr(P_E &gt; p | data)`. Prior is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `all_sizes` : resulting number of look size, anything below maximum</pre>
+                      <pre class="language-r">#' `P_E ~ sum(weights * beta(parE[, 1], parE[, 2]))`, i.e., a mixture of beta priors.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   look size is an indicated interim, Futility or Efficacy or both.</pre>
+                      <pre class="language-r">#' Default is one component only with uniform or `beta(1,1)`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `nActive` : mean of look size for Active arm.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `nControl` : mean of look size for Control arm.</pre>
+                      <pre class="language-r">#' We observed `x` successes in n trials.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_get_decisionDist_rct &lt;- function(nnr,</pre>
+                      <pre class="language-r">#' Posterior is again a mixture of beta priors, with updated mixture weights</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   nnrE,</pre>
+                      <pre class="language-r">#' and beta parameters.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   nnrF,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   pE,</pre>
+                      <pre class="language-r">#' @typed x : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   pS,</pre>
+                      <pre class="language-r">#'  number of successes.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   parE = c(1, 1),</pre>
+                      <pre class="language-r">#' @typed n : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   parS = c(1, 1),</pre>
+                      <pre class="language-r">#'  number of patients.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   tL,</pre>
+                      <pre class="language-r">#' @typed p : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   tU,</pre>
+                      <pre class="language-r">#'  threshold that `P_E` is measured.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   deltaE,</pre>
+                      <pre class="language-r">#' @typed parE : matrix</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   deltaF,</pre>
+                      <pre class="language-r">#'  the beta parameters matrix, with `K` rows and 2 columns,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   relativeDelta,</pre>
+                      <pre class="language-r">#'  corresponding to the beta parameters of the `K` components.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   randRatio = 1,</pre>
+                      <pre class="language-r">#' @typed weights : vector</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   Nmax) {</pre>
+                      <pre class="language-r">#'  The mixture weights of the beta mixture prior.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">252<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnr, finite = TRUE, any.missing = FALSE)</pre>
+                      <pre class="language-r">#' @typed betamixPost : matrix</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">252<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnrE, max.len = length(nnr), any.missing = FALSE)</pre>
+                      <pre class="language-r">#'  optional result of `[h_getBetamixPost()]` in order</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">252<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnrF, max.len = length(nnr), any.missing = FALSE)</pre>
+                      <pre class="language-r">#'  to speed up the computations. If supplied, this is directly used, bypassing</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">252<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">  assert_number(pE, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">#'  the other arguments (except `p` and `log.p` of course).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">252<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">  assert_number(pS, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">#' @typed log.p : number</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">252<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">  assert_numeric(parE, lower = 0, finite = TRUE, any.missing = FALSE)</pre>
+                      <pre class="language-r">#'  whether to return the log of the probability</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">252<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(parS, lower = 0, finite = TRUE, any.missing = FALSE)</pre>
+                      <pre class="language-r">#' @return The posterior probability that the response rate `P_E` is above `p`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">252<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">  assert_number(tL, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">252<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(tU, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">#' @example examples/postprob.R</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">252<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(deltaE, finite = TRUE)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">252<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(deltaF, finite = TRUE)</pre>
+                      <pre class="language-r">postprob &lt;- function(x, n, p, parE = c(1, 1), weights, betamixPost, log.p = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="num">72</td>
+                    <td class="coverage">614494<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_flag(relativeDelta)</pre>
+                      <pre class="language-r">  if (missing(betamixPost)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="num">73</td>
+                    <td class="coverage">248282<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(randRatio, na.ok = FALSE, upper = 1, finite = TRUE)</pre>
+                      <pre class="language-r">    assert_flag(log.p)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">248282<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(Nmax, lower = 1)</pre>
+                      <pre class="language-r">    if (is.vector(parE)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      # Here there is only one component.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="num">76</td>
+                    <td class="coverage">245872<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  index_look &lt;- 1</pre>
+                      <pre class="language-r">      assert_true(identical(length(parE), 2L))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">252<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  size_look &lt;- nnr[index_look]</pre>
+                      <pre class="language-r">      # To get matrix with one row.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="num">78</td>
+                    <td class="coverage">245872<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  all_sizes &lt;- decision &lt;- nActive &lt;- nControl &lt;- NA</pre>
+                      <pre class="language-r">      parE &lt;- t(parE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="num">80</td>
+                    <td class="coverage">248282<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  activeProp &lt;- randRatio / (randRatio + 1)</pre>
+                      <pre class="language-r">    assert_matrix(parE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="num">81</td>
+                    <td class="coverage">248282<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  NmaxActive &lt;- ceiling(activeProp * Nmax)</pre>
+                      <pre class="language-r">    if (missing(weights)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="num">82</td>
+                    <td class="coverage">245875<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  NmaxControl &lt;- Nmax - NmaxActive</pre>
+                      <pre class="language-r">      weights &lt;- rep(1, nrow(parE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="num">84</td>
+                    <td class="coverage">248282<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  isActive &lt;- sample(</pre>
+                      <pre class="language-r">    betamixPost &lt;- lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="num">85</td>
+                    <td class="coverage">248282<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = rep(c(TRUE, FALSE), c(NmaxActive, NmaxControl)),</pre>
+                      <pre class="language-r">      x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="num">86</td>
+                    <td class="coverage">248282<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size = Nmax,</pre>
+                      <pre class="language-r">      h_getBetamixPost,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="num">87</td>
+                    <td class="coverage">248282<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    replace = FALSE</pre>
+                      <pre class="language-r">      n = n,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">88</td>
+                    <td class="coverage">248282<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      par = parE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="num">89</td>
+                    <td class="coverage">248282<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  response &lt;- rbinom(Nmax, size = 1, prob = ifelse(isActive, pE, pS))</pre>
+                      <pre class="language-r">      weights = weights</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</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">64</td>
-                    <td class="coverage">252<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">  while (is.na(decision) &amp;&amp; index_look &lt;= length(nnr)) {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">366212<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## current data in both arms:</pre>
+                      <pre class="language-r">    assert_list(betamixPost)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">617<em>x</em></td>
+                    <td class="num">93</td>
+                    <td class="coverage">366212<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xActive &lt;- response[which(isActive[1:size_look])]</pre>
+                      <pre class="language-r">    assert_names(names(betamixPost), identical.to = c("par", "weights"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">617<em>x</em></td>
+                    <td class="num">94</td>
+                    <td class="coverage">366212<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xControl &lt;- response[which(!isActive[1:size_look])]</pre>
+                      <pre class="language-r">    betamixPost &lt;- list(betamixPost)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">617<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">    if (size_look %in% nnrF) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">492<em>x</em></td>
+                    <td class="num">97</td>
+                    <td class="coverage">614494<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qL &lt;- postprobDist(</pre>
+                      <pre class="language-r">  ret &lt;- vapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">492<em>x</em></td>
+                    <td class="num">98</td>
+                    <td class="coverage">614494<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = sum(xControl),</pre>
+                      <pre class="language-r">    betamixPost,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">492<em>x</em></td>
+                    <td class="num">99</td>
+                    <td class="coverage">614494<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = length(xControl),</pre>
+                      <pre class="language-r">    FUN = function(bmp) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">492<em>x</em></td>
+                    <td class="num">100</td>
+                    <td class="coverage">657702<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xS = sum(xActive),</pre>
+                      <pre class="language-r">      .pbetaMix(q = p, par = bmp$par, weights = bmp$weights, lower.tail = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">492<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        nS = length(xActive),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">492<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        delta = deltaF,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">492<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">492<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">101</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parS,</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">492<em>x</em></td>
+                    <td class="num">102</td>
+                    <td class="coverage">614494<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parS = parE</pre>
+                      <pre class="language-r">    FUN.VALUE = numeric(length(p))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">103</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">492<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(qL &gt;= tL, FALSE, NA)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">617<em>x</em></td>
+                    <td class="num">105</td>
+                    <td class="coverage">614494<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnrE) {</pre>
+                      <pre class="language-r">  if (log.p) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">613<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">106</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qU &lt;- postprobDist(</pre>
+                      <pre class="language-r">    log(ret)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">613<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">        x = sum(xActive),</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">613<em>x</em></td>
+                    <td class="num">108</td>
+                    <td class="coverage">614494<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = length(xActive),</pre>
+                      <pre class="language-r">    ret</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">613<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">        xS = sum(xControl),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">613<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">        nS = length(xControl),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">613<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/boundsPredprob.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">        delta = deltaE,</pre>
+                      <pre class="language-r">#' Decision cutpoints for boundary (based on predictive probability)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">613<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">        relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">613<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">        parE = parE,</pre>
+                      <pre class="language-r">#' This function is used to identify the efficacy boundary and futility</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">613<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">        parS = parS</pre>
+                      <pre class="language-r">#' boundary based on predictive probabilities, i.e.:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' Efficacy boundary: find minimum x (xU) where</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">613<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">      decision &lt;- ifelse(qU &lt; tU, decision, TRUE)</pre>
+                      <pre class="language-r">#' Pr(Pr(P &gt; p | x, Y) &gt;= tT | x) &gt; phiU,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' Futility boundary: find maximum x (xL) where</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">617<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">    nActive &lt;- length(xActive)</pre>
+                      <pre class="language-r">#' Pr(Pr(P &gt; p | x, Y) &gt;= tT | x) &lt; phiL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">617<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">    nControl &lt;- length(xControl)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">617<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">    all_sizes &lt;- size_look</pre>
+                      <pre class="language-r">#' @param nvec  a vector of number of patients</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">617<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">    index_look &lt;- index_look + 1</pre>
+                      <pre class="language-r">#' @param Nmax  maximum number of patients at the end of the trial</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">617<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">    size_look &lt;- nnr[index_look]</pre>
+                      <pre class="language-r">#' (default: maximum of \code{nvec})</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</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 p  threshold on the response rate</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">252<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">  list(</pre>
+                      <pre class="language-r">#' @param tT  threshold on the posterior probability to be above p</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">252<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">    decision = decision,</pre>
+                      <pre class="language-r">#' @param phiL  futility boundary predictive probability threshold</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">252<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">    all_sizes = all_sizes,</pre>
+                      <pre class="language-r">#' @param phiU  efficacy boundary predictive probability threshold</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">252<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">    nActive = nActive,</pre>
+                      <pre class="language-r">#' @param a  the alpha parameter of a beta prior of treatment group</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">252<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">    nControl = nControl</pre>
+                      <pre class="language-r">#' @param b  the beta parameter of a beta prior of treatment group</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @return A matrix where for each sample size in \code{nvec}, this function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' returns the maximum number of responses that meet the futility</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' threshold (xL), its corresponding response rate (pL), predictive probability</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Creating list for operating characteristics</pre>
+                      <pre class="language-r">#' (ppL) and posterior probability (postL), the upper bound of one</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' sided 95% CI for the response rate based on an</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Generates operating characteristics for [ocRctPostprobDist()].</pre>
+                      <pre class="language-r">#' exact binomial test (UciL), and the same boundary parameters for efficacy:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' the minimal number of responses that meet the efficacy threshold (xU),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_decisionDist_rct</pre>
+                      <pre class="language-r">#' the corresponding response rate (pU), predictive probability</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' (ppL) and posterior probability (postU), the lower bound of one sided</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list of results containing :</pre>
+                      <pre class="language-r">#' 95% CI for the response rate based on exact binomial test (LciU).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `ExpectedN`: expected number of patients in the trials in both treatment and SOC group</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrStopEarly`: probability to stop the trial early (before reaching the</pre>
+                      <pre class="language-r">#' @importFrom stats binom.test</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' maximum sample size)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrEarlyEff`: probability of Early Go decision</pre>
+                      <pre class="language-r">#' @example examples/boundsPredprob.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrEarlyFut`: probability of for Early Stop decision</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrEfficacy`: probability of Go decision</pre>
+                      <pre class="language-r">#' @keywords graphics</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrFutility`: probability of Stop decision</pre>
+                      <pre class="language-r">boundsPredprob &lt;- function(nvec, Nmax = max(nvec), p, tT, phiL, phiU, a, b) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">36</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrGrayZone`: probability between Go and Stop ,"Evaluate" or Gray decision zone</pre>
+                      <pre class="language-r">  znames &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">37</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `ExpectedNactive` : the mean of the number of patients in treatment arm</pre>
+                      <pre class="language-r">    "xL", "pL", "ppL", "postL", "UciL",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">38</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `ExpectedNcontrol`: the mean of the number of patients in control arm</pre>
+                      <pre class="language-r">    "xU", "pU", "ppU", "postU", "LciU"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</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">127</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">40</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  z &lt;- matrix(NA, length(nvec), length(znames))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">41</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  dimnames(z) &lt;- list(nvec, znames)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">129</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">42</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_get_oc_rct &lt;- function(all_sizes, Nmax, nActive, nControl, decision) {</pre>
+                      <pre class="language-r">  k &lt;- 0</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">43</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nActive, any.missing = FALSE, len = length(all_sizes))</pre>
+                      <pre class="language-r">  for (n in nvec) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">44</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nControl, any.missing = FALSE, len = length(all_sizes))</pre>
+                      <pre class="language-r">    k &lt;- k + 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">11<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">  assert_true(all(nActive + nControl == all_sizes))</pre>
+                      <pre class="language-r">    # initialize so will return NA if 0 or n in "continue" region</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">46</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_true(Nmax &gt;= max(all_sizes))</pre>
+                      <pre class="language-r">    xL &lt;- NA</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">47</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    xU &lt;- NA</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">48</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tmp &lt;- h_get_oc(</pre>
+                      <pre class="language-r">    for (x in 0:n) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">49</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_sizes = all_sizes,</pre>
+                      <pre class="language-r">      pp &lt;- predprob(x, n, Nmax, p, tT, parE = c(a, b))$result</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">50</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Nmax = Nmax,</pre>
+                      <pre class="language-r">      if (pp &lt;= phiL) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">51</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    decision = decision</pre>
+                      <pre class="language-r">        xL &lt;- x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">11<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  tmp$ExpectedNactive &lt;- mean(nActive)</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">53</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tmp$ExpectedNcontrol &lt;- mean(nControl)</pre>
+                      <pre class="language-r">      if (pp &gt;= phiU) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">54</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tmp</pre>
+                      <pre class="language-r">        xU &lt;- x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        # done: leave innermost for loop</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">144</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">56</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        break</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Calculate operating characteristics for RCT against SOC,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' using the posterior probability method with beta priors</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # reset xU to NA if phiU=1 and n&lt;Nmax</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">148</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">60</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' We emulate a randomized-controlled trial setting where at any given sample size,</pre>
+                      <pre class="language-r">    if (n &lt; Nmax &amp;&amp; phiU == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">61</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' there exists the number of patients enrolled in either standard of care (SOC) or control arm, and</pre>
+                      <pre class="language-r">      xU &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a treatment or experimental arm. The allocation of patients will depend on the</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' randomization ratio set by the user and is rounded to the next higher integer.</pre>
+                      <pre class="language-r">    # calculate predictive and posterior probabilities at boundaries</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">64</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Therefore the sequence of patients is determined from the start, such that the number of</pre>
+                      <pre class="language-r">    ppL &lt;- predprob(xL, n, Nmax, p, tT, parE = c(a, b))$result</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">153</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">65</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' patients in both arms is constant across trial simulations, however the number of patients</pre>
+                      <pre class="language-r">    ppU &lt;- predprob(xU, n, Nmax, p, tT, parE = c(a, b))$result</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">154</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">66</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' within the control and treatment arm is determined by the randomisation ratio.</pre>
+                      <pre class="language-r">    postL &lt;- postprob(xL, n, p, parE = c(a, b))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">155</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">67</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Interim looks are for sample sizes below that of the final sample size.</pre>
+                      <pre class="language-r">    postU &lt;- postprob(xU, n, p, parE = c(a, b))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # calculate lower CI at boundaries</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">157</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">69</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Final looks are only performed at the maximum sample size.</pre>
+                      <pre class="language-r">    UciL &lt;- ifelse(!is.na(xL), stats::binom.test(xL, n, alt = "less")$conf.int[2], NA)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">158</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">70</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    LciU &lt;- ifelse(!is.na(xU), stats::binom.test(xU, n, alt = "greater")$conf.int[1], NA)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">159</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">71</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' At each interim or final look, a futility or efficacy or both can be performed.</pre>
+                      <pre class="language-r">    z[k, ] &lt;- c(xL, xL / n, ppL, postL, UciL, xU, xU / n, ppU, postU, LciU)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">161</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">73</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The rules for Stop, Go and Gray Zone (where applicable), and use of beta priors are the same</pre>
+                      <pre class="language-r">  return(round(data.frame(nvec, z), 4))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' as in [ocPostprobDist()] where the only difference here is to emulate a</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/plotBounds.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' randomized-controlled trial setting.</pre>
+                      <pre class="language-r">#' Plot the boundary decision cutpoints</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The returned value is a list with the following elements:</pre>
+                      <pre class="language-r">#' This function will plot the response rate on the futility and efficacy</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `oc`: matrix with operating characteristics with the following details:</pre>
+                      <pre class="language-r">#' boundaries, and is used together with \code{\link{boundsPredprob}}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `ExpectedN`: expected number of patients in the trials in both treatment and SOC group</pre>
+                      <pre class="language-r">#' and \code{\link{boundsPostprob}}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `ExpectedNactive` : the mean of the number of patients in treatment arm</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `ExpectedNcontrol`: the mean of the number of patients in control arm</pre>
+                      <pre class="language-r">#' @param z an output of \code{\link{boundsPredprob}} and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrStopEarly`: probability to stop the trial early (before reaching the maximum sample size)</pre>
+                      <pre class="language-r">#' \code{\link{boundsPostprob}}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrEarlyEff`: probability of Early Go decision</pre>
+                      <pre class="language-r">#' @param area color the futility/efficacy stop area</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrEarlyFut`: probability of Early Stop decision</pre>
+                      <pre class="language-r">#' @param grid show the grid of y-axis or not</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrEfficacy`: probability of Go decision</pre>
+                      <pre class="language-r">#' @param yt  indicate the y axis: response rate is "p", number of responses</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrFutility`: probability of Stop decision</pre>
+                      <pre class="language-r">#' is "x"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrGrayZone`: probability of Evaluate or "Gray Zone" decision (between Go and Stop)</pre>
+                      <pre class="language-r">#' @param add  add the boundary lines or not</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `Decision` : numeric of results with `TRUE` as Go, `FALSE` as Stop and `NA` as Evaluate decision.</pre>
+                      <pre class="language-r">#' @param cols specific the color of `[1]` efficacy area `[2]` futility area</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `SampleSize` : numeric of sample sizes from `nnE` or `nnF` or both.</pre>
+                      <pre class="language-r">#' `[3]` efficacy boundary `[4]` futility boundary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `wiggled_nnE` : user input for `nnE` with random distance applied.</pre>
+                      <pre class="language-r">#' @param lwds line width (a two dimensional vector)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `wiggled_nnF` : user input for `nnF` with random distance applied.</pre>
+                      <pre class="language-r">#' @param ltype line type</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `wiggled_dist` : magnitude of random distance applied in order of input looks.</pre>
+                      <pre class="language-r">#' @param lpch  a value of plotting characters or symbols</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `params` : all user input arguments.</pre>
+                      <pre class="language-r">#' @param lcex a value giving the amount by which plotting characters and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' symbols should be scaled relative to the default.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_decisionDist</pre>
+                      <pre class="language-r">#' @param gy a value to adjust the gray level of the plot (default 20),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_decisionDist_rct</pre>
+                      <pre class="language-r">#' applies when \code{grid==TRUE}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams ocPostprobDist</pre>
+                      <pre class="language-r">#' @return nothing, only produces the plot as side effect</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed pE : number</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Response rate in Treatment group.</pre>
+                      <pre class="language-r">#' @importFrom graphics lines abline polygon plot</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed pS : number</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Response rate in Control group.</pre>
+                      <pre class="language-r">#' @example examples/plotBounds.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/ocRctPostprobDist.R</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @keywords graphics</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ocRctPostprobDist &lt;- function(nnE,</pre>
+                      <pre class="language-r">plotBounds &lt;- function(z, area = TRUE, grid = TRUE, yt = "x", add = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              pE,</pre>
+                      <pre class="language-r">                       cols = c("green", "red", "darkgreen", "orange"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              pS,</pre>
+                      <pre class="language-r">                       lwds = c(3, 3), ltype = "l", lpch = 16, lcex = 1, gy = 20) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">33</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              deltaE,</pre>
+                      <pre class="language-r">  n &lt;- nrow(z)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">34</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              deltaF,</pre>
+                      <pre class="language-r">  nmin &lt;- min(z$nvec)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">35</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              relativeDelta = FALSE,</pre>
+                      <pre class="language-r">  nmax &lt;- max(z$nvec)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">198</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">36</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              tL,</pre>
+                      <pre class="language-r">  if (yt == "x") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">199</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">37</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              tU,</pre>
+                      <pre class="language-r">    z1 &lt;- z$xL</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">200</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">38</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              parE = c(a = 1, b = 1),</pre>
+                      <pre class="language-r">    z2 &lt;- z$xU</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">201</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">39</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              parS = c(a = 1, b = 1),</pre>
+                      <pre class="language-r">    yU &lt;- nmax</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">202</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">40</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              randRatio = 1,</pre>
+                      <pre class="language-r">    yU2 &lt;- nmin</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">203</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">41</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              sim,</pre>
+                      <pre class="language-r">    ylabel &lt;- "Number of Responses"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">204</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">42</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              wiggle = FALSE,</pre>
+                      <pre class="language-r">    gridy &lt;- seq(0, yU, by = floor(yU / gy))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">205</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">43</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              nnF = nnE) {</pre>
+                      <pre class="language-r">  } else if (yt == "p") {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">44</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnE, min.len = 1, lower = 1, upper = max(nnE), any.missing = FALSE)</pre>
+                      <pre class="language-r">    z1 &lt;- z$pL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">45</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(pE, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">    z2 &lt;- z$pU</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">46</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(pS, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">    yU &lt;- 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">47</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(deltaE, upper = 1, finite = TRUE)</pre>
+                      <pre class="language-r">    yU2 &lt;- 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">48</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(deltaF, upper = 1, finite = TRUE)</pre>
+                      <pre class="language-r">    ylabel &lt;- "Response Rate"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">49</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_flag(relativeDelta)</pre>
+                      <pre class="language-r">    gridy &lt;- seq(0, yU, by = yU / gy)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(tL, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">51</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(tU, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">    stop("yt can only be x or p")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(parE, lower = 0, finite = TRUE, any.missing = FALSE)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">53</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(parS, lower = 0, finite = TRUE, any.missing = FALSE)</pre>
+                      <pre class="language-r">  if (add) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">54</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(sim, lower = 1, finite = TRUE)</pre>
+                      <pre class="language-r">    graphics::lines(z$nvec, z2,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">55</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_flag(wiggle)</pre>
+                      <pre class="language-r">      lwd = lwds[1], col = cols[3], type = ltype,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">56</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnF, min.len = 0, any.missing = FALSE)</pre>
+                      <pre class="language-r">      pch = lpch, cex = lcex</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">58</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (sim &lt; 50000) {</pre>
+                      <pre class="language-r">    graphics::lines(z$nvec, z1,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">59</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning("Advise to use sim &gt;= 50000 to achieve convergence")</pre>
+                      <pre class="language-r">      lwd = lwds[2], col = cols[4], type = ltype,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">222</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">60</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      pch = lpch, cex = lcex</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  decision &lt;- all_sizes &lt;- nActive &lt;- nControl &lt;- vector(length = sim)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">62</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nnE &lt;- sort(nnE)</pre>
+                      <pre class="language-r">    return(invisible())</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">63</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nnF &lt;- sort(nnF)</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="missed">
+                    <td class="num">64</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nn &lt;- sort(unique(c(nnF, nnE)))</pre>
+                      <pre class="language-r">  graphics::plot(z$nvec, rep(0, n),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">65</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nL &lt;- length(nn)</pre>
+                      <pre class="language-r">    xlim = c(0, max(z$nvec)), ylim = c(0, yU), type = "n",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">66</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nn &lt;- sort(unique(c(nnF, nnE)))</pre>
+                      <pre class="language-r">    xlab = "n", ylab = ylabel</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  nL &lt;- length(nn)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">68</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Nstart &lt;- nn[1]</pre>
+                      <pre class="language-r">  if (grid) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">69</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Nmax &lt;- nn[nL]</pre>
+                      <pre class="language-r">    graphics::abline(h = gridy, col = "gray")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  for (k in seq_len(sim)) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">71</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(nn) != 1 &amp;&amp; wiggle) {</pre>
+                      <pre class="language-r">  if (area) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">236</td>
+                    <td class="num">72</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dist &lt;- h_get_distance(nn = nn)</pre>
+                      <pre class="language-r">    graphics::polygon(c(z$nvec, nmax, nmin), c(z2, yU, yU2),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">237</td>
+                    <td class="num">73</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnr &lt;- h_get_looks(dist = dist, nnE = nnE, nnF = nnF)</pre>
+                      <pre class="language-r">      lwd = lwds[1],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">238</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      nnrE &lt;- nnr$nnrE</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">239</td>
+                    <td class="num">74</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnrF &lt;- nnr$nnrF</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">240</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      dist &lt;- 0</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      nnrE &lt;- nnE</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      nnrF &lt;- nnF</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">245</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    nnr &lt;- unique(c(nnrE, nnrF))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    tmp &lt;- h_get_decisionDist_rct(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      nnr = nnr,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      nnrE = nnrE,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      nnrF = nnrF,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      pE = pE,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      pS = pS,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      parE = c(1, 1),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      parS = c(1, 1),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      tL = tL,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      tU = tU,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      deltaE = deltaE,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      deltaF = deltaF,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      relativeDelta = relativeDelta,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      Nmax = Nmax</pre>
+                      <pre class="language-r">      col = cols[1], border = cols[1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">250<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    decision[k] &lt;- tmp$decision</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">250<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">    all_sizes[k] &lt;- tmp$all_sizes</pre>
+                      <pre class="language-r">    graphics::polygon(c(z$nvec, nmax, nmin), c(z1, 0, 0),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">77</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nActive[k] &lt;- tmp$nActive</pre>
+                      <pre class="language-r">      lwd = lwds[2],</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">250<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">    nControl[k] &lt;- tmp$nControl</pre>
+                      <pre class="language-r">      col = cols[2], border = cols[2]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  oc &lt;- h_get_oc_rct(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    all_sizes = all_sizes,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    Nmax = Nmax,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    nActive = nActive,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    nControl = nControl,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    decision = decision</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    oc = oc,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ExpectedN = mean(all_sizes),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ExpectedNactive = mean(nActive),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ExpectedNcontrol = mean(nControl),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    Decision = decision,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">279</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">81</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    SampleSize = all_sizes,</pre>
+                      <pre class="language-r">    graphics::lines(z$nvec, z2,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">82</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    SampleSizeActive = nActive,</pre>
+                      <pre class="language-r">      lwd = lwds[1], col = cols[1], type = ltype,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">83</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    SampleSizeControl = nControl,</pre>
+                      <pre class="language-r">      pch = lpch, cex = lcex</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">282</td>
-                    <td class="coverage">5<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">    union_nn = nnr,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">85</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    wiggled_nnE = nnrE,</pre>
+                      <pre class="language-r">    graphics::lines(z$nvec, z1,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">284</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">86</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    wiggled_nnF = nnrF,</pre>
+                      <pre class="language-r">      lwd = lwds[2], col = cols[2], type = ltype,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">87</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    wiggle_dist = dist,</pre>
+                      <pre class="language-r">      pch = lpch, cex = lcex</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">286</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">88</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    params = as.list(match.call(expand.dots = FALSE))</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</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="missed">
+                    <td class="num">90</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  return(invisible())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -20863,4594 +20394,5026 @@ <h2>phase1b coverage - 64.86%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/ocPostprobDist.R" class="hidden">
+            <div id="R/betadiff.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">#' @include postprobDist.R</pre>
+                      <pre class="language-r">#' The Difference between Two Beta Distributions</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Evaluate Posteriors based on Efficacy and Futility Thresholds in Two-Armed trials</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' The Probability Density Function of the difference of two Beta Distributions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A helper function adapted from [h_get_decision()] by</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' replacing the internal use of [postprob()] with [postprobDist()]</pre>
+                      <pre class="language-r">#' Density, distribution function and quantile function for</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' to generate the `decision` and random looks `all_sizes`.</pre>
+                      <pre class="language-r">#' the distribution of the difference of two Beta distributions with parameters `parX` and `parY`.</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">#' We denote `X` and `Y` as two random variables representing the response rate of Control and Treatment</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_decision</pre>
+                      <pre class="language-r">#' group respectively. The assignment of Control and Treatment is practically interchangeable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams postprobDist</pre>
+                      <pre class="language-r">#' We denote `Z` as the difference between two groups such that `Z = Y-X`.</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 h_get_oc</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">#' @typed deltaE : number</pre>
+                      <pre class="language-r">#' @typed z : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' margin by which the response rate in the treatment group should</pre>
+                      <pre class="language-r">#'  vector of differences between Control and Treatment arms such that `Z = Y-X`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' be better than in the standard of care or control or `S` group in Efficacy looks only.</pre>
+                      <pre class="language-r">#' @typed parX : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Note that this can also be negative as well.</pre>
+                      <pre class="language-r">#'  two parameters of `X`'s Beta distribution (Control)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed deltaF : number</pre>
+                      <pre class="language-r">#' @typed parY : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' margin by which the response rate in the treatment group should</pre>
+                      <pre class="language-r">#'  two parameters of `Y`'s Beta distribution (Treatment)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' be better than in the standard of care or control or `S` group in Futility looks only.</pre>
+                      <pre class="language-r">#' @typed eps : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Note that this can also be negative as well.</pre>
+                      <pre class="language-r">#'  lowest floating point number as lower bound of integration</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">#' @typed rel.tol : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'  used in [stats::integrate()]</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">#' @return The density values</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_get_decisionDist &lt;- function(nnr,</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">                               nnrE,</pre>
+                      <pre class="language-r">#' @note `X` and `Y` can be either Control or Treatment and `Z = X-Y`, subject to assumptions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               nnrF,</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">                               truep,</pre>
+                      <pre class="language-r">#' @importFrom stats dbeta integrate</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @rdname dbetadiff</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @example examples/dbetadiff.R</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @export</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">dbetadiff &lt;- function(z, parY, parX, eps = .Machine$double.eps, rel.tol = .Machine$double.eps^0.1) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">32</td>
+                    <td class="coverage">114<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_numeric(z, min.len = 1, finite = TRUE, any.missing = TRUE, null.ok = FALSE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">33</td>
+                    <td class="coverage">114<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ret &lt;- z</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">34</td>
+                    <td class="coverage">114<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  is_z_pos &lt;- z &gt;= 0</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">35</td>
+                    <td class="coverage">114<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  is_z_neg &lt;- z &lt; 0</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">37</td>
+                    <td class="coverage">114<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_numeric(parY, len = 2, lower = .Machine$double.xmin, any.missing = FALSE, finite = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">38</td>
+                    <td class="coverage">114<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_numeric(parX, len = 2, lower = .Machine$double.xmin, any.missing = FALSE, finite = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">39</td>
+                    <td class="coverage">114<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_number(eps, finite = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">41</td>
+                    <td class="coverage">114<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  integrandPos &lt;- function(x, zval) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">42</td>
+                    <td class="coverage">1361<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    exp(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">43</td>
+                    <td class="coverage">1361<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      stats::dbeta(x = x, parX[1], parX[2], log = TRUE) +</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        # x + zval = y, if z = y - x</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">45</td>
+                    <td class="coverage">1361<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        stats::dbeta(x = x + zval, parY[1], parY[2], log = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">48</td>
+                    <td class="coverage">114<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  integrandNeg &lt;- function(y, zval) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">5236<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               parE = c(1, 1),</pre>
+                      <pre class="language-r">    exp(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">50</td>
+                    <td class="coverage">5236<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               parS = c(1, 1),</pre>
+                      <pre class="language-r">      stats::dbeta(x = y, parY[1], parY[2], log = TRUE) +</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               tL,</pre>
+                      <pre class="language-r">        # y - zval = x, if  z = y - x</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">5236<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               tU,</pre>
+                      <pre class="language-r">        stats::dbeta(x = y - zval, parX[1], parX[2], log = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               deltaE,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               deltaF,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               relativeDelta) {</pre>
+                      <pre class="language-r">  for (i in seq_along(z)[is_z_pos]) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">303<em>x</em></td>
+                    <td class="num">56</td>
+                    <td class="coverage">632<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnr, finite = TRUE, any.missing = FALSE)</pre>
+                      <pre class="language-r">    ret[i] &lt;- stats::integrate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">303<em>x</em></td>
+                    <td class="num">57</td>
+                    <td class="coverage">632<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnrE, max.len = length(nnr), any.missing = FALSE)</pre>
+                      <pre class="language-r">      f = integrandPos,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">303<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">  assert_numeric(nnrF, max.len = length(nnr), any.missing = FALSE)</pre>
+                      <pre class="language-r">      # We transform the bounds to follow the support of integrandPos here.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">303<em>x</em></td>
+                    <td class="num">59</td>
+                    <td class="coverage">632<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(truep, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">      lower = eps,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">303<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(parE, lower = 0, finite = TRUE, any.missing = FALSE)</pre>
+                      <pre class="language-r">      # The upper bounds here are between 0 and 1.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">303<em>x</em></td>
+                    <td class="num">61</td>
+                    <td class="coverage">632<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(parS, lower = 0, finite = TRUE, any.missing = FALSE)</pre>
+                      <pre class="language-r">      upper = 1 - z[i],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">303<em>x</em></td>
+                    <td class="num">62</td>
+                    <td class="coverage">632<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(tL, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">      zval = z[i],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">303<em>x</em></td>
+                    <td class="num">63</td>
+                    <td class="coverage">632<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(tU, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">      subdivisions = 1000L,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">303<em>x</em></td>
+                    <td class="num">64</td>
+                    <td class="coverage">632<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(deltaE, finite = TRUE)</pre>
+                      <pre class="language-r">      rel.tol = rel.tol</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">303<em>x</em></td>
+                    <td class="num">65</td>
+                    <td class="coverage">632<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(deltaF, finite = TRUE)</pre>
+                      <pre class="language-r">    )$value</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">303<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">  assert_flag(relativeDelta)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">303<em>x</em></td>
+                    <td class="num">68</td>
+                    <td class="coverage">113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  index_look &lt;- 1</pre>
+                      <pre class="language-r">  for (i in seq_along(z)[is_z_neg]) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">303<em>x</em></td>
+                    <td class="num">69</td>
+                    <td class="coverage">1742<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  size_look &lt;- nnr[index_look]</pre>
+                      <pre class="language-r">    ret[i] &lt;- stats::integrate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">303<em>x</em></td>
+                    <td class="num">70</td>
+                    <td class="coverage">1742<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  all_sizes &lt;- decision &lt;- NA</pre>
+                      <pre class="language-r">      f = integrandNeg,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      # We transform the bounds to follow the support of integrandNeg.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">303<em>x</em></td>
+                    <td class="num">72</td>
+                    <td class="coverage">1742<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  response &lt;- stats::rbinom(max(nnr), size = 1, truep)</pre>
+                      <pre class="language-r">      lower = eps,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      # The upper bounds here are between 0 and 1.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">303<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">1742<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  while (is.na(decision) &amp;&amp; index_look &lt;= length(nnr)) {</pre>
+                      <pre class="language-r">      upper = 1 + z[i],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">538<em>x</em></td>
+                    <td class="num">75</td>
+                    <td class="coverage">1742<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnrF) {</pre>
+                      <pre class="language-r">      zval = z[i],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">296<em>x</em></td>
+                    <td class="num">76</td>
+                    <td class="coverage">1742<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qL &lt;- postprobDist(</pre>
+                      <pre class="language-r">      subdivisions = 1000L,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">296<em>x</em></td>
+                    <td class="num">77</td>
+                    <td class="coverage">1742<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = 0,</pre>
+                      <pre class="language-r">      rel.tol = rel.tol</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">296<em>x</em></td>
+                    <td class="num">78</td>
+                    <td class="coverage">1742<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = 0,</pre>
+                      <pre class="language-r">    )$value</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">296<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xS = sum(response[1:size_look]),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">296<em>x</em></td>
+                    <td class="num">80</td>
+                    <td class="coverage">113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nS = size_look,</pre>
+                      <pre class="language-r">  ret</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">296<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        delta = deltaF,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">296<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">296<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">        parE = parS,</pre>
+                      <pre class="language-r">#' Beta difference Cumulative Probability Function</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">296<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">        parS = parE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">296<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(qL &gt;= tL, FALSE, NA)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' Calculates the Cumulative Probability Function of the Beta difference for a given probability.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">538<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">88</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">89</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (size_look %in% nnrE) {</pre>
+                      <pre class="language-r">#' @inheritParams dbetadiff</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">491<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">      qU &lt;- postprobDist(</pre>
+                      <pre class="language-r">#' @typed q : number</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">491<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">        x = sum(response[1:size_look]),</pre>
+                      <pre class="language-r">#'  vector of quantiles</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">491<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = size_look,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">491<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xS = 0,</pre>
+                      <pre class="language-r">#' @return The probability distribution value</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">491<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">        nS = 0,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">491<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">95</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        delta = deltaE,</pre>
+                      <pre class="language-r">#' @importFrom stats integrate</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">491<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">        relativeDelta = relativeDelta,</pre>
+                      <pre class="language-r">#' @rdname pbetadiff</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">491<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parE = parE,</pre>
+                      <pre class="language-r">#' @example examples/pbetadiff.R</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">491<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parS = parS</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">pbetadiff &lt;- function(q, parY, parX, rel.tol = .Machine$double.eps^0.1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">491<em>x</em></td>
+                    <td class="num">100</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      decision &lt;- ifelse(qU &lt; tU, decision, TRUE)</pre>
+                      <pre class="language-r">  stats::integrate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    f = dbetadiff,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">538<em>x</em></td>
+                    <td class="num">102</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_sizes &lt;- size_look</pre>
+                      <pre class="language-r">    parY = parY,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">538<em>x</em></td>
+                    <td class="num">103</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    index_look &lt;- index_look + 1</pre>
+                      <pre class="language-r">    parX = parX,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">538<em>x</em></td>
+                    <td class="num">104</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
+                      <pre class="language-r">    lower = -1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">105</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    upper = q,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">303<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">    subdivisions = 1000L,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">303<em>x</em></td>
+                    <td class="num">107</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    decision = decision,</pre>
+                      <pre class="language-r">    rel.tol = rel.tol</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">303<em>x</em></td>
+                    <td class="num">108</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_sizes = all_sizes</pre>
+                      <pre class="language-r">  )$value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</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">87</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">88</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Beta difference Quantile Function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Calculate Operating characteristics of Posterior Probability method</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' with Beta Prior on the Control or Standard of Care Arm</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">#' Calculates the quantile of the Beta difference for a given probability.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The trial is stopped for Efficacy if the posterior probability of assumed</pre>
+                      <pre class="language-r">#' @inheritParams dbetadiff</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' true response rate or `truep` is better than the control arm by at least</pre>
+                      <pre class="language-r">#' @typed p : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `deltaE`, is larger than `tU`. Analogously, The trial is stopped for Efficacy</pre>
+                      <pre class="language-r">#'  vector of probabilities</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if the posterior probability of assumed true response rate or `truep` is</pre>
+                      <pre class="language-r">#' @return The quantile values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' better than the control arm by at least `deltaF`, is larger than `tL`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' for Futility looks. If these criteria are not met, the trial is continued</pre>
+                      <pre class="language-r">#' @importFrom stats uniroot</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and at the maximum sample size, it may reach no decision or "gray zone".The</pre>
+                      <pre class="language-r">#' @rdname qbetadiff</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' following represents the stopping criteria for Efficacy and Futility</pre>
+                      <pre class="language-r">#' @example examples/qbetadiff.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' respectively.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">qbetadiff &lt;- function(p, parY, parX, eps = .Machine$double.eps) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Stop criteria for Efficacy :</pre>
+                      <pre class="language-r">  target &lt;- function(q) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">128</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    pbetadiff(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      q = q,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      parY = parY,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      parX = parX</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ) - p</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `Pr(truep &gt; P_S + deltaE) &gt; tU`</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  eps &lt;- 1e-10</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Stop criteria for Futility :</pre>
+                      <pre class="language-r">  stats::uniroot(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    f = target,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `Pr(truep &lt; P_S + deltaF) &gt; tL`</pre>
+                      <pre class="language-r">    interval = c(-1 + eps, 1 - eps)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )$root</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Where `truep` is the assumed true rate of response and `p1` and `p0` respectively are</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/predprobDist.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the thresholds for Efficacy and Futility respectively.</pre>
+                      <pre class="language-r">#' The predictive probability of success in single arm studies.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Resulting operating characteristics include the following:</pre>
+                      <pre class="language-r">#' The helper function to generate the predictive probability of success based only on treatment group (`E`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' as there is no control or standard of care (`S`), indicated by `NmaxControl == 0`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `ExpectedN`: expected number of patients in the trials</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrStopEarly`: probability to stop the trial early (before reaching the</pre>
+                      <pre class="language-r">#' @typed x : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' maximum sample size)</pre>
+                      <pre class="language-r">#'  number of successes in the `E` group at interim.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrEarlyEff`: probability of Early Go decision</pre>
+                      <pre class="language-r">#' @typed mE : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrEarlyFut`: probability of for Early Stop decision</pre>
+                      <pre class="language-r">#'  number of successes in the remaining `Nmax-n` number of patients in the treatment `E` group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrEfficacy`: probability of Go decision</pre>
+                      <pre class="language-r">#' @typed Nmax : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrFutility`: probability of Stop decision</pre>
+                      <pre class="language-r">#'   maximum number of patients in the `E` group at final analysis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `PrGrayZone`: probability between Go and Stop ,"Evaluate" or Gray decision zone</pre>
+                      <pre class="language-r">#' @typed delta : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   difference between response rates to be met.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams ocPostprob</pre>
+                      <pre class="language-r">#' @typed relativeDelta : flag</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams postprobDist</pre>
+                      <pre class="language-r">#'  If `TRUE`, then a `relativeDelta` is used. Represents that a minimum</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_decisionDist</pre>
+                      <pre class="language-r">#'  response rate in magnitude of `delta` of the `S` non-responding patients. See [postprobDist()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_get_distance</pre>
+                      <pre class="language-r">#' @typed parE : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed deltaE : number</pre>
+                      <pre class="language-r">#'  parameters for beta distribution. If it is a matrix, it needs to have 2 columns,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  margin of which the response rate in the treatment group should be better</pre>
+                      <pre class="language-r">#'  and each row corresponds to each component of a beta-mixture distribution</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  than in the standard of care of `group`. Delta for Efficacy is used to</pre>
+                      <pre class="language-r">#'  for the `E` group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  calculate `P(truep &gt; P_S + deltaE)` which should</pre>
+                      <pre class="language-r">#' @typed parS : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  exceed threshold `tU` to to stop for Efficacy. `DeltaE` can also be negative in</pre>
+                      <pre class="language-r">#'  parameters for beta distribution. If it is a matrix, it needs to have 2 columns,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  non-inferiority setting. See also note.</pre>
+                      <pre class="language-r">#'  and each row corresponds to each component of a beta-mixture distribution for the `S` group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed deltaF : number</pre>
+                      <pre class="language-r">#' @typed weights : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  margin of which the response rate in the treatment group should be better</pre>
+                      <pre class="language-r">#'  the mixture weights of the beta mixture prior.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  than in the standard of care of `group`. Delta for Futility is used to</pre>
+                      <pre class="language-r">#' @typed weightsS : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  calculate  `P(truep &gt; P_S - deltaF)` which should</pre>
+                      <pre class="language-r">#'  weights for the `S` group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  exceed threshold `tL` to stop for Futility.`DeltaF` can also be negative in</pre>
+                      <pre class="language-r">#' @typed thetaT : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  non-inferiority setting. See also note.</pre>
+                      <pre class="language-r">#'  threshold on the probability to be used.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note</pre>
+                      <pre class="language-r">#' @return A `list` is returned with names `result` for predictive probability and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'  `table` of numeric values with counts of responses in the remaining patients,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Delta :</pre>
+                      <pre class="language-r">#'  probabilities of these counts, corresponding probabilities to be above threshold,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'  and trial success indicators.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The desired improvement is denoted as `deltaE` or `deltaF` and two options</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' exist in its use: The absolute case when `relativeDelta = FALSE` and</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' relative as when `relativeDelta = TRUE`.</pre>
+                      <pre class="language-r">h_predprobdist_single_arm &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                      mE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 1. The absolute case is when we define an absolute delta, greater than `P_S`,</pre>
+                      <pre class="language-r">                                      n,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the response rate of the standard of care or control or `S` group such that</pre>
+                      <pre class="language-r">                                      Nmax,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the posterior is `Pr(truep &gt; P_S + deltaE | data)` for Efficacy looks</pre>
+                      <pre class="language-r">                                      delta,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' or `Pr(truep &gt; P_S + deltaF | data)` for Futility looks.</pre>
+                      <pre class="language-r">                                      relativeDelta,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                      parE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 2. In the relative case, we suppose that the treatment group's</pre>
+                      <pre class="language-r">                                      parS,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' response rate is assumed to be greater than `P_S + (1-P_S) * delta` such that</pre>
+                      <pre class="language-r">                                      weights,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the posterior is `Pr(truep &gt; P_S + (1 - P_S) * deltaE | data)` for Efficacy looks</pre>
+                      <pre class="language-r">                                      weightsS,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' or `Pr(truep &gt; P_S + (1 - P_S) * deltaF | data)` for Futility looks.</pre>
+                      <pre class="language-r">                                      thetaT) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">160</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">48</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  assert_number(x, lower = 0, upper = Nmax)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">161</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/ocPostprobDist.R</pre>
+                      <pre class="language-r">  assert_number(mE, lower = 0)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">162</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">50</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  assert_number(x + mE, upper = Nmax)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">163</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">51</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ocPostprobDist &lt;- function(nnE,</pre>
+                      <pre class="language-r">  assert_number(thetaT, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">164</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           truep,</pre>
+                      <pre class="language-r">  posterior_y &lt;- postprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">53</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           deltaE,</pre>
+                      <pre class="language-r">    x = x + c(0:mE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">166</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">54</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           deltaF,</pre>
+                      <pre class="language-r">    n = Nmax,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">167</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           relativeDelta = FALSE,</pre>
+                      <pre class="language-r">    delta = delta,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">56</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           tL,</pre>
+                      <pre class="language-r">    relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           tU,</pre>
+                      <pre class="language-r">    parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           parE = c(a = 1, b = 1),</pre>
+                      <pre class="language-r">    weights = weights,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           parS = c(a = 1, b = 1),</pre>
+                      <pre class="language-r">    parS = parS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">172</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           wiggle = TRUE,</pre>
+                      <pre class="language-r">    weightsS = weightsS</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           sim = 50000,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           nnF = nnE) {</pre>
+                      <pre class="language-r">  activeBetamixPost &lt;- h_getBetamixPost(x = x, n = n, par = parE, weights = weights)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">63</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnE, min.len = 1, lower = 1, upper = max(nnE), any.missing = FALSE)</pre>
+                      <pre class="language-r">  density_y &lt;- with(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">64</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(truep, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">    activeBetamixPost,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">65</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(deltaE, upper = 1, finite = TRUE)</pre>
+                      <pre class="language-r">    dbetabinomMix(x = 0:mE, m = mE, par = par, weights = weights)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(deltaF, upper = 1, finite = TRUE)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">67</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_flag(relativeDelta)</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">68</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(tL, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">    result = sum(density_y * (posterior_y &gt; thetaT)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">69</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(tU, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">    table = data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">70</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(parE, lower = 0, finite = TRUE, any.missing = FALSE)</pre>
+                      <pre class="language-r">      counts = c(0:mE),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">71</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(parS, lower = 0, finite = TRUE, any.missing = FALSE)</pre>
+                      <pre class="language-r">      cumul_counts = x + (0:mE),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">72</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(sim, lower = 1, finite = TRUE)</pre>
+                      <pre class="language-r">      density = density_y,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">73</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_flag(wiggle)</pre>
+                      <pre class="language-r">      posterior = posterior_y,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(nnF, min.len = 0, any.missing = FALSE)</pre>
+                      <pre class="language-r">      success = (posterior_y &gt; thetaT)</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"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (sim &lt; 50000) {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning("Advise to use sim &gt;= 50000 to achieve convergence")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  decision &lt;- vector(length = sim)</pre>
+                      <pre class="language-r">#' The predictive probability of success in two-arm studies.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  all_sizes &lt;- vector(length = sim)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' The helper function to generate the predictive probability of success</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nnE &lt;- sort(nnE)</pre>
+                      <pre class="language-r">#' based on the difference in treatment group (`E`) and control or</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nnF &lt;- sort(nnF)</pre>
+                      <pre class="language-r">#' standard of care (`S`) group.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">5<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">  nn &lt;- sort(unique(c(nnF, nnE)))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">85</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nL &lt;- length(nn)</pre>
+                      <pre class="language-r">#' @inheritParams h_predprobdist_single_arm</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Nstart &lt;- nn[1]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">87</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Nmax &lt;- nn[nL]</pre>
+                      <pre class="language-r">#' @typed xS : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'  number of successes in the `S` group at interim.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # simulate a clinical trial sim times</pre>
+                      <pre class="language-r">#' @typed n : number</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">90</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (k in seq_len(sim)) {</pre>
+                      <pre class="language-r">#'  number of patients in the `E` group at interim.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">300<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(nn) != 1 &amp;&amp; wiggle) {</pre>
+                      <pre class="language-r">#' @typed nS : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # randomly generate look locations</pre>
+                      <pre class="language-r">#'  number of patients in the `E` group at interim.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dist &lt;- h_get_distance(nn = nn)</pre>
+                      <pre class="language-r">#' @typed NmaxControl : number</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">250<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">      nnr &lt;- h_get_looks(dist = dist, nnE = nnE, nnF = nnF) # we generate sim number of looks</pre>
+                      <pre class="language-r">#'   maximum number of patients in the `S` group at final analysis.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">250<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">95</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnrE &lt;- nnr$nnrE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">250<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">      nnrF &lt;- nnr$nnrF</pre>
+                      <pre class="language-r">#' @return A `list` is returned with names `result` for predictive probability and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#'  `table` of numeric values with counts of responses in the remaining patients, `density` for</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">50<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dist &lt;- NULL</pre>
+                      <pre class="language-r">#'  probabilities of these counts, `posterior` for corresponding probabilities to be above threshold,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">50<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnrE &lt;- nnE</pre>
+                      <pre class="language-r">#'  and `success`for trial success indicators.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">50<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnrF &lt;- nnF</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">300<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">    nnr &lt;- unique(c(nnrE, nnrF))</pre>
+                      <pre class="language-r">h_predprobdist &lt;- function(x,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">300<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">    tmp &lt;- h_get_decisionDist(</pre>
+                      <pre class="language-r">                           n,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">300<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnr = nnr,</pre>
+                      <pre class="language-r">                           xS,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">300<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">105</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnrE = nnrE,</pre>
+                      <pre class="language-r">                           nS,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">300<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">106</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnrF = nnrF,</pre>
+                      <pre class="language-r">                           Nmax,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">300<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">      truep = truep,</pre>
+                      <pre class="language-r">                           NmaxControl,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">300<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">      parE = c(1, 1),</pre>
+                      <pre class="language-r">                           delta,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">300<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">      tL = tL,</pre>
+                      <pre class="language-r">                           relativeDelta,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">300<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">      tU = tU,</pre>
+                      <pre class="language-r">                           parE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">300<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">      deltaE = deltaE,</pre>
+                      <pre class="language-r">                           parS,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">300<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      deltaF = deltaF,</pre>
+                      <pre class="language-r">                           weights,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">300<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">      relativeDelta = relativeDelta</pre>
+                      <pre class="language-r">                           weightsS,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                           thetaT) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">300<em>x</em></td>
+                    <td class="num">115</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    decision[k] &lt;- tmp$decision</pre>
+                      <pre class="language-r">  assert_number(x, lower = 0, upper = Nmax)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">300<em>x</em></td>
+                    <td class="num">116</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_sizes[k] &lt;- tmp$all_sizes</pre>
+                      <pre class="language-r">  assert_number(n, lower = 0, upper = Nmax)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">229</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">117</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  assert_number(xS, lower = 0, upper = NmaxControl)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">118</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  oc &lt;- h_get_oc(all_sizes = all_sizes, Nmax = Nmax, decision = decision)</pre>
+                      <pre class="language-r">  assert_number(nS, lower = 0, upper = NmaxControl)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">119</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">  assert_number(Nmax, lower = x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">120</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    oc = oc,</pre>
+                      <pre class="language-r">  assert_number(NmaxControl, lower = xS)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Decision = decision,</pre>
+                      <pre class="language-r">  assert_number(thetaT, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">122</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    SampleSize = all_sizes,</pre>
+                      <pre class="language-r">  mS &lt;- NmaxControl - nS</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">758<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  mE &lt;- Nmax - n</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    union_nn = nnr,</pre>
+                      <pre class="language-r">  assert_number(xS + mS, lower = 0, upper = NmaxControl)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">125</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    input_nnE = nnE,</pre>
+                      <pre class="language-r">  assert_number(x + mE, lower = 0, upper = Nmax)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">126</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    input_nnF = nnF,</pre>
+                      <pre class="language-r">  controlBetamixPost &lt;- h_getBetamixPost(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">127</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    wiggled_nnE = nnrE,</pre>
+                      <pre class="language-r">    x = xS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    wiggled_nnF = nnrF,</pre>
+                      <pre class="language-r">    n = nS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">129</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    wiggle_dist = dist,</pre>
+                      <pre class="language-r">    par = parS,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">130</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    params = as.list(match.call(expand.dots = FALSE))</pre>
+                      <pre class="language-r">    weights = weightsS</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">243</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  density_z &lt;- with(</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/sumbetadiff.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">133</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' Mode and Credible Interval Calculation for The Difference between Two Beta Distributions</pre>
+                      <pre class="language-r">    controlBetamixPost,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##'</pre>
+                      <pre class="language-r">    dbetabinomMix(x = 0:mS, m = mS, par = par, weights = weights)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' A function to summerize the characters of a betadiff distribution \code{\link{dbetadiff}}</pre>
+                      <pre class="language-r">  activeBetamixPost &lt;- h_getBetamixPost(x = x, n = n, par = parE, weights = weights)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##'</pre>
+                      <pre class="language-r">  density_y &lt;- with(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##'</pre>
+                      <pre class="language-r">    activeBetamixPost,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' @param parX two parameters of X's beta distribution (Control)</pre>
+                      <pre class="language-r">    dbetabinomMix(x = 0:mE, m = mE, par = par, weights = weights)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' @param parY two parameters of Y's beta distribution (Treatment)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' @param level credible interval</pre>
+                      <pre class="language-r">  # determine resulting posterior probabilities:</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' @param cutB  a cutoff value for the upper bound</pre>
+                      <pre class="language-r">  outcomesY &lt;- x + c(0:mE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' @param cutW  a cutoff value for the lower bound</pre>
+                      <pre class="language-r">  outcomesZ &lt;- xS + c(0:mS)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##'</pre>
+                      <pre class="language-r">  density_yz &lt;- posterior_yz &lt;- matrix(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' @return sumbetadiff gives the mode, credible interval of the distribution function,</pre>
+                      <pre class="language-r">    nrow = 1 + mE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' along with the probabilities of above cutB and below cutW.</pre>
+                      <pre class="language-r">    ncol = 1 + mS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##'</pre>
+                      <pre class="language-r">    dimnames =</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">148</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' @importFrom stats optimize integrate rbeta quantile</pre>
+                      <pre class="language-r">      list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##'</pre>
+                      <pre class="language-r">        0:mE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">150</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' @example examples/sumbetadiff.R</pre>
+                      <pre class="language-r">        0:mS</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">151</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">20</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">sumBetadiff &lt;- function(parY, parX,</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">153</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        level = 0.9, ## CI level</pre>
+                      <pre class="language-r">  for (i in seq_along(outcomesY)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">154</td>
+                    <td class="coverage">9244<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        cutB,</pre>
+                      <pre class="language-r">    for (j in seq_along(outcomesZ)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">142352<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        cutW) {</pre>
+                      <pre class="language-r">      posterior_yz[i, j] &lt;-</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">24</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">142352<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  res &lt;- try(</pre>
+                      <pre class="language-r">        postprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">142352<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    {</pre>
+                      <pre class="language-r">          x = outcomesY[i],</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">26</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">142352<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          n = Nmax,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">142352<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          xS = outcomesZ[j],</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">142352<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mode &lt;- stats::optimize(</pre>
+                      <pre class="language-r">          nS = NmaxControl,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">27</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">142352<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        f = dbetadiff,</pre>
+                      <pre class="language-r">          delta = delta,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">28</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">142352<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        interval = c(-0.999, 0.999),</pre>
+                      <pre class="language-r">          relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">29</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">142352<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parY = parY,</pre>
+                      <pre class="language-r">          parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">30</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">142352<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parX = parX,</pre>
+                      <pre class="language-r">          weights = weights,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">31</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">142352<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        maximum = TRUE</pre>
+                      <pre class="language-r">          parS = parS,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">32</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">142352<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )$maximum</pre>
+                      <pre class="language-r">          weightsS = weightsS</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">34</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">142352<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lower &lt;- qbetadiff(</pre>
+                      <pre class="language-r">      density_yz[i, j] &lt;- density_y[i] * density_z[j] # check each</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">35</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">169</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p = (1 - level) / 2,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">36</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">170</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parY = parY,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">37</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parX = parX</pre>
+                      <pre class="language-r">  ret &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    result = sum(density_yz * (posterior_yz &gt; thetaT)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    table = data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">40</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      upper &lt;- qbetadiff(</pre>
+                      <pre class="language-r">      counts = c(0:mE),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">41</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p = (1 + level) / 2,</pre>
+                      <pre class="language-r">      cumul_counts = x + (0:mE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">42</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">176</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parY = parY,</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">43</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parX = parX</pre>
+                      <pre class="language-r">    density = density_yz,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    posterior = posterior_yz,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    success = (posterior_yz &gt; thetaT)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ## for Go:</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">47</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      Out.go &lt;- stats::integrate(</pre>
+                      <pre class="language-r">  ret</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">48</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">182</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        f = dbetadiff,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">49</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">183</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parY = parY,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">50</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">184</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parX = parX,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">51</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">185</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lower = cutB,</pre>
+                      <pre class="language-r">#' Compute the predictive probability that the trial will be</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">52</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">186</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        upper = 1,</pre>
+                      <pre class="language-r">#' successful, with a prior distribution on the standard of care or `S`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">53</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">187</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        subdivisions = 1000L,</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">188</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        rel.tol = .Machine$double.eps^0.1</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">55</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">189</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )$value</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Compute the predictive probability of trial success given current data.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ## for Stop:</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">58</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">192</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      Out.nogo &lt;- stats::integrate(</pre>
+                      <pre class="language-r">#' Success means that at the end of the trial the posterior probability is:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">59</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">193</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        f = dbetadiff,</pre>
+                      <pre class="language-r">#' `Pr(P_E &gt; P_S + delta_0 | data) &gt;= thetaT`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">60</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">194</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parY = parY,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">61</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">195</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parX = parX,</pre>
+                      <pre class="language-r">#' Where `P_E` is the response rate of the treatment or `E`group and</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">62</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">196</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lower = -1,</pre>
+                      <pre class="language-r">#' `P_S` is the response rate of the standard of care of `S` group.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">63</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">197</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        upper = cutW,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">64</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">198</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        subdivisions = 1000L,</pre>
+                      <pre class="language-r">#' Then the predictive probability for success is:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">65</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">199</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        rel.tol = .Machine$double.eps^0.1</pre>
+                      <pre class="language-r">#' `pp = sum over i: Pr(Y = i | x , n)*I{Pr(P_E &gt; P_S + delta | x,Y=i) &gt;= thetaT}`,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">66</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">      )$value</pre>
+                      <pre class="language-r">#' where `Y` is the number of future responses in the treatment group and `x` is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' the current number of responses in the treatment group out of `n`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">68</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">202</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(</pre>
+                      <pre class="language-r">#' Please see note in [postprobDist()] for definition of `delta` and `relativeDelta`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">69</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        mode = mode,</pre>
+                      <pre class="language-r">#' Prior is `P_E ~ beta(a, b)` and uniform is a `beta(1,1)`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">70</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">204</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci = c(lower, upper),</pre>
+                      <pre class="language-r">#' However, a beta mixture prior can also be specified. Analogously</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">71</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">205</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        go = Out.go,</pre>
+                      <pre class="language-r">#' for `P_S` either a uniform beta prior or a beta mixture prior can be</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">72</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">206</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nogo = Out.nogo</pre>
+                      <pre class="language-r">#' specified.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' Also data on the `S` might be available. Then the predictive probability is</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">75</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">209</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    silent = TRUE</pre>
+                      <pre class="language-r">#' more generally defined as :</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' `pp = sum over i, j: Pr(Y = i | x, n)*Pr(Z = j | xS, nS )*I{Pr(P_E &gt; P_S + delta | x,xS, Y=i, Z=j ) &gt;= thetaT}`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' where `Z` is the future number of responses in the `S` group, and `xS` is the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## if there were any errors, fall back to Monte Carlo estimation</pre>
+                      <pre class="language-r">#' current number of responses in the `S` group.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">79</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">213</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(res, "try-error")) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">80</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">214</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    samples &lt;- stats::rbeta(n = 2e6, parY[1], parY[2]) -</pre>
+                      <pre class="language-r">#' In the case where `NmaxControl = 0`, a table with the following contents will be included in the return output :</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">81</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">215</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rbeta(n = 2e6, parX[1], parX[2])</pre>
+                      <pre class="language-r">#' - `counts`: `Y = i`, number of future successes in `Nmax-n` subjects in ascending order.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' - `cumul_counts`: `Y = i`, number of future successes in `Nmax-n` subjects.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">83</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">217</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lower &lt;- stats::quantile(samples, prob = (1 - level) / 2)</pre>
+                      <pre class="language-r">#' - `density`: `Pr(Y = i|x)` using beta-(mixture)-binomial distribution.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">84</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">218</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    upper &lt;- stats::quantile(samples, prob = (1 + level) / 2)</pre>
+                      <pre class="language-r">#' - `posterior`: `Pr(P_E &gt; P_S + delta | x, Y = i)` using beta posterior.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' - `success`: indicator `I( b &gt; thetaT )`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">86</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">220</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Out.go &lt;- mean(samples &gt; cutB)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">87</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">221</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Out.nogo &lt;- mean(samples &lt; cutW)</pre>
+                      <pre class="language-r">#' If `NmaxControl` is not zero, i.e., when data on the control treatment</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' is available in this trial, then a list with the following contents will be included in the return output :</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">89</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">223</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    samples &lt;- cut(samples, breaks = seq(from = -1, to = 1, length = 801))</pre>
+                      <pre class="language-r">#' - `counts`: `Y = i`, number of future successes in `Nmax-n` subjects in ascending order.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">90</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">224</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    samples &lt;- table(samples)</pre>
+                      <pre class="language-r">#' - `cumul_counts`: `Y = i`, number of future successes in `Nmax-n` subjects.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">91</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">225</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mode &lt;- seq(from = -1, to = 1, by = 0.0025)[which.max(samples)]</pre>
+                      <pre class="language-r">#' - `density`: `Pr(Y = i|x)` using beta-(mixture)-binomial distribution.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' - `posterior`: `Pr(P_E &gt; P_S + delta | x, Y = i)` using beta posterior.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">93</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">227</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    res &lt;- list(</pre>
+                      <pre class="language-r">#' - `success`: indicator `I( b &gt; thetaT )`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">94</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">228</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mode = mode,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">95</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">229</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci = c(lower, upper),</pre>
+                      <pre class="language-r">#' @inheritParams h_predprobdist</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">96</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">230</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      go = Out.go,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">97</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">231</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nogo = Out.nogo</pre>
+                      <pre class="language-r">#' @return A `list` is returned with names `result` for predictive probability including or separately a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'  `table` of numeric values with counts of responses in the remaining patients, `density` for</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'  probabilities of these counts, `posterior` for corresponding probabilities to be above threshold,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'  and `success`for trial success indicators.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">101</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">235</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(res)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @references Lee, J. J., &amp; Liu, D. D. (2008). A predictive probability</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/oc3.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Run simulations to obtain operating characteristics for methods that include</pre>
+                      <pre class="language-r">#' design for phase II cancer clinical trials. Clinical Trials, 5(2),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' historical data on control</pre>
+                      <pre class="language-r">#' 93-106. doi:10.1177/1740774508089279</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function differs from \code{\link{oc2}} with respect to how the</pre>
+                      <pre class="language-r">#' @example examples/predprobDist.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' historical and actual control rates are determined, see the parameter</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \code{controlRateDist}.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">predprobDist &lt;- function(x, n,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Interim looks are done three times total including the last one, with</pre>
+                      <pre class="language-r">                         xS = 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' approximately equal distance between the looks.</pre>
+                      <pre class="language-r">                         nS = 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                         Nmax,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param method 8 different methods can be selected:</pre>
+                      <pre class="language-r">                         NmaxControl = 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' PointMass.Bayes: single arm trial with pointmass derived from the historical</pre>
+                      <pre class="language-r">                         delta = 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data on the control response rate, see \code{\link{postprob}}</pre>
+                      <pre class="language-r">                         relativeDelta = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prior.Bayes: single arm trial with prior derived from the historical data on</pre>
+                      <pre class="language-r">                         parE = c(a = 1, b = 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the control response rate, see \code{\link{postprobDist}}</pre>
+                      <pre class="language-r">                         weights,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' RCT.Bayes: RCT (1:1 randomization) with prior derived from the historical data on</pre>
+                      <pre class="language-r">                         parS = c(a = 1, b = 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the control response rate, see \code{\link{postprobDist}}</pre>
+                      <pre class="language-r">                         weightsS,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' RCT.vanillaBayes: RCT, not using the historical control data</pre>
+                      <pre class="language-r">                         thetaT) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' PointMass.PP: single arm trial with pointmass derived from the historical</pre>
+                      <pre class="language-r">  # ensure reasonable numbers</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">256</td>
+                    <td class="coverage">756<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data on the control response rate, and using the predictive probability</pre>
+                      <pre class="language-r">  stopifnot(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">257</td>
+                    <td class="coverage">756<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' method, see \code{\link{predprob}}</pre>
+                      <pre class="language-r">    n &lt;= Nmax,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">258</td>
+                    <td class="coverage">756<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prior.PP: single arm trial with prior derived from the historical data on</pre>
+                      <pre class="language-r">    nS &lt;= NmaxControl,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">259</td>
+                    <td class="coverage">756<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    x &lt;= n,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">260</td>
+                    <td class="coverage">756<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    xS &lt;= nS</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the control response rate, and using the predictive probability</pre>
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">262</td>
+                    <td class="coverage">756<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  mE &lt;- Nmax - n # remaining active patients</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' method, see \code{\link{predprobDist}}</pre>
+                      <pre class="language-r">  # if par is a vector =&gt; situation where there is only one component</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">264</td>
+                    <td class="coverage">756<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (is.vector(parE)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">265</td>
+                    <td class="coverage">750<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    stopifnot(identical(length(parE), 2L))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">266</td>
+                    <td class="coverage">750<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    parE &lt;- t(parE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' RCT.PP: RCT (1:1 randomization) with prior derived from the historical data on</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">268</td>
+                    <td class="coverage">756<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (missing(weights)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">269</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    weights &lt;- rep(1, nrow(parE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the control response rate, and using the predictive probability</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' method, see \code{\link{predprobDist}}</pre>
+                      <pre class="language-r">  # if parS is a vector =&gt; situation where there is only one component</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">272</td>
+                    <td class="coverage">756<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (is.vector(parS)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">273</td>
+                    <td class="coverage">752<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    stopifnot(identical(length(parS), 2L))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">274</td>
+                    <td class="coverage">752<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    parS &lt;- t(parS)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' RCT.vanillaPP: RCT and using the predictive probability</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">276</td>
+                    <td class="coverage">756<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (missing(weightsS)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">277</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    weightsS &lt;- rep(1, nrow(parS))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' method, not using the historical control data</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">279</td>
+                    <td class="coverage">756<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (NmaxControl == 0) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">280</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ret &lt;- h_predprobdist_single_arm(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">281</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param nSim number of trials to simulate</pre>
+                      <pre class="language-r">      x = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">282</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param histSize historical data size</pre>
+                      <pre class="language-r">      mE = mE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">283</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param trialSize total trial sample size</pre>
+                      <pre class="language-r">      n = n,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">284</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param controlRateDist the control response rate distribution. This shall be</pre>
+                      <pre class="language-r">      Nmax = Nmax,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">285</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a function without any arguments, that gives back a random draw from the</pre>
+                      <pre class="language-r">      delta = delta,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">286</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' control response rate distribution. It is invoked to obtain control rates</pre>
+                      <pre class="language-r">      relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">287</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' for the historical and the actual control data sets.</pre>
+                      <pre class="language-r">      parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">288</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param nmeRate the treatment response rate</pre>
+                      <pre class="language-r">      parS = parS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">289</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param delta delta for stopping for efficacy to be used. Implicitly a zero</pre>
+                      <pre class="language-r">      weights = weights,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">290</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' delta for stopping for futility is used.</pre>
+                      <pre class="language-r">      weightsS = weightsS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">291</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param tL for Bayes methods: probability threshold for being below control</pre>
+                      <pre class="language-r">      thetaT = thetaT # check what is missing here</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' response rate (default: 0.8)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param tU for Bayes methods: probability threshold for being above control</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">294</td>
+                    <td class="coverage">754<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' response rate + delta (default: 0.8)</pre>
+                      <pre class="language-r">    ret &lt;- h_predprobdist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">295</td>
+                    <td class="coverage">754<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param tT threshold for the probability to be above the response rate p0 at</pre>
+                      <pre class="language-r">      x = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">296</td>
+                    <td class="coverage">754<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the end of the trial (default: 0.85)</pre>
+                      <pre class="language-r">      n = n,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">297</td>
+                    <td class="coverage">754<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param phiL lower threshold on the predictive probability (default: 0.05)</pre>
+                      <pre class="language-r">      xS = xS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">298</td>
+                    <td class="coverage">754<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param phiU upper threshold on the predictive probability (default: 0.95)</pre>
+                      <pre class="language-r">      nS = nS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">299</td>
+                    <td class="coverage">754<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param parE the beta parameters matrix, with K rows and 2 columns,</pre>
+                      <pre class="language-r">      Nmax = Nmax,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">300</td>
+                    <td class="coverage">754<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' corresponding to the beta parameters of the K components. Default is a</pre>
+                      <pre class="language-r">      NmaxControl = NmaxControl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">301</td>
+                    <td class="coverage">754<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' uniform prior.</pre>
+                      <pre class="language-r">      delta = delta,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">302</td>
+                    <td class="coverage">754<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param weights the mixture weights of the beta mixture prior. Default are</pre>
+                      <pre class="language-r">      relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">303</td>
+                    <td class="coverage">754<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' uniform weights across mixture components.</pre>
+                      <pre class="language-r">      parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">304</td>
+                    <td class="coverage">754<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Returned operating characteristics in a matrix include:</pre>
+                      <pre class="language-r">      parS = parS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">305</td>
+                    <td class="coverage">754<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ExpectedN: expected number of patients in the trials</pre>
+                      <pre class="language-r">      weights = weights,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">306</td>
+                    <td class="coverage">754<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ExpectedNactive: expected number of patients with treatment</pre>
+                      <pre class="language-r">      weightsS = weightsS,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">307</td>
+                    <td class="coverage">754<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' PrStopEarly: probability to stop the trial early (before reaching the</pre>
+                      <pre class="language-r">      thetaT = thetaT</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' maximum sample size)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' PrEarlyEff: probability to decide for efficacy early</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">310</td>
+                    <td class="coverage">756<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' PrEarlyFut: probability to decide for futility early</pre>
+                      <pre class="language-r">  ret</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' PrEfficacy: probability to decide for efficacy</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/plotDecision.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' PrFutility: probability to decide for futility</pre>
+                      <pre class="language-r">#' Plot a summary plot corresponding to the sumTable output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' PrGrayZone: probability of no decision at the end ("gray zone")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' This function will return a plot showing a curve of the prob of a meaningful improvement over estunated diff</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom stats rbinom</pre>
+                      <pre class="language-r">#' and a curve of the prob of a poor improvement over estunated diff</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param data the output object of \code{\link{sumTable}}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/oc3.R</pre>
+                      <pre class="language-r">#' @param Pos_cut a cut off for the prob of a meaningful improvement</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @param Neg_cut a cut off for the prob of a poor improvement</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">oc3 &lt;- function(method =</pre>
+                      <pre class="language-r">#' @return the \code{data} item which was imputed to the function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">9</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="never">
-                    <td class="num">70</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "PointMass.Bayes", "Prior.Bayes",</pre>
+                      <pre class="language-r">#' @importFrom graphics lines abline polygon plot par grid mtext box axis</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "RCT.Bayes", "RCTvanilla.Bayes",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "PointMass.PP", "Prior.PP",</pre>
+                      <pre class="language-r">#' @example examples/plotDecision.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    "RCT.PP", "RCTvanilla.PP"</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ),</pre>
+                      <pre class="language-r">#' @keywords graphics</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                nSim,</pre>
+                      <pre class="language-r">plotDecision &lt;- function(data, Pos_cut, Neg_cut) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">16</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                histSize,</pre>
+                      <pre class="language-r">  xticks &lt;- seq(from = -50, to = 100, by = 10)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                trialSize,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">18</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                controlRateDist,</pre>
+                      <pre class="language-r">  x &lt;- as.numeric(data[1, ]) # number of response;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                nmeRate,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">20</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                delta,</pre>
+                      <pre class="language-r">  x.mode &lt;- as.numeric(data[3, ]) # the response diff mode</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ## for Bayes methods:</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">22</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tL = 0.8,</pre>
+                      <pre class="language-r">  y &lt;- as.numeric(data[6, ]) # The Prob of a meaningful improvement</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tU = 0.8,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">24</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ## for PP methods:</pre>
+                      <pre class="language-r">  z &lt;- as.numeric(data[7, ]) # The Prob of a not meaningful improvement</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tT = 0.85,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                phiL = 0.05,</pre>
+                      <pre class="language-r">  # Look up decision area;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">27</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                phiU = 0.95,</pre>
+                      <pre class="language-r">  ShadeData &lt;- t(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ## prior on NME response rate:</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">29</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                parE = c(1, 1),</pre>
+                      <pre class="language-r">  colnames(ShadeData)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                weights) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">91</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  method &lt;- match.arg(method)</pre>
+                      <pre class="language-r">  # Green area;</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">92</td>
+                    <td class="num">32</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  bayesNames &lt;- c(</pre>
+                      <pre class="language-r">  G_area &lt;- ShadeData[ShadeData[, "prob.go [%]"] &gt; Pos_cut, ]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">93</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "PointMass.Bayes", "Prior.Bayes", "RCT.Bayes",</pre>
+                      <pre class="language-r">  # Red ares;</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">94</td>
+                    <td class="num">34</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "RCTvanilla.Bayes"</pre>
+                      <pre class="language-r">  R_area &lt;- ShadeData[ShadeData[, "prob.nogo [%]"] &gt; Neg_cut, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">96</td>
+                    <td class="num">36</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ppNames &lt;- c("PointMass.PP", "Prior.PP", "RCT.PP", "RCTvanilla.PP")</pre>
+                      <pre class="language-r">  graphics::par(mar = c(5, 4, 4, 1) + .1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## if parE is a vector =&gt; situation where there is only one component</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">99</td>
+                    <td class="num">39</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.vector(parE)) {</pre>
+                      <pre class="language-r">  graphics::plot(x.mode, y,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">40</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## check that it has exactly two entries</pre>
+                      <pre class="language-r">    type = "n", xlim = range(x.mode), bty = "n", ylab = "Probability (%)", xaxt = "n", xaxs = "i", yaxs = "i",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">101</td>
+                    <td class="num">41</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stopifnot(identical(length(parE), 2L))</pre>
+                      <pre class="language-r">    xlab = expression(paste("Estimated diff.", sep = "")), ylim = c(0, 100), panel.first = grid()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## and transpose to matrix with one row</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">104</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parE &lt;- t(parE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  # find the interaction;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## if prior weights of the beta mixture are not supplied</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">108</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (missing(weights)) {</pre>
+                      <pre class="language-r">  # Green area;</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">109</td>
+                    <td class="num">50</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights &lt;- rep(1, nrow(parE))</pre>
+                      <pre class="language-r">  aboveG &lt;- ShadeData[, "prob.go [%]"] &gt; Pos_cut</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## (don't need to be normalized, this is done in h_getBetamixPost)</pre>
+                      <pre class="language-r">  # Red ares;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">52</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  aboveR &lt;- ShadeData[, "prob.nogo [%]"] &gt; Neg_cut</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## allocation to active and control arms:</pre>
+                      <pre class="language-r">  # Points always intersect when above=TRUE, then FALSE or reverse</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">114</td>
+                    <td class="num">55</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  activeProp &lt;-</pre>
+                      <pre class="language-r">  intersect.pointsG &lt;- which(diff(aboveG) != 0)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">115</td>
+                    <td class="num">56</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (method %in% c(</pre>
+                      <pre class="language-r">  intersect.pointsR &lt;- which(diff(aboveR) != 0)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">116</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "RCT.Bayes",</pre>
+                      <pre class="language-r">  # Find the slopes for each line segment.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">117</td>
+                    <td class="num">58</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "RCTvanilla.Bayes",</pre>
+                      <pre class="language-r">  x1.slopesG &lt;- (ShadeData[intersect.pointsG + 1, "prob.go [%]"] - ShadeData[intersect.pointsG, "prob.go [%]"]) /</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">118</td>
+                    <td class="num">59</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "RCT.PP",</pre>
+                      <pre class="language-r">    (ShadeData[intersect.pointsG + 1, "mode [%]"] - ShadeData[intersect.pointsG, "mode [%]"])</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">119</td>
+                    <td class="num">60</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "RCTvanilla.PP"</pre>
+                      <pre class="language-r">  x1.slopesR &lt;- (ShadeData[intersect.pointsR + 1, "prob.nogo [%]"] - ShadeData[intersect.pointsR, "prob.nogo [%]"]) /</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">61</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )) {</pre>
+                      <pre class="language-r">    (ShadeData[intersect.pointsR + 1, "mode [%]"] - ShadeData[intersect.pointsR, "mode [%]"])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ## randomize 1:1</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">122</td>
+                    <td class="num">63</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      1 / 2</pre>
+                      <pre class="language-r">  x2.slopes &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">  # Find the intersection for each segment.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">65</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ## only active here</pre>
+                      <pre class="language-r">  x.pointsG &lt;- ShadeData[intersect.pointsG, "mode [%]"] +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">125</td>
+                    <td class="num">66</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      1</pre>
+                      <pre class="language-r">    ((Pos_cut - ShadeData[intersect.pointsG, "prob.go [%]"]) / (x1.slopesG))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">67</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  y.pointsG &lt;- Pos_cut</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">69</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## deltas for prior methods:</pre>
+                      <pre class="language-r">  x.pointsR &lt;- ShadeData[intersect.pointsR, "mode [%]"] +</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">129</td>
+                    <td class="num">70</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  deltaE &lt;- delta</pre>
+                      <pre class="language-r">    ((Neg_cut - ShadeData[intersect.pointsR, "prob.nogo [%]"]) / (x1.slopesR))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">130</td>
+                    <td class="num">71</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  deltaF &lt;- 0</pre>
+                      <pre class="language-r">  y.pointsR &lt;- Neg_cut</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</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">132</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## s: decision reject H0 (TRUE) or fail to reject (FALSE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">74</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ##    during trial if continuing (NA)</pre>
+                      <pre class="language-r">  graphics::polygon(c(R_area[, "mode [%]"], x.pointsR, x.pointsR, rev(R_area[, "mode [%]"])),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">134</td>
+                    <td class="num">75</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s &lt;- rep(NA, nSim)</pre>
+                      <pre class="language-r">    c(rep(0, dim(R_area)[1] + 1), y.pointsR, rev(R_area[, "prob.nogo [%]"])),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">135</td>
+                    <td class="num">76</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n &lt;- nActive &lt;- nControl &lt;- integer(length(s))</pre>
+                      <pre class="language-r">    col = "red"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</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>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## looks: three times total including the last one,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">79</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## approx equal distance.</pre>
+                      <pre class="language-r">  graphics::mtext(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">139</td>
+                    <td class="num">80</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nn &lt;- ceiling(seq(from = 1, to = trialSize, length = 3 + 1))[-1]</pre>
+                      <pre class="language-r">    paste(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">140</td>
+                    <td class="num">81</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nn &lt;- sort(nn)</pre>
+                      <pre class="language-r">      "Est. Diff=",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">141</td>
+                    <td class="num">82</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nr &lt;- FALSE</pre>
+                      <pre class="language-r">      round(x.pointsR),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">142</td>
+                    <td class="num">83</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nL &lt;- length(nn)</pre>
+                      <pre class="language-r">      "%, Prob.nogo=",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">143</td>
+                    <td class="num">84</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Nstart &lt;- nn[1]</pre>
+                      <pre class="language-r">      round(y.pointsR),</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>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">144</td>
+                    <td class="num">86</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Nmax &lt;- nn[nL]</pre>
+                      <pre class="language-r">      sep = ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">146</td>
+                    <td class="num">88</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  NmaxActive &lt;- ceiling(activeProp * Nmax)</pre>
+                      <pre class="language-r">    side = 3,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">147</td>
+                    <td class="num">89</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  NmaxControl &lt;- Nmax - NmaxActive</pre>
+                      <pre class="language-r">    line = 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">90</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">149</td>
+                    <td class="num">92</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (nr &amp;&amp; is.null(d)) {</pre>
+                      <pre class="language-r">  graphics::polygon(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">93</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## set parameter d for randomly generating look locations</pre>
+                      <pre class="language-r">    c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">151</td>
+                    <td class="num">94</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    d &lt;- floor(min(nn - c(0, nn[-nL])) / 2)</pre>
+                      <pre class="language-r">      x.pointsG, G_area[, "mode [%]"],</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">95</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      rev(G_area[, "mode [%]"]), x.pointsG</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</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="missed">
-                    <td class="num">153</td>
+                    <td class="num">97</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nnr &lt;- nn</pre>
+                      <pre class="language-r">    c(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">98</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      rep(0, dim(G_area)[1] + 1),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">99</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      rev(G_area[, "prob.go [%]"]), y.pointsG</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</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="missed">
-                    <td class="num">155</td>
+                    <td class="num">101</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (k in 1:nSim) { ## simulate a clinical trial nSim times</pre>
+                      <pre class="language-r">    col = "green"</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">156</td>
+                    <td class="num">102</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (nr &amp;&amp; (d &gt; 0)) {</pre>
+                      <pre class="language-r">  ) # meaningful part;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ## randomly generate look locations</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">158</td>
+                    <td class="num">104</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dd &lt;- sample(-d:d,</pre>
+                      <pre class="language-r">  graphics::mtext(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">159</td>
+                    <td class="num">105</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        size = nL - 1, replace = TRUE,</pre>
+                      <pre class="language-r">    paste(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">160</td>
+                    <td class="num">106</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        prob = 2^(c(-d:0, rev(-d:(-1))) / 2)</pre>
+                      <pre class="language-r">      "Est. Diff=",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">161</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">107</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      round(x.pointsG),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">108</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "%,Prob. go=",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">162</td>
+                    <td class="num">109</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nnr &lt;- nn + c(dd, 0)</pre>
+                      <pre class="language-r">      round(y.pointsG),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</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">164</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">111</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      sep = ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## simulate sequence of patients</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">166</td>
+                    <td class="num">113</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    isActive &lt;- sample(</pre>
+                      <pre class="language-r">    side = 3,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">167</td>
+                    <td class="num">114</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x =</pre>
+                      <pre class="language-r">    line = 1</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">168</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">115</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        rep(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">169</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          c(TRUE, FALSE),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">170</td>
+                    <td class="num">117</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          c(NmaxActive, NmaxControl)</pre>
+                      <pre class="language-r">  graphics::lines(x.mode, y, col = "green", lwd = 3, type = "l") # Plot PDF of beta(R,NR);</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">172</td>
+                    <td class="num">119</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size = Nmax,</pre>
+                      <pre class="language-r">  graphics::lines(x.mode, z, col = "red", lwd = 3, type = "l")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">173</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">120</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      replace = FALSE</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</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">175</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">123</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## generate the historical control rate</pre>
+                      <pre class="language-r">  if (Pos_cut == Neg_cut) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">177</td>
+                    <td class="num">124</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    histRate &lt;- controlRateDist()</pre>
+                      <pre class="language-r">    graphics::abline(h = Pos_cut, col = "black", lwd = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</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">179</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## generate the control data (binomial distribution)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">180</td>
+                    <td class="num">127</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xHist &lt;- stats::rbinom(n = 1L, size = histSize, prob = histRate)</pre>
+                      <pre class="language-r">  graphics::box()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">129</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## this generates p0:</pre>
+                      <pre class="language-r">  LablePoint2 &lt;- unique(sort(c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">183</td>
+                    <td class="num">130</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p0 &lt;- xHist / histSize</pre>
+                      <pre class="language-r">    ceiling(min(x.mode) * 10) / 10,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">131</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    xticks, floor(max(x.mode) * 10) / 10</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">132</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ))) ## Can be modified</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="missed">
+                    <td class="num">134</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  graphics::axis(1, at = LablePoint2, labels = paste(LablePoint2, "%", sep = ""), las = 1, lwd = 2, cex.axis = 1)</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## and with the delta this gives p1:</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">186</td>
+                    <td class="num">136</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p1 &lt;- min(p0 + delta, 1)</pre>
+                      <pre class="language-r">  return(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/sumTable.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## for the prior methods, these are the</pre>
+                      <pre class="language-r">##' Return summary statistics under one response scenario</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## beta parameters:</pre>
+                      <pre class="language-r">##'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">190</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parS &lt;-</pre>
+                      <pre class="language-r">##' This function will calculate the summary statistics for a specific response</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">191</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (method %in% c("RCTvanilla.Bayes", "RCTvanilla.PP")) {</pre>
+                      <pre class="language-r">##' outcome scenario.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## change parS to uniform in RCT vanilla case</pre>
+                      <pre class="language-r">##'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">193</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(1, 1)</pre>
+                      <pre class="language-r">##' @param thisResp number of responses</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">##' @param TotalSample sample size</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## otherwise we use the historical data</pre>
+                      <pre class="language-r">##' @param cut_B a meaningful improvement threshold: at least cut_B (e.g. 15%) improvement</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">196</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(1 + xHist, 1 + histSize - xHist)</pre>
+                      <pre class="language-r">##' @param cut_W a poor improvement threshold: at most cut_W (e.g. 5%) improvement</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">##' @param parX non-negative parameters of the beta distribution of the control (posterior)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">##' @param YPri non-negative parameters of the beta prior of the treatment, default Beta(0.5,0.5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## determine the control rate</pre>
+                      <pre class="language-r">##' @param Round Rounding of the output statistics</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">200</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    controlRate &lt;- controlRateDist()</pre>
+                      <pre class="language-r">##'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">##' @return A vector with the results.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## generate the trial data (Bernoulli distribution)</pre>
+                      <pre class="language-r">##'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## simulate sequence of responses</pre>
+                      <pre class="language-r">##' @example examples/sumTable.R</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">204</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- stats::rbinom(Nmax, 1,</pre>
+                      <pre class="language-r">##' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">205</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      prob = ifelse(isActive, nmeRate, controlRate)</pre>
+                      <pre class="language-r">sumTable &lt;- function(thisResp, # number of responses;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                     TotalSample, # Sample size;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                     cut_B, # meaningful improvement: at least cut_B (say 15\%) improvement;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## start trial</pre>
+                      <pre class="language-r">                     cut_W, # poor improvement: at most cut_W (say 5\%) improvement;</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">209</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    j &lt;- 1</pre>
+                      <pre class="language-r">                     parX, # Two parameters of the beta distribution of the control (posterior);</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">210</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    i &lt;- nnr[j]</pre>
+                      <pre class="language-r">                     YPri = c(0.5, 0.5), # Prior of phase Ib trial, default Beta(0.5,0.5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                     Round = 2) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">212</td>
+                    <td class="num">25</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    while (is.na(s[k]) &amp;&amp; (j &lt;= length(nnr))) {</pre>
+                      <pre class="language-r">  tmp &lt;- sumBetadiff(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">213</td>
+                    <td class="num">26</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (method == "PointMass.Bayes") {</pre>
+                      <pre class="language-r">    parX = parX,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">214</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">27</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## PointMass.Bayes</pre>
+                      <pre class="language-r">    parY =</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">215</td>
+                    <td class="num">28</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qL &lt;- 1 - postprob(x = sum(x[1:i]), n = i, p = p0, parE = parE, weights = weights)</pre>
+                      <pre class="language-r">      c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">216</td>
+                    <td class="num">29</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qU &lt;- postprob(x = sum(x[1:i]), n = i, p = p1, parE = parE, weights = weights)</pre>
+                      <pre class="language-r">        thisResp + YPri[1],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">217</td>
+                    <td class="num">30</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (method %in% c(</pre>
+                      <pre class="language-r">        TotalSample - thisResp + YPri[2]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">218</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Prior.Bayes",</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">219</td>
+                    <td class="num">32</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "RCT.Bayes",</pre>
+                      <pre class="language-r">    cutB = cut_B,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">220</td>
+                    <td class="num">33</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "RCTvanilla.Bayes"</pre>
+                      <pre class="language-r">    cutW = cut_W</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</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">222</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## current data in both arms:</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">223</td>
+                    <td class="num">36</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xActive &lt;- x[which(isActive[1:i])]</pre>
+                      <pre class="language-r">  summaries &lt;- round(c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">224</td>
+                    <td class="num">37</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xControl &lt;- x[which(!isActive[1:i])]</pre>
+                      <pre class="language-r">    thisResp, thisResp / TotalSample * 100,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">225</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">38</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    tmp$mode * 100, tmp$ci * 100, tmp$go * 100, tmp$nogo * 100</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">39</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ), Round)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## compute the two probabilities</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">227</td>
+                    <td class="num">41</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qL &lt;- postprobDist(</pre>
+                      <pre class="language-r">  summaries &lt;- as.data.frame(summaries)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">228</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = sum(xControl), n = length(xControl),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">229</td>
+                    <td class="num">43</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          xS = sum(xActive), nS = length(xActive),</pre>
+                      <pre class="language-r">  rownames(summaries) &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">230</td>
+                    <td class="num">44</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          delta = deltaF,</pre>
+                      <pre class="language-r">    "# resp", "obs ORR [%]", "mode [%]",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">231</td>
+                    <td class="num">45</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          parE = parS,</pre>
+                      <pre class="language-r">    "CI lower [%]", "CI upper [%]", "prob.go [%]", "prob.nogo [%]"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">232</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          parS = parE, weightsS = weights</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">234</td>
+                    <td class="num">48</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        qU &lt;- postprobDist(</pre>
+                      <pre class="language-r">  return(summaries)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">235</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = sum(xActive), n = length(xActive),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">236</td>
-                    <td class="coverage">!</td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/boundsPostprob.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">          xS = sum(xControl), nS = length(xControl),</pre>
+                      <pre class="language-r">#' Decision cutpoints for boundary (based on posterior probability)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">237</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          delta = deltaE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">238</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          parE = parE, weights = weights,</pre>
+                      <pre class="language-r">#' This function is used to identify the efficacy and futility</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">239</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          parS = parS</pre>
+                      <pre class="language-r">#' boundaries based on the following rules:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' Efficacy boundary: find minimum x (xU) where Pr(RR &gt; p1 |x, n, a, b) &gt;= tU and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Futility boundary: find maximum x (xL) where Pr(RR &lt; p0 | x, n, a, b) &gt;= tL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## sample sizes: in both arms</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">243</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nActive[k] &lt;- length(xActive)</pre>
+                      <pre class="language-r">#' @inheritParams postprob</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">244</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nControl[k] &lt;- length(xControl)</pre>
+                      <pre class="language-r">#' @inheritParams ocPostprob</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">245</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (method == "PointMass.PP") {</pre>
+                      <pre class="language-r">#' @typed looks : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## PointMass.PP</pre>
+                      <pre class="language-r">#'  A vector of number of patients in each look.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">247</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        q &lt;- predprob(</pre>
+                      <pre class="language-r">#' @return A matrix for each same size in `looks`. For each sample size, the following is returned:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">248</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = sum(x[1:i]),</pre>
+                      <pre class="language-r">#' - `xL` : the maximum number of responses that meet the futility threshold.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">249</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">          n = i, Nmax = Nmax, p = p1,</pre>
+                      <pre class="language-r">#' - `pL` : response rate corresponding to `xL`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">250</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          thetaT = tT, parE = parE, weights = weights</pre>
+                      <pre class="language-r">#' - `postL`: posterior probability corresponding to `xL`, i.e. Pr(RR &lt; p0 | xL, n, a, b).</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">251</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )$result</pre>
+                      <pre class="language-r">#' - `pL_upper_ci` : upper bound of one sided 95% CI for the response rate `pL` based on an</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">252</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (method %in% c(</pre>
+                      <pre class="language-r">#'            exact binomial test.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">253</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Prior.PP",</pre>
+                      <pre class="language-r">#' - `xU` : the minimal number of responses that meet the efficacy threshold.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">254</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "RCT.PP",</pre>
+                      <pre class="language-r">#' - `pU` : response rate corresponding to `xU`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">255</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "RCTvanilla.PP"</pre>
+                      <pre class="language-r">#' - `postU` : posterior probability corresponding to `xU`, i.e. Pr(RR &gt; p1 |xU, n, a, b).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )) {</pre>
+                      <pre class="language-r">#' - `pU_lower_ci` : lower bound of one sided 95% CI for the response rate `pU` based on exact</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## current data in both arms:</pre>
+                      <pre class="language-r">#'            binomial test.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">258</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xActive &lt;- x[which(isActive[1:i])]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">259</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xControl &lt;- x[which(!isActive[1:i])]</pre>
+                      <pre class="language-r">#' @example examples/boundsPostprob.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">25</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">261</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## compute predictive probability</pre>
+                      <pre class="language-r">boundsPostprob &lt;- function(looks, p0, p1 = p0, tL, tU, parE = c(1, 1), weights) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">262</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">27</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        q &lt;- predprobDist(</pre>
+                      <pre class="language-r">  assert_numeric(looks)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">263</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">28</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = sum(xActive), n = length(xActive),</pre>
+                      <pre class="language-r">  assert_number(p0, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">264</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">29</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          xS = sum(xControl), nS = length(xControl),</pre>
+                      <pre class="language-r">  assert_number(p1, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">265</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">30</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          Nmax = NmaxActive, NmaxControl = NmaxControl,</pre>
+                      <pre class="language-r">  assert_number(tL, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">266</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">31</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          delta = delta,</pre>
+                      <pre class="language-r">  assert_number(tU, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">267</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">32</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          thetaT = tT,</pre>
+                      <pre class="language-r">  assert_numeric(parE, min.len = 2, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">268</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">33</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          parE = parE,</pre>
+                      <pre class="language-r">  z &lt;- matrix(NA, nrow = length(looks), ncol = 8)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">269</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">34</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          weights = weights,</pre>
+                      <pre class="language-r">  znames &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">270</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">35</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          parS = parS</pre>
+                      <pre class="language-r">    "xL", "pL", "postL", "pL_upper_ci",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">271</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">36</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )$result</pre>
+                      <pre class="language-r">    "xU", "pU", "postU", "pU_lower_ci"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</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">273</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">38</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ## sample sizes: in both arms</pre>
+                      <pre class="language-r">  dimnames(z) &lt;- list(looks, znames)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">274</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">39</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nActive[k] &lt;- length(xActive)</pre>
+                      <pre class="language-r">  k &lt;- 0</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">275</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">40</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nControl[k] &lt;- length(xControl)</pre>
+                      <pre class="language-r">  parE &lt;- t(parE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">276</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">41</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  if (missing(weights)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">277</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">42</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    weights &lt;- rep(1, nrow(parE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ## decision depends on whether Bayes or PP is used:</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">279</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">44</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      s[k] &lt;- if (method %in% bayesNames) {</pre>
+                      <pre class="language-r">  assert_numeric(weights, min.len = 0, len = nrow(par), finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">280</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">45</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ifelse(qU &gt;= tU, TRUE, ifelse(qL &gt;= tL, FALSE, NA))</pre>
+                      <pre class="language-r">  for (n in looks) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">46</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    k &lt;- k + 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">    # initialize so will return NA if 0 or n in "continue" region</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">282</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">48</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ifelse(q &gt;= phiU &amp; !(i &lt; Nmax &amp; phiU == 1),</pre>
+                      <pre class="language-r">    xL &lt;- NA</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">283</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          TRUE,</pre>
+                      <pre class="language-r">    xU &lt;- NA</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">284</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">50</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ifelse(q &lt;= phiL, FALSE, NA)</pre>
+                      <pre class="language-r">    for (x in 0:n) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">285</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">51</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      postp_fut &lt;- 1 - postprob(x, n, p0, parE, weights) # futility look</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">48<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      if (postp_fut &gt;= tL) { # Rule is P(RR &lt; p0) &gt; tL</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">53</td>
+                    <td class="coverage">22<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        postL &lt;- postp_fut</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">54</td>
+                    <td class="coverage">22<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        xL &lt;- x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">287</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">56</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      postp_eff &lt;- postprob(x, n, p1, parE, weights) # efficacy look</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">288</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ## advance iterators</pre>
+                      <pre class="language-r">      if (postp_eff &gt;= tU) { # Rule is P(RR &gt; p1) &gt; tU</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">289</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n[k] &lt;- i</pre>
+                      <pre class="language-r">        postU &lt;- postp_eff</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">290</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      j &lt;- j + 1</pre>
+                      <pre class="language-r">        xU &lt;- x</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">291</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      i &lt;- nnr[j]</pre>
+                      <pre class="language-r">        break</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # calculate lower CI at boundaries</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">295</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">64</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  oc &lt;- cbind(</pre>
+                      <pre class="language-r">    pL_upper_ci &lt;- ifelse(!is.na(xL), stats::binom.test(xL, n, alt = "less")$conf.int[2], NA)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">296</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ExpectedN = mean(n),</pre>
+                      <pre class="language-r">    pU_lower_ci &lt;- ifelse(!is.na(xU), stats::binom.test(xU, n, alt = "greater")$conf.int[1], NA)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">297</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ExpectedNactive = mean(nActive),</pre>
+                      <pre class="language-r">    z[k, ] &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">298</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ExpectedNcontrol = mean(nControl),</pre>
+                      <pre class="language-r">      xL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">299</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PrStopEarly = mean(n &lt; Nmax),</pre>
+                      <pre class="language-r">      xL / n,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">300</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">69</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PrEarlyEff = sum(s * (n &lt; Nmax), na.rm = TRUE) / nSim,</pre>
+                      <pre class="language-r">      postL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">301</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PrEarlyFut = sum((1 - s) * (n &lt; Nmax), na.rm = TRUE) / nSim,</pre>
+                      <pre class="language-r">      pL_upper_ci,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">302</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PrEfficacy = sum(s, na.rm = TRUE) / nSim,</pre>
+                      <pre class="language-r">      xU,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">303</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PrFutility = sum(1 - s, na.rm = TRUE) / nSim,</pre>
+                      <pre class="language-r">      xU / n,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">304</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">73</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PrGrayZone = sum(is.na(s) / nSim)</pre>
+                      <pre class="language-r">      postU,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">305</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      pU_lower_ci</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</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">307</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## return OC</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">308</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(oc)</pre>
+                      <pre class="language-r">  round(data.frame(looks, z), 4)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -25459,14 +25422,14 @@ <h2>phase1b coverage - 64.86%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/predprob.R" class="hidden">
+            <div id="R/plotBeta.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">#' Predictive probability of trial success</pre>
+                      <pre class="language-r">#' Plot the Beta distribution</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -25480,7 +25443,7 @@ <h2>phase1b coverage - 64.86%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">#' This function will plot the PDF of a beta distribution</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -25494,280 +25457,280 @@ <h2>phase1b coverage - 64.86%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Compute the predictive probability of trial success given current data.</pre>
+                      <pre class="language-r">#' @typed alpha : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Success means that at the end of the trial the posterior probability is</pre>
+                      <pre class="language-r">#'  first parameter of the Beta distribution</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `Pr(P_E &gt; p) &gt;= thetaT`,</pre>
+                      <pre class="language-r">#' @typed beta : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' where `p` is the fixed response rate threshold and `P_E` is the response rate in the</pre>
+                      <pre class="language-r">#'  second parameter of the Beta distribution</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' treatment group or `E` group.</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">#' Then the predictive probability for success is:</pre>
+                      <pre class="language-r">#' @return A beta distribution density plot</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `pp = sum over i: Pr(Y=i|x,n)*I{Pr(P_E &gt; p|x,Y=i)&gt;=thetaT}`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' where `Y` is the number of future responses in the treatment group and `x` is</pre>
+                      <pre class="language-r">#' @importFrom graphics axis</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the current number of responses in the treatment group out of n.</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">#' The prior for the response rate in the experimental arm is `P_E ~ beta(a, b)`.</pre>
+                      <pre class="language-r">#' @example examples/plotBeta.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">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A table with the following contents will be included in the return output :</pre>
+                      <pre class="language-r">#' @keywords graphics</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `counts`: `Y = i`, number of future successes in `Nmax-n` subjects.</pre>
+                      <pre class="language-r">plotBeta &lt;- function(alpha, beta) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">18</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `density`: `Pr(Y = i|x)` using beta-(mixture)-binomial distribution.</pre>
+                      <pre class="language-r">  x_support &lt;- seq(from = 0, to = 1, length = 1000)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">19</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `posterior`: `Pr(P_E &gt; p | x, Y=i)` using beta posterior.</pre>
+                      <pre class="language-r">  data &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">20</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `success`: indicator `I(b &gt; thetaT)`.</pre>
+                      <pre class="language-r">    grid = x_support,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">21</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">    xticks = seq(from = 0, to = 1, by = 0.25),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">22</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed x : number</pre>
+                      <pre class="language-r">    density = dbeta(x_support, alpha, beta)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of successes.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">24</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed n : number</pre>
+                      <pre class="language-r">  ggplot2::ggplot(data) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">25</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of patients.</pre>
+                      <pre class="language-r">    ggplot2::geom_line(ggplot2::aes(x = grid, y = density)) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">26</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed Nmax : number</pre>
+                      <pre class="language-r">    ggplot2::ggtitle(paste("Beta density with alpha =", alpha, "and beta =", beta, "parameters.")) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">27</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  maximum number of patients at the end of the trial in the `E` group.</pre>
+                      <pre class="language-r">    ggplot2::xlab("response rate") +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">28</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed p : number</pre>
+                      <pre class="language-r">    ggplot2::ylab(quote(f(x))) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">29</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  threshold on the response rate.</pre>
+                      <pre class="language-r">    ggplot2::theme(axis.ticks.x = ggplot2::element_line(linewidth = 0.5)) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">30</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed thetaT : number</pre>
+                      <pre class="language-r">    ggplot2::scale_x_continuous(labels = scales::percent_format())</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  threshold on the probability to be above p.</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">#' @typed parE : numeric</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  the beta parameters matrix, with K rows and 2 columns,</pre>
+                      <pre class="language-r">#' Plot Diff Between two Beta distributions</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  corresponding to the beta parameters of the K components.</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">#' @typed weights : numeric</pre>
+                      <pre class="language-r">#' This function will plot the PDF of a difference between two Beta distributions</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  the mixture weights of the beta mixture prior.</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">#' @return A `list` is returned with names `result` for predictive probability and</pre>
+                      <pre class="language-r">#' @param parY non-negative parameters of the treatment Beta distribution.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `table` of numeric values with counts of responses in the remaining patients,</pre>
+                      <pre class="language-r">#' @param parX non-negative parameters of the historical control Beta distribution</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  probabilities of these counts, corresponding probabilities to be above threshold,</pre>
+                      <pre class="language-r">#' @param cut_B a meaningful improvement threshold</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  and trial success indicators.</pre>
+                      <pre class="language-r">#' @param cut_W a poor improvement throshold</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">#' @param shade paint the two areas under the curve, default value=1 as "yes". other numbers stands for "no";</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @references Lee, J. J., &amp; Liu, D. D. (2008). A predictive probability</pre>
+                      <pre class="language-r">#' @param note show values of the colored area, default value=1 as "yes". other numbers stands for "no"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  design for phase II cancer clinical trials. Clinical Trials, 5(2),</pre>
+                      <pre class="language-r">#' @param \dots additional arguments to \code{plot}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  93-106. doi:10.1177/1740774508089279</pre>
+                      <pre class="language-r">#' @return nothing, only produces the plot as side effect</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -25781,1725 +25744,1857 @@ <h2>phase1b coverage - 64.86%</h2>
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/predprob.R</pre>
+                      <pre class="language-r">#' @example examples/myPlotDiff.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">#' @export</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">predprob &lt;- function(x, n, Nmax, p, thetaT, parE = c(1, 1),</pre>
+                      <pre class="language-r">#' @importFrom graphics par axis polygon mtext</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     weights) {</pre>
+                      <pre class="language-r">#' @importFrom stats integrate</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # m = Nmax - n future observations</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">51</td>
-                    <td class="coverage">2317<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  m &lt;- Nmax - n</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">52</td>
-                    <td class="coverage">2317<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.vector(parE)) {</pre>
+                      <pre class="language-r">#' @keywords graphics</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">53</td>
-                    <td class="coverage">2312<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_true(identical(length(parE), 2L))</pre>
+                      <pre class="language-r">myPlotDiff &lt;- function(parY, # parameters of phase Ib trial;</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # and transpose to matrix with one row</pre>
+                      <pre class="language-r">                       parX, # parameters of HC;</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">55</td>
-                    <td class="coverage">2312<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parE &lt;- t(parE)</pre>
+                      <pre class="language-r">                       cut_B = 0.20, # a meaningful improvement threshold;</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                       cut_W = 0.1, # a poor improvement threshold;</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">57</td>
-                    <td class="coverage">2317<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (missing(weights)) {</pre>
+                      <pre class="language-r">                       shade = 1, # paint the two areas under the curve, default: yes. other numbers stands for "no";</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">58</td>
-                    <td class="coverage">2311<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights &lt;- rep(1, nrow(parE))</pre>
+                      <pre class="language-r">                       note = 1, # show values of the colored area, default: yes. other numbers stands for "no";</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="covered">
+                  <tr class="missed">
                     <td class="num">60</td>
-                    <td class="coverage">2317<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  betamixPost &lt;- h_getBetamixPost(x = x, n = n, par = parE, weights = weights)</pre>
+                      <pre class="language-r">  if (note == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">61</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    graphics::par(mar = c(5, 15, 1, 15) + .1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">62</td>
-                    <td class="coverage">2313<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  density &lt;- with(</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">63</td>
-                    <td class="coverage">2313<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    betamixPost,</pre>
+                      <pre class="language-r">    graphics::par(mar = c(5, 5, 1, 5) + .1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">64</td>
-                    <td class="coverage">2313<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dbetabinomMix(x = 0:m, m = m, par = par, weights = weights)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">65</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  grid &lt;- seq(from = -0.5, to = 0.75, length = 1000)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">66</td>
-                    <td class="coverage">2312<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(density, lower = 0, upper = 1, finite = TRUE, any.missing = FALSE)</pre>
+                      <pre class="language-r">  xticks &lt;- seq(from = -1, to = 1, by = 0.25)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">67</td>
-                    <td class="coverage">2312<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(thetaT, lower = 0, upper = 1, finite = TRUE)</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">  # posterior probabilities to be above threshold p</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">69</td>
-                    <td class="coverage">2311<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  posterior &lt;- postprob(x = x + c(0:m), n = Nmax, p = p, parE = parE, weights = weights)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">70</td>
-                    <td class="coverage">2311<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">  graphics::plot(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">71</td>
-                    <td class="coverage">2311<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result = sum(density * (posterior &gt; thetaT)),</pre>
+                      <pre class="language-r">    x = grid,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">72</td>
-                    <td class="coverage">2311<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table = data.frame(</pre>
+                      <pre class="language-r">    y = dbetadiff(grid, parY = parY, parX = parX),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">73</td>
-                    <td class="coverage">2311<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      counts = c(0:m),</pre>
+                      <pre class="language-r">    ylab = "",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">74</td>
-                    <td class="coverage">2311<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cumul_counts = n + (0:m),</pre>
+                      <pre class="language-r">    xaxt = "n",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">75</td>
-                    <td class="coverage">2311<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      density = round(density, 4),</pre>
+                      <pre class="language-r">    yaxt = "n",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">76</td>
-                    <td class="coverage">2311<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      posterior = posterior,</pre>
+                      <pre class="language-r">    type = "l",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">77</td>
-                    <td class="coverage">2311<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      success = (posterior &gt; thetaT)</pre>
+                      <pre class="language-r">    xaxs = "i",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">78</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    yaxs = "i",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">80</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/postprobDist.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The Posterior Beta Mixture Integrand when `delta` is relative</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">82</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  graphics::axis(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">83</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    side = 1, at = xticks,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">84</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    labels =</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">85</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      paste(ifelse(xticks &gt;= 0, "+", ""),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">86</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        xticks * 100, "%",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">87</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        sep = ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The helper function to generate Integrand function when `relativeDelta = TRUE`.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ## now color the go / stop prob areas</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed delta : number</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">93</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  margin by which the response rate in the treatment group should</pre>
+                      <pre class="language-r">  if (shade == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  be better than in the standard of care or control or `S` group.</pre>
+                      <pre class="language-r">    ## first stop:</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">95</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Note that this can also be negative, e.g. when non-inferiority is being assessed.</pre>
+                      <pre class="language-r">    stopGrid &lt;- grid[grid &lt;= cut_W]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">96</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed p_s : number</pre>
+                      <pre class="language-r">    nStop &lt;- length(stopGrid)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  probability of success or response rate of standard of care or control or `S` group.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">98</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed activeBetamixPost : list</pre>
+                      <pre class="language-r">    graphics::polygon(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">99</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  a list of posterior parameters of a beta-mixture-binomial distribution with generic names</pre>
+                      <pre class="language-r">      x =</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">100</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `par` and `weights`. See [h_getBetamixPost()].</pre>
+                      <pre class="language-r">        c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">101</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed controlBetamixPost : list</pre>
+                      <pre class="language-r">          stopGrid,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">102</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  a list of posterior parameters of a beta-mixture-binomial distribution with generic names</pre>
+                      <pre class="language-r">          rev(stopGrid)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `par` and `weights`. See [h_getBetamixPost()].</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">104</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      y =</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">105</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Function that is an argument for [stats::integrate()].</pre>
+                      <pre class="language-r">        c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">106</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          rep(0, nStop),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">107</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          dbetadiff(rev(stopGrid), parY = parY, parX = parX)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">109</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_integrand_relDelta &lt;- function(p_s, delta, activeBetamixPost, controlBetamixPost) {</pre>
+                      <pre class="language-r">      col = "red"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">23</td>
-                    <td class="coverage">211862<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">  cdf &lt;- postprob(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">24</td>
-                    <td class="coverage">211862<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">    x = 0, # Needed for Vectorize()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">25</td>
-                    <td class="coverage">211862<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">112</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p = (1 - p_s) * delta + p_s,</pre>
+                      <pre class="language-r">    A_value &lt;- stats::integrate(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">26</td>
-                    <td class="coverage">211862<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">113</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    betamixPost = activeBetamixPost</pre>
+                      <pre class="language-r">      f = dbetadiff,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">114</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      parY = parY,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">28</td>
-                    <td class="coverage">211862<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">115</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  pdf &lt;- with(</pre>
+                      <pre class="language-r">      parX = parX,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">211862<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">116</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    controlBetamixPost,</pre>
+                      <pre class="language-r">      lower = -1,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">30</td>
-                    <td class="coverage">211862<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">117</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dbetaMix(x = p_s, par = par, weights = weights)</pre>
+                      <pre class="language-r">      upper = cut_W</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">211862<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">119</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cdf * pdf</pre>
+                      <pre class="language-r">    if (note == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">120</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      graphics::mtext(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">121</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        paste("Prob(diff&lt; ", round(cut_W * 100), "%)=",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">122</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The Posterior Beta Mixture Integrand when Delta is absolute</pre>
+                      <pre class="language-r">          sprintf("%1.2f%%", 100 * as.numeric(A_value$value)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">123</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The helper function to generate Integrand function when `relativeDelta = FALSE`,</pre>
+                      <pre class="language-r">          sep = ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a default setting.</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">125</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        side = 2, line = 1, las = 1, cex = 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_integrand_relDelta</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</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">41</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Function that is an argument for [stats::integrate()].</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    ## then go:</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">130</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    goGrid &lt;- grid[grid &gt;= cut_B]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">131</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    nGo &lt;- length(goGrid)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_integrand &lt;- function(p_s, delta, activeBetamixPost, controlBetamixPost) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">154350<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">133</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cdf &lt;- postprob(</pre>
+                      <pre class="language-r">    graphics::polygon(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">154350<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">134</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = 0, # Needed for Vectorize()</pre>
+                      <pre class="language-r">      x =</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">154350<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">135</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p = p_s + delta,</pre>
+                      <pre class="language-r">        c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">154350<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">136</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    betamixPost = activeBetamixPost</pre>
+                      <pre class="language-r">          goGrid,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">137</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          rev(goGrid)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">154350<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">139</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  pdf &lt;- with(</pre>
+                      <pre class="language-r">      y =</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">154350<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">140</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    controlBetamixPost,</pre>
+                      <pre class="language-r">        c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">154350<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">141</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dbetaMix(x = p_s, par = par, weights = weights)</pre>
+                      <pre class="language-r">          rep(0, nGo),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">142</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          dbetadiff(rev(goGrid), parY = parY, parX = parX)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">154350<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">144</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cdf * pdf</pre>
+                      <pre class="language-r">      col = "green"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">147</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Generating bounds for the Integration of Beta Mixture Posterior</pre>
+                      <pre class="language-r">    B_value &lt;- stats::integrate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">148</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      f = dbetadiff,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">149</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Using the quantile of the Beta Mixture Distribution from parameters given by standard of care `S` or</pre>
+                      <pre class="language-r">      parY = parY,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">150</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' experimental group `E` to determine bounds as inputs to [stats::integrate()].</pre>
+                      <pre class="language-r">      parX = parX,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">151</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      lower = cut_B,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">152</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_integrand_relDelta</pre>
+                      <pre class="language-r">      upper = 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Integrand function</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">155</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    if (note == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">156</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      graphics::mtext(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">157</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">158</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_get_bounds &lt;- function(controlBetamixPost) {</pre>
+                      <pre class="language-r">          sprintf("%1.2f%%", 100 * as.numeric(B_value$value)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">144664<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">159</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  epsilon &lt;- .Machine$double.xmin</pre>
+                      <pre class="language-r">          "=Prob(diff&gt; ",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">144664<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">160</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with(</pre>
+                      <pre class="language-r">          round(cut_B * 100), "%)",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">144664<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">161</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    controlBetamixPost,</pre>
+                      <pre class="language-r">          sep = ""</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">144664<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">162</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    qbetaMix(</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">144664<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">163</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        side = 4,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">164</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        line = 1,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">165</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      p = c(epsilon, 1 - epsilon),</pre>
+                      <pre class="language-r">        las = 1,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">144664<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">166</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      par = par,</pre>
+                      <pre class="language-r">        cex = 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">144664<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">      weights = weights</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</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">78</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/sumbetadiff.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">##' Mode and Credible Interval Calculation for The Difference between Two Beta Distributions</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Compute the Posterior Probability with Beta Prior on standard of care `S`</pre>
+                      <pre class="language-r">##'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">##'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">##' A function to summerize the characters of a betadiff distribution \code{\link{dbetadiff}}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">##'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Using the approach by Thall and Simon (Biometrics, 1994), this evaluates the</pre>
+                      <pre class="language-r">##'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' posterior probability of achieving superior response rate in the treatment group `E`</pre>
+                      <pre class="language-r">##' @param parX two parameters of X's beta distribution (Control)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' compared to standard of care `S`. See note below for two formulations of the difference in response rates.</pre>
+                      <pre class="language-r">##' @param parY two parameters of Y's beta distribution (Treatment)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">##' @param level credible interval</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_integrand_relDelta</pre>
+                      <pre class="language-r">##' @param cutB  a cutoff value for the upper bound</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">##' @param cutW  a cutoff value for the lower bound</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed x : numeric</pre>
+                      <pre class="language-r">##'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of success counts in the `E` group.</pre>
+                      <pre class="language-r">##' @return sumbetadiff gives the mode, credible interval of the distribution function,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed n : number</pre>
+                      <pre class="language-r">##' along with the probabilities of above cutB and below cutW.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of patients in the `E` group.</pre>
+                      <pre class="language-r">##'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed xS : number</pre>
+                      <pre class="language-r">##' @importFrom stats optimize integrate rbeta quantile</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of success counts in the `S` group.</pre>
+                      <pre class="language-r">##'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed nS : number</pre>
+                      <pre class="language-r">##' @example examples/sumbetadiff.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of patients in the `S` group.</pre>
+                      <pre class="language-r">##' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed relativeDelta : flag</pre>
+                      <pre class="language-r">sumBetadiff &lt;- function(parY, parX,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  If `TRUE`, then a `relativeDelta` is used. Represents that a minimum</pre>
+                      <pre class="language-r">                        level = 0.9, ## CI level</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  response rate in magnitude of `delta` of the `S` non-responding patients</pre>
+                      <pre class="language-r">                        cutB,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  is included as the margin between treatment and control group. See note.</pre>
+                      <pre class="language-r">                        cutW) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">24</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed parE : "`numeric` or `matrix`"</pre>
+                      <pre class="language-r">  res &lt;- try(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  parameters for beta distribution. If it is a matrix, it needs to have 2 columns,</pre>
+                      <pre class="language-r">    {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">26</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  and each row corresponds to each component of a beta-mixture distribution</pre>
+                      <pre class="language-r">      mode &lt;- stats::optimize(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">27</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  for the `E` group. See details.</pre>
+                      <pre class="language-r">        f = dbetadiff,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">28</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed weights : numeric</pre>
+                      <pre class="language-r">        interval = c(-0.999, 0.999),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">29</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  the non-negative mixture weights of the beta mixture prior for group `E`. See details.</pre>
+                      <pre class="language-r">        parY = parY,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">30</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed parS : "`numeric` or `matrix`"</pre>
+                      <pre class="language-r">        parX = parX,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">31</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  parameters for beta distribution. If it is a matrix, it needs to have 2 columns,</pre>
+                      <pre class="language-r">        maximum = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">32</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  and each row corresponds to each component of a beta-mixture distribution</pre>
+                      <pre class="language-r">      )$maximum</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  for the `S` group. See details.</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">34</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      lower &lt;- qbetadiff(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">35</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        p = (1 - level) / 2,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">36</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        parY = parY,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">37</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        parX = parX</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed weightsS : numeric</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  the non-negative mixture weights of the beta mixture prior for group `S`. See details.</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">40</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      upper &lt;- qbetadiff(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">41</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        p = (1 + level) / 2,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">42</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        parY = parY,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">43</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        parX = parX</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return The posterior probability</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note</pre>
+                      <pre class="language-r">      ## for Go:</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">47</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      Out.go &lt;- stats::integrate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">48</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Delta :</pre>
+                      <pre class="language-r">        f = dbetadiff,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">49</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        parY = parY,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</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">#' The desired improvement is denoted as `delta`. There are two options in using `delta`.</pre>
+                      <pre class="language-r">        parX = parX,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">51</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The absolute case when `relativeDelta = FALSE` and relative as when `relativeDelta = TRUE`.</pre>
+                      <pre class="language-r">        lower = cutB,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">52</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        upper = 1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">53</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 1. The absolute case is when we define an absolute delta, greater than `P_S`,</pre>
+                      <pre class="language-r">        subdivisions = 1000L,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">54</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the response rate of the standard of care or control or `S` group such that</pre>
+                      <pre class="language-r">        rel.tol = .Machine$double.eps^0.1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">55</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the posterior is `Pr(P_E &gt; P_S + delta | data)`.</pre>
+                      <pre class="language-r">      )$value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 2. In the relative case, we suppose that the treatment group's</pre>
+                      <pre class="language-r">      ## for Stop:</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">129</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">58</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' response rate is assumed to be greater than `P_S + (1-P_S) * delta` such that</pre>
+                      <pre class="language-r">      Out.nogo &lt;- stats::integrate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">59</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the posterior is `Pr(P_E &gt; P_S + (1 - P_S) * delta | data)`.</pre>
+                      <pre class="language-r">        f = dbetadiff,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">60</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        parY = parY,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">132</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">61</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">        parX = parX,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">62</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        lower = -1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">63</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The beta mixture prior for the `E` arm requires argument `parE` and `weights`.</pre>
+                      <pre class="language-r">        upper = cutW,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">64</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The beta mixture prior for the `S` arm requires argument `parS` and `weightsS`.</pre>
+                      <pre class="language-r">        subdivisions = 1000L,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">136</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">65</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' See [postprob()] for details.</pre>
+                      <pre class="language-r">        rel.tol = .Machine$double.eps^0.1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">137</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">66</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )$value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If a beta-mixture is used, by default, the weights are uniform across the components.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">139</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">68</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Weights can exceed 1, to which the algorithm will normalize the weights such that all weights sum to 1.</pre>
+                      <pre class="language-r">      list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">69</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        mode = mode,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">70</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/postprobDist.R</pre>
+                      <pre class="language-r">        ci = c(lower, upper),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">142</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">71</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">        go = Out.go,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">143</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">postprobDist &lt;- function(x,</pre>
+                      <pre class="language-r">        nogo = Out.nogo</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         n,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         xS = 0,</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">146</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">75</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         nS = 0,</pre>
+                      <pre class="language-r">    silent = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         delta,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         relativeDelta = FALSE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         parE = c(1, 1),</pre>
+                      <pre class="language-r">  ## if there were any errors, fall back to Monte Carlo estimation</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">79</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         weights,</pre>
+                      <pre class="language-r">  if (inherits(res, "try-error")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">151</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">80</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         parS = c(1, 1),</pre>
+                      <pre class="language-r">    samples &lt;- stats::rbeta(n = 2e6, parY[1], parY[2]) -</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">81</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         weightsS) {</pre>
+                      <pre class="language-r">      rbeta(n = 2e6, parX[1], parX[2])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">144666<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.vector(parE)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">2303<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">83</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_true(identical(length(parE), 2L))</pre>
+                      <pre class="language-r">    lower &lt;- stats::quantile(samples, prob = (1 - level) / 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">2303<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">84</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parE &lt;- t(parE)</pre>
+                      <pre class="language-r">    upper &lt;- stats::quantile(samples, prob = (1 + level) / 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">144666<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (is.vector(parS)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">2303<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">86</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_true(identical(length(parS), 2L))</pre>
+                      <pre class="language-r">    Out.go &lt;- mean(samples &gt; cutB)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">2303<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">87</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parS &lt;- t(parS)</pre>
+                      <pre class="language-r">    Out.nogo &lt;- mean(samples &lt; cutW)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</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">161</td>
-                    <td class="coverage">144666<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">89</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (missing(weights)) {</pre>
+                      <pre class="language-r">    samples &lt;- cut(samples, breaks = seq(from = -1, to = 1, length = 801))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">2196<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">90</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights &lt;- rep(1, nrow(parE))</pre>
+                      <pre class="language-r">    samples &lt;- table(samples)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">163</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">91</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    mode &lt;- seq(from = -1, to = 1, by = 0.0025)[which.max(samples)]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">144666<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (missing(weightsS)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">2196<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">93</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weightsS &lt;- rep(1, nrow(parS))</pre>
+                      <pre class="language-r">    res &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">166</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">94</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      mode = mode,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">144666<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">  assert_number(n, lower = min(x), finite = TRUE)</pre>
+                      <pre class="language-r">      ci = c(lower, upper),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">144665<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">96</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(x, lower = 0, upper = n, finite = TRUE)</pre>
+                      <pre class="language-r">      go = Out.go,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">144665<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">97</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(nS, lower = 0, finite = TRUE)</pre>
+                      <pre class="language-r">      nogo = Out.nogo</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">144664<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(xS, lower = 0, upper = nS, finite = TRUE)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">144664<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_number(delta, upper = 1, finite = TRUE)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">144664<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_flag(relativeDelta)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">144664<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">101</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_numeric(weights, lower = 0, finite = TRUE)</pre>
+                      <pre class="language-r">  return(res)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">144664<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">  assert_numeric(weightsS, lower = 0, finite = TRUE)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">144664<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/plotOc.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">  assert_numeric(parE, lower = 0, finite = TRUE)</pre>
+                      <pre class="language-r">#' Display the operating characteristics using an oc object</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">144664<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">  assert_numeric(parS, lower = 0, finite = TRUE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Reads results from \code{\link{ocPredprob}}, \code{\link{ocPostprob}}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">144664<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">  activeBetamixPost &lt;- lapply(x, function(x) h_getBetamixPost(x = x, n = n, par = parE, weights = weights))</pre>
+                      <pre class="language-r">#' etc. and displays a bar plot of the operating characteristics</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">144664<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">  controlBetamixPost &lt;- h_getBetamixPost(x = xS, n = nS, par = parS, weights = weightsS)</pre>
+                      <pre class="language-r">#' @param z returned oc value</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">144664<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 (relativeDelta) {</pre>
+                      <pre class="language-r">#' @return nothing, only plots as side effect</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">58258<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">    epsilon &lt;- .Machine$double.xmin</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">58258<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">    integrand &lt;- h_integrand_relDelta</pre>
+                      <pre class="language-r">#' @importFrom graphics barplot title</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">86406<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">    epsilon &lt;- .Machine$double.xmin</pre>
+                      <pre class="language-r">#' @example examples/plotOc.R</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">86406<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">    integrand &lt;- h_integrand</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @keywords graphics</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">144664<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">  bounds &lt;- h_get_bounds(controlBetamixPost = controlBetamixPost)</pre>
+                      <pre class="language-r">plotOc &lt;- function(z) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  ## plot function for oc.predprob or oc.postprob, or the dist versions of them</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">144664<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">16</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  integral_results &lt;- lapply(</pre>
+                      <pre class="language-r">  graphics::barplot(table(z$Decision, z$SampleSize) / z$params$sim, beside = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">144664<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">    seq_along(x),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">144664<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">    function(i, this_posterior = activeBetamixPost, input_x = x) {</pre>
+                      <pre class="language-r">  ## get the parameter</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">144770<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">19</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      intRes &lt;- integrate(</pre>
+                      <pre class="language-r">  parDat &lt;- lapply(z$params, deparse)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">144770<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">        f = integrand,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">144770<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">        lower = max(bounds[1], ifelse(relativeDelta, 0, 0 - delta)),</pre>
+                      <pre class="language-r">  ## get parameters, which are saved in parDat</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">144770<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">22</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        upper = min(ifelse(relativeDelta, 1, 1 - delta), bounds[2]),</pre>
+                      <pre class="language-r">  allParNames &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">144770<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">23</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        delta = delta,</pre>
+                      <pre class="language-r">    "p", "p0", "p1",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">144770<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">24</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        activeBetamixPost = this_posterior[[i]],</pre>
+                      <pre class="language-r">    "delta", "deltaE", "deltaF", "relativeDelta",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">144770<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">25</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        controlBetamixPost = controlBetamixPost</pre>
+                      <pre class="language-r">    "phiL", "phiU", "tL", "tU", "tT", "parE", "parS"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">144770<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (intRes$message == "OK") {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">144770<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">27</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        intRes$value</pre>
+                      <pre class="language-r">  parInds &lt;- which(names(parDat) %in% allParNames)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">204</td>
+                    <td class="num">29</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        warning("Integration failed for posterior based on x =", input_x[i], "\n", intRes$message)</pre>
+                      <pre class="language-r">  graphics::title(paste(names(parDat[parInds]), parDat[parInds],</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">144664<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">30</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NA_real_</pre>
+                      <pre class="language-r">    sep = "=", collapse = ", "</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">207</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">32</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  graphics::title(xlab = paste(dimnames(z$oc)[[2]], signif(z$oc, 3),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">33</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    sep = " = ", collapse = ", "</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</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">209</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">210</td>
-                    <td class="coverage">144664<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">36</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  unlist(integral_results)</pre>
+                      <pre class="language-r">  return(invisible())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -27508,14 +27603,14 @@ <h2>phase1b coverage - 64.86%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/plotDecision.R" class="hidden">
+            <div id="R/predprob.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">#' Plot a summary plot corresponding to the sumTable output</pre>
+                      <pre class="language-r">#' Predictive probability of trial success</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -27529,2241 +27624,2250 @@ <h2>phase1b coverage - 64.86%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function will return a plot showing a curve of the prob of a meaningful improvement over estunated diff</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and a curve of the prob of a poor improvement over estunated diff</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data the output object of \code{\link{sumTable}}</pre>
+                      <pre class="language-r">#' Compute the predictive probability of trial success given current data.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param Pos_cut a cut off for the prob of a meaningful improvement</pre>
+                      <pre class="language-r">#' Success means that at the end of the trial the posterior probability is</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param Neg_cut a cut off for the prob of a poor improvement</pre>
+                      <pre class="language-r">#' `Pr(P_E &gt; p) &gt;= thetaT`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return the \code{data} item which was imputed to the function</pre>
+                      <pre class="language-r">#' where `p` is the fixed response rate threshold and `P_E` is the response rate in the</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">#' treatment group or `E` group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom graphics lines abline polygon plot par grid mtext box axis</pre>
+                      <pre class="language-r">#' Then the predictive probability for success is:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' `pp = sum over i: Pr(Y=i|x,n)*I{Pr(P_E &gt; p|x,Y=i)&gt;=thetaT}`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/plotDecision.R</pre>
+                      <pre class="language-r">#' where `Y` is the number of future responses in the treatment group and `x` is</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' the current number of responses in the treatment group out of n.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords graphics</pre>
+                      <pre class="language-r">#' The prior for the response rate in the experimental arm is `P_E ~ beta(a, b)`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">plotDecision &lt;- function(data, Pos_cut, Neg_cut) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">16</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xticks &lt;- seq(from = -50, to = 100, by = 10)</pre>
+                      <pre class="language-r">#' A table with the following contents will be included in the return output :</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">#' - `counts`: `Y = i`, number of future successes in `Nmax-n` subjects.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">18</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x &lt;- as.numeric(data[1, ]) # number of response;</pre>
+                      <pre class="language-r">#' - `density`: `Pr(Y = i|x)` using beta-(mixture)-binomial distribution.</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">#' - `posterior`: `Pr(P_E &gt; p | x, Y=i)` using beta posterior.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">20</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x.mode &lt;- as.numeric(data[3, ]) # the response diff mode</pre>
+                      <pre class="language-r">#' - `success`: indicator `I(b &gt; thetaT)`.</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">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">22</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- as.numeric(data[6, ]) # The Prob of a meaningful improvement</pre>
+                      <pre class="language-r">#' @typed x : number</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">#'  number of successes.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">24</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  z &lt;- as.numeric(data[7, ]) # The Prob of a not meaningful improvement</pre>
+                      <pre class="language-r">#' @typed n : number</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">#'  number of patients.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Look up decision area;</pre>
+                      <pre class="language-r">#' @typed Nmax : number</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">27</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ShadeData &lt;- t(data)</pre>
+                      <pre class="language-r">#'  maximum number of patients at the end of the trial in the `E` group.</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">#' @typed p : number</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">29</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  colnames(ShadeData)</pre>
+                      <pre class="language-r">#'  threshold on the response rate.</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">#' @typed thetaT : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Green area;</pre>
+                      <pre class="language-r">#'  threshold on the probability to be above p.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">32</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  G_area &lt;- ShadeData[ShadeData[, "prob.go [%]"] &gt; Pos_cut, ]</pre>
+                      <pre class="language-r">#' @typed parE : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Red ares;</pre>
+                      <pre class="language-r">#'  the beta parameters matrix, with K rows and 2 columns,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">34</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  R_area &lt;- ShadeData[ShadeData[, "prob.nogo [%]"] &gt; Neg_cut, ]</pre>
+                      <pre class="language-r">#'  corresponding to the beta parameters of the K components.</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">#' @typed weights : numeric</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">36</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  graphics::par(mar = c(5, 4, 4, 1) + .1)</pre>
+                      <pre class="language-r">#'  the mixture weights of the beta mixture prior.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return A `list` is returned with names `result` for predictive probability and</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">#'  `table` of numeric values with counts of responses in the remaining patients,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">39</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  graphics::plot(x.mode, y,</pre>
+                      <pre class="language-r">#'  probabilities of these counts, corresponding probabilities to be above threshold,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">40</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    type = "n", xlim = range(x.mode), bty = "n", ylab = "Probability (%)", xaxt = "n", xaxs = "i", yaxs = "i",</pre>
+                      <pre class="language-r">#'  and trial success indicators.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">41</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xlab = expression(paste("Estimated diff.", sep = "")), ylim = c(0, 100), panel.first = grid()</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @references Lee, J. J., &amp; Liu, D. D. (2008). A predictive probability</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'  design for phase II cancer clinical trials. Clinical Trials, 5(2),</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">#'  93-106. doi:10.1177/1740774508089279</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # find the interaction;</pre>
+                      <pre class="language-r">#' @example examples/predprob.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">predprob &lt;- function(x, n, Nmax, p, thetaT, parE = c(1, 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Green area;</pre>
+                      <pre class="language-r">                     weights) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">50</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  aboveG &lt;- ShadeData[, "prob.go [%]"] &gt; Pos_cut</pre>
+                      <pre class="language-r">  # m = Nmax - n future observations</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">51</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2317<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Red ares;</pre>
+                      <pre class="language-r">  m &lt;- Nmax - n</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">52</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">2317<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  aboveR &lt;- ShadeData[, "prob.nogo [%]"] &gt; Neg_cut</pre>
+                      <pre class="language-r">  if (is.vector(parE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">53</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2312<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    assert_true(identical(length(parE), 2L))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Points always intersect when above=TRUE, then FALSE or reverse</pre>
+                      <pre class="language-r">    # and transpose to matrix with one row</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">55</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">2312<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  intersect.pointsG &lt;- which(diff(aboveG) != 0)</pre>
+                      <pre class="language-r">    parE &lt;- t(parE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">56</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  intersect.pointsR &lt;- which(diff(aboveR) != 0)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">57</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2317<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Find the slopes for each line segment.</pre>
+                      <pre class="language-r">  if (missing(weights)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">2311<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x1.slopesG &lt;- (ShadeData[intersect.pointsG + 1, "prob.go [%]"] - ShadeData[intersect.pointsG, "prob.go [%]"]) /</pre>
+                      <pre class="language-r">    weights &lt;- rep(1, nrow(parE))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">59</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    (ShadeData[intersect.pointsG + 1, "mode [%]"] - ShadeData[intersect.pointsG, "mode [%]"])</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">60</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">2317<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x1.slopesR &lt;- (ShadeData[intersect.pointsR + 1, "prob.nogo [%]"] - ShadeData[intersect.pointsR, "prob.nogo [%]"]) /</pre>
+                      <pre class="language-r">  betamixPost &lt;- h_getBetamixPost(x = x, n = n, par = parE, weights = weights)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">61</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    (ShadeData[intersect.pointsR + 1, "mode [%]"] - ShadeData[intersect.pointsR, "mode [%]"])</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">2313<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  density &lt;- with(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">2313<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x2.slopes &lt;- 0</pre>
+                      <pre class="language-r">    betamixPost,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2313<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Find the intersection for each segment.</pre>
+                      <pre class="language-r">    dbetabinomMix(x = 0:m, m = m, par = par, weights = weights)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">65</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x.pointsG &lt;- ShadeData[intersect.pointsG, "mode [%]"] +</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">2312<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ((Pos_cut - ShadeData[intersect.pointsG, "prob.go [%]"]) / (x1.slopesG))</pre>
+                      <pre class="language-r">  assert_numeric(density, lower = 0, upper = 1, finite = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">67</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">2312<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y.pointsG &lt;- Pos_cut</pre>
+                      <pre class="language-r">  assert_number(thetaT, lower = 0, upper = 1, finite = TRUE)</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">  # posterior probabilities to be above threshold p</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">2311<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x.pointsR &lt;- ShadeData[intersect.pointsR, "mode [%]"] +</pre>
+                      <pre class="language-r">  posterior &lt;- postprob(x = x + c(0:m), n = Nmax, p = p, parE = parE, weights = weights)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">70</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">2311<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">2311<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    result = sum(density * (posterior &gt; thetaT)),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">2311<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    table = data.frame(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">73</td>
+                    <td class="coverage">2311<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      counts = c(0:m),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">2311<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      cumul_counts = n + (0:m),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">2311<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      density = round(density, 4),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">76</td>
+                    <td class="coverage">2311<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      posterior = posterior,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">2311<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      success = (posterior &gt; thetaT)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ((Neg_cut - ShadeData[intersect.pointsR, "prob.nogo [%]"]) / (x1.slopesR))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">71</td>
-                    <td class="coverage">!</td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/ocPostprobDist.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">  y.pointsR &lt;- Neg_cut</pre>
+                      <pre class="language-r">#' @include postprobDist.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">74</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  graphics::polygon(c(R_area[, "mode [%]"], x.pointsR, x.pointsR, rev(R_area[, "mode [%]"])),</pre>
+                      <pre class="language-r">#' Evaluate Posteriors based on Efficacy and Futility Thresholds in Two-Armed trials</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">75</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c(rep(0, dim(R_area)[1] + 1), y.pointsR, rev(R_area[, "prob.nogo [%]"])),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">76</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col = "red"</pre>
+                      <pre class="language-r">#' A helper function adapted from [h_get_decision()] by</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' replacing the internal use of [postprob()] with [postprobDist()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' to generate the `decision` and random looks `all_sizes`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">79</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  graphics::mtext(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">80</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste(</pre>
+                      <pre class="language-r">#' @inheritParams h_get_decision</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">81</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Est. Diff=",</pre>
+                      <pre class="language-r">#' @inheritParams postprobDist</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">82</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      round(x.pointsR),</pre>
+                      <pre class="language-r">#' @inheritParams h_get_oc</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">83</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "%, Prob.nogo=",</pre>
+                      <pre class="language-r">#' @typed deltaE : number</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">84</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">      round(y.pointsR),</pre>
+                      <pre class="language-r">#' margin by which the response rate in the treatment group should</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "%",</pre>
+                      <pre class="language-r">#' be better than in the standard of care or control or `S` group in Efficacy looks only.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">86</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sep = ""</pre>
+                      <pre class="language-r">#' Note that this can also be negative as well.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#' @typed deltaF : number</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">88</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    side = 3,</pre>
+                      <pre class="language-r">#' margin by which the response rate in the treatment group should</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">89</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    line = 2</pre>
+                      <pre class="language-r">#' be better than in the standard of care or control or `S` group in Futility looks only.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' Note that this can also be negative as well.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">92</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  graphics::polygon(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">93</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">94</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x.pointsG, G_area[, "mode [%]"],</pre>
+                      <pre class="language-r">h_get_decisionDist &lt;- function(nnr,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">95</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rev(G_area[, "mode [%]"]), x.pointsG</pre>
+                      <pre class="language-r">                               nnrE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">                               nnrF,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">97</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c(</pre>
+                      <pre class="language-r">                               truep,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">98</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rep(0, dim(G_area)[1] + 1),</pre>
+                      <pre class="language-r">                               parE = c(1, 1),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">99</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rev(G_area[, "prob.go [%]"]), y.pointsG</pre>
+                      <pre class="language-r">                               parS = c(1, 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">                               tL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">101</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col = "green"</pre>
+                      <pre class="language-r">                               tU,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">102</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) # meaningful part;</pre>
+                      <pre class="language-r">                               deltaE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                               deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">104</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  graphics::mtext(</pre>
+                      <pre class="language-r">                               relativeDelta) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">105</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">35</td>
+                    <td class="coverage">303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste(</pre>
+                      <pre class="language-r">  assert_numeric(nnr, finite = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">106</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">36</td>
+                    <td class="coverage">303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Est. Diff=",</pre>
+                      <pre class="language-r">  assert_numeric(nnrE, max.len = length(nnr), any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">107</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">37</td>
+                    <td class="coverage">303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      round(x.pointsG),</pre>
+                      <pre class="language-r">  assert_numeric(nnrF, max.len = length(nnr), any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">108</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">38</td>
+                    <td class="coverage">303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "%,Prob. go=",</pre>
+                      <pre class="language-r">  assert_number(truep, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">109</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">39</td>
+                    <td class="coverage">303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      round(y.pointsG),</pre>
+                      <pre class="language-r">  assert_numeric(parE, lower = 0, finite = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">40</td>
+                    <td class="coverage">303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "%",</pre>
+                      <pre class="language-r">  assert_numeric(parS, lower = 0, finite = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">111</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">41</td>
+                    <td class="coverage">303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sep = ""</pre>
+                      <pre class="language-r">  assert_number(tL, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">42</td>
+                    <td class="coverage">303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">  assert_number(tU, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">113</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">43</td>
+                    <td class="coverage">303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    side = 3,</pre>
+                      <pre class="language-r">  assert_number(deltaE, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">114</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">44</td>
+                    <td class="coverage">303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    line = 1</pre>
+                      <pre class="language-r">  assert_number(deltaF, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">45</td>
+                    <td class="coverage">303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  assert_flag(relativeDelta)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">117</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">47</td>
+                    <td class="coverage">303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  graphics::lines(x.mode, y, col = "green", lwd = 3, type = "l") # Plot PDF of beta(R,NR);</pre>
+                      <pre class="language-r">  index_look &lt;- 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">48</td>
+                    <td class="coverage">303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  size_look &lt;- nnr[index_look]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">119</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  graphics::lines(x.mode, z, col = "red", lwd = 3, type = "l")</pre>
+                      <pre class="language-r">  all_sizes &lt;- decision &lt;- NA</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">50</td>
+                    <td class="coverage">303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  response &lt;- stats::rbinom(max(nnr), size = 1, truep)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</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">122</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  while (is.na(decision) &amp;&amp; index_look &lt;= length(nnr)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">123</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">53</td>
+                    <td class="coverage">538<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (Pos_cut == Neg_cut) {</pre>
+                      <pre class="language-r">    if (size_look %in% nnrF) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">124</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">54</td>
+                    <td class="coverage">296<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::abline(h = Pos_cut, col = "black", lwd = 2)</pre>
+                      <pre class="language-r">      qL &lt;- postprobDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">296<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        x = 0,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">56</td>
+                    <td class="coverage">296<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        n = 0,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">127</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">296<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  graphics::box()</pre>
+                      <pre class="language-r">        xS = sum(response[1:size_look]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">296<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        nS = size_look,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">129</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">296<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  LablePoint2 &lt;- unique(sort(c(</pre>
+                      <pre class="language-r">        delta = deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">130</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">296<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ceiling(min(x.mode) * 10) / 10,</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">131</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">296<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xticks, floor(max(x.mode) * 10) / 10</pre>
+                      <pre class="language-r">        parE = parS,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">132</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">296<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))) ## Can be modified</pre>
+                      <pre class="language-r">        parS = parE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">134</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">64</td>
+                    <td class="coverage">296<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  graphics::axis(1, at = LablePoint2, labels = paste(LablePoint2, "%", sep = ""), las = 1, lwd = 2, cex.axis = 1)</pre>
+                      <pre class="language-r">      decision &lt;- ifelse(qL &gt;= tL, FALSE, NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">136</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">538<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(data)</pre>
+                      <pre class="language-r">    if (size_look %in% nnrE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">137</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">491<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      qU &lt;- postprobDist(</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/boundsPredprob.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">68</td>
+                    <td class="coverage">491<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        x = sum(response[1:size_look]),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">69</td>
+                    <td class="coverage">491<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        n = size_look,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">491<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        xS = 0,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">491<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Decision cutpoints for boundary (based on predictive probability)</pre>
+                      <pre class="language-r">        nS = 0,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">491<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        delta = deltaE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">73</td>
+                    <td class="coverage">491<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function is used to identify the efficacy boundary and futility</pre>
+                      <pre class="language-r">        relativeDelta = relativeDelta,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">491<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' boundary based on predictive probabilities, i.e.:</pre>
+                      <pre class="language-r">        parE = parE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">491<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Efficacy boundary: find minimum x (xU) where</pre>
+                      <pre class="language-r">        parS = parS</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Pr(Pr(P &gt; p | x, Y) &gt;= tT | x) &gt; phiU,</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">77</td>
+                    <td class="coverage">491<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Futility boundary: find maximum x (xL) where</pre>
+                      <pre class="language-r">      decision &lt;- ifelse(qU &lt; tU, decision, TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Pr(Pr(P &gt; p | x, Y) &gt;= tT | x) &lt; phiL</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">79</td>
+                    <td class="coverage">538<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    all_sizes &lt;- size_look</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">538<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param nvec  a vector of number of patients</pre>
+                      <pre class="language-r">    index_look &lt;- index_look + 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">538<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param Nmax  maximum number of patients at the end of the trial</pre>
+                      <pre class="language-r">    size_look &lt;- nnr[index_look]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (default: maximum of \code{nvec})</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">83</td>
+                    <td class="coverage">303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param p  threshold on the response rate</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param tT  threshold on the posterior probability to be above p</pre>
+                      <pre class="language-r">    decision = decision,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">85</td>
+                    <td class="coverage">303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param phiL  futility boundary predictive probability threshold</pre>
+                      <pre class="language-r">    all_sizes = all_sizes</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param phiU  efficacy boundary predictive probability threshold</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param a  the alpha parameter of a beta prior of treatment group</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param b  the beta parameter of a beta prior of treatment group</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A matrix where for each sample size in \code{nvec}, this function</pre>
+                      <pre class="language-r">#' Calculate Operating characteristics of Posterior Probability method</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' returns the maximum number of responses that meet the futility</pre>
+                      <pre class="language-r">#' with Beta Prior on the Control or Standard of Care Arm</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' threshold (xL), its corresponding response rate (pL), predictive probability</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (ppL) and posterior probability (postL), the upper bound of one</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' sided 95% CI for the response rate based on an</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' exact binomial test (UciL), and the same boundary parameters for efficacy:</pre>
+                      <pre class="language-r">#' The trial is stopped for Efficacy if the posterior probability of assumed</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the minimal number of responses that meet the efficacy threshold (xU),</pre>
+                      <pre class="language-r">#' true response rate or `truep` is better than the control arm by at least</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the corresponding response rate (pU), predictive probability</pre>
+                      <pre class="language-r">#' `deltaE`, is larger than `tU`. Analogously, The trial is stopped for Efficacy</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (ppL) and posterior probability (postU), the lower bound of one sided</pre>
+                      <pre class="language-r">#' if the posterior probability of assumed true response rate or `truep` is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 95% CI for the response rate based on exact binomial test (LciU).</pre>
+                      <pre class="language-r">#' better than the control arm by at least `deltaF`, is larger than `tL`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' for Futility looks. If these criteria are not met, the trial is continued</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom stats binom.test</pre>
+                      <pre class="language-r">#' and at the maximum sample size, it may reach no decision or "gray zone".The</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' following represents the stopping criteria for Efficacy and Futility</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/boundsPredprob.R</pre>
+                      <pre class="language-r">#' respectively.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords graphics</pre>
+                      <pre class="language-r">#' Stop criteria for Efficacy :</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">boundsPredprob &lt;- function(nvec, Nmax = max(nvec), p, tT, phiL, phiU, a, b) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">36</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  znames &lt;- c(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">37</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    "xL", "pL", "ppL", "postL", "UciL",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">38</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    "xU", "pU", "ppU", "postU", "LciU"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">40</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  z &lt;- matrix(NA, length(nvec), length(znames))</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">41</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  dimnames(z) &lt;- list(nvec, znames)</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">42</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  k &lt;- 0</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">43</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  for (n in nvec) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">44</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    k &lt;- k + 1</pre>
+                      <pre class="language-r">#' `Pr(truep &gt; P_S + deltaE) &gt; tU`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # initialize so will return NA if 0 or n in "continue" region</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">46</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    xL &lt;- NA</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">47</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">108</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xU &lt;- NA</pre>
+                      <pre class="language-r">#' Stop criteria for Futility :</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">48</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">109</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for (x in 0:n) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">49</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pp &lt;- predprob(x, n, Nmax, p, tT, parE = c(a, b))$result</pre>
+                      <pre class="language-r">#' `Pr(truep &lt; P_S + deltaF) &gt; tL`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">50</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">111</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (pp &lt;= phiL) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">51</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xL &lt;- x</pre>
+                      <pre class="language-r">#' Where `truep` is the assumed true rate of response and `p1` and `p0` respectively are</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' the thresholds for Efficacy and Futility respectively.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">53</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">114</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (pp &gt;= phiU) {</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">115</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xU &lt;- x</pre>
+                      <pre class="language-r">#' Resulting operating characteristics include the following:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # done: leave innermost for loop</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">56</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">117</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        break</pre>
+                      <pre class="language-r">#' - `ExpectedN`: expected number of patients in the trials</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' - `PrStopEarly`: probability to stop the trial early (before reaching the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' maximum sample size)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # reset xU to NA if phiU=1 and n&lt;Nmax</pre>
+                      <pre class="language-r">#' - `PrEarlyEff`: probability of Early Go decision</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">60</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (n &lt; Nmax &amp;&amp; phiU == 1) {</pre>
+                      <pre class="language-r">#' - `PrEarlyFut`: probability of for Early Stop decision</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">61</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">122</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xU &lt;- NA</pre>
+                      <pre class="language-r">#' - `PrEfficacy`: probability of Go decision</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' - `PrFutility`: probability of Stop decision</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # calculate predictive and posterior probabilities at boundaries</pre>
+                      <pre class="language-r">#' - `PrGrayZone`: probability between Go and Stop ,"Evaluate" or Gray decision zone</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">64</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ppL &lt;- predprob(xL, n, Nmax, p, tT, parE = c(a, b))$result</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">65</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ppU &lt;- predprob(xU, n, Nmax, p, tT, parE = c(a, b))$result</pre>
+                      <pre class="language-r">#' @inheritParams ocPostprob</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">66</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">127</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    postL &lt;- postprob(xL, n, p, parE = c(a, b))</pre>
+                      <pre class="language-r">#' @inheritParams postprobDist</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">67</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    postU &lt;- postprob(xU, n, p, parE = c(a, b))</pre>
+                      <pre class="language-r">#' @inheritParams h_get_decisionDist</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # calculate lower CI at boundaries</pre>
+                      <pre class="language-r">#' @inheritParams h_get_distance</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">69</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    UciL &lt;- ifelse(!is.na(xL), stats::binom.test(xL, n, alt = "less")$conf.int[2], NA)</pre>
+                      <pre class="language-r">#' @typed deltaE : number</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">70</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    LciU &lt;- ifelse(!is.na(xU), stats::binom.test(xU, n, alt = "greater")$conf.int[1], NA)</pre>
+                      <pre class="language-r">#'  margin of which the response rate in the treatment group should be better</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">71</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    z[k, ] &lt;- c(xL, xL / n, ppL, postL, UciL, xU, xU / n, ppU, postU, LciU)</pre>
+                      <pre class="language-r">#'  than in the standard of care of `group`. Delta for Efficacy is used to</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'  calculate `P(truep &gt; P_S + deltaE)` which should</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">73</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(round(data.frame(nvec, z), 4))</pre>
+                      <pre class="language-r">#'  exceed threshold `tU` to to stop for Efficacy. `DeltaE` can also be negative in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'  non-inferiority setting. See also note.</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/boundsPostprob.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Decision cutpoints for boundary (based on posterior probability)</pre>
+                      <pre class="language-r">#' @typed deltaF : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'  margin of which the response rate in the treatment group should be better</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function is used to identify the efficacy and futility</pre>
+                      <pre class="language-r">#'  than in the standard of care of `group`. Delta for Futility is used to</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' boundaries based on posterior probabilities, i.e.:</pre>
+                      <pre class="language-r">#'  calculate  `P(truep &gt; P_S - deltaF)` which should</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Efficacy boundary: find minimum x (xU) where Pr(P&gt;p0|x,n,a,b) &gt;= tU and</pre>
+                      <pre class="language-r">#'  exceed threshold `tL` to stop for Futility.`DeltaF` can also be negative in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Futility boundary: find maximum x (xL) where Pr(P&gt;p1|x,n,a,b) &lt;= tL</pre>
+                      <pre class="language-r">#'  non-inferiority setting. See also note.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param nvec a vector of number of patients</pre>
+                      <pre class="language-r">#' @note</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param p0 the efficacy threshold parameter in the postprob function</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param p1 the futility threshold parameter in the postprob function</pre>
+                      <pre class="language-r">#' ## Delta :</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (default = p0)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param tL futility boundary probability threshold</pre>
+                      <pre class="language-r">#' The desired improvement is denoted as `deltaE` or `deltaF` and two options</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param tU efficacy boundary probability threshold</pre>
+                      <pre class="language-r">#' exist in its use: The absolute case when `relativeDelta = FALSE` and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param a  the alpha parameter of the beta prior of treatment group</pre>
+                      <pre class="language-r">#' relative as when `relativeDelta = TRUE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param b  the beta parameter of the beta prior of treatment group</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A matrix where for each sample size in \code{nvec}, this function</pre>
+                      <pre class="language-r">#' 1. The absolute case is when we define an absolute delta, greater than `P_S`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' returns the maximum number of responses that meet the futility</pre>
+                      <pre class="language-r">#' the response rate of the standard of care or control or `S` group such that</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' threshold (xL), its corresponding response rate (pL), posterior probability</pre>
+                      <pre class="language-r">#' the posterior is `Pr(truep &gt; P_S + deltaE | data)` for Efficacy looks</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (postL), upper bound of one sided 95% CI for the response rate based on an</pre>
+                      <pre class="language-r">#' or `Pr(truep &gt; P_S + deltaF | data)` for Futility looks.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' exact binomial test (UciL), and the same boundary parameters for efficacy:</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the minimal number of responses that meet the efficacy threshold (xU),</pre>
+                      <pre class="language-r">#' 2. In the relative case, we suppose that the treatment group's</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the corresponding response rate (pU), posterior probability (postU) and</pre>
+                      <pre class="language-r">#' response rate is assumed to be greater than `P_S + (1-P_S) * delta` such that</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the lower bound of one sided 95% CI for the response rate based on exact</pre>
+                      <pre class="language-r">#' the posterior is `Pr(truep &gt; P_S + (1 - P_S) * deltaE | data)` for Efficacy looks</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' binomial test (LciU).</pre>
+                      <pre class="language-r">#' or `Pr(truep &gt; P_S + (1 - P_S) * deltaF | data)` for Futility looks.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <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">26</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom stats binom.test</pre>
+                      <pre class="language-r">#' @example examples/ocPostprobDist.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">162</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">28</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/boundsPostprob.R</pre>
+                      <pre class="language-r">ocPostprobDist &lt;- function(nnE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                           truep,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords graphics</pre>
+                      <pre class="language-r">                           deltaE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">boundsPostprob &lt;- function(nvec, p0, p1 = p0, tL, tU, a, b) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">32</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  z &lt;- matrix(NA, length(nvec), 6)</pre>
+                      <pre class="language-r">                           deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">33</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">167</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dimnames(z) &lt;- list(nvec, c(</pre>
+                      <pre class="language-r">                           relativeDelta = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">34</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">168</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "xL", "pL", "postL",</pre>
+                      <pre class="language-r">                           tL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">35</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">169</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "xU", "pU", "postU"</pre>
+                      <pre class="language-r">                           tU,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r">                           parE = c(a = 1, b = 1),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">37</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">171</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  znames &lt;- c(</pre>
+                      <pre class="language-r">                           parS = c(a = 1, b = 1),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">38</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">172</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "xL", "pL", "postL", "UciL",</pre>
+                      <pre class="language-r">                           wiggle = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">39</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">173</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "xU", "pU", "postU", "LciU"</pre>
+                      <pre class="language-r">                           sim = 50000,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                           nnF = nnE) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">41</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  z &lt;- matrix(NA, length(nvec), length(znames))</pre>
+                      <pre class="language-r">  assert_numeric(nnE, min.len = 1, lower = 1, upper = max(nnE), any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">42</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dimnames(z) &lt;- list(nvec, znames)</pre>
+                      <pre class="language-r">  assert_number(truep, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">43</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  k &lt;- 0</pre>
+                      <pre class="language-r">  assert_number(deltaE, upper = 1, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">44</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (n in nvec) {</pre>
+                      <pre class="language-r">  assert_number(deltaF, upper = 1, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">45</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    k &lt;- k + 1</pre>
+                      <pre class="language-r">  assert_flag(relativeDelta)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # initialize so will return NA if 0 or n in "continue" region</pre>
+                      <pre class="language-r">  assert_number(tL, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">47</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xL &lt;- NA</pre>
+                      <pre class="language-r">  assert_number(tU, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">48</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">182</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xU &lt;- NA</pre>
+                      <pre class="language-r">  assert_numeric(parE, lower = 0, finite = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">49</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for (x in 0:n) {</pre>
+                      <pre class="language-r">  assert_numeric(parS, lower = 0, finite = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">50</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      postp &lt;- postprob(x, n, p1, parE = c(a, b))</pre>
+                      <pre class="language-r">  assert_number(sim, lower = 1, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">51</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (postp &lt;= tL) {</pre>
+                      <pre class="language-r">  assert_flag(wiggle)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">52</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xL &lt;- x</pre>
+                      <pre class="language-r">  assert_numeric(nnF, min.len = 0, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">54</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (p0 != p1) {</pre>
+                      <pre class="language-r">  if (sim &lt; 50000) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">55</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        postp &lt;- postprob(x, n, p0, parE = c(a, b))</pre>
+                      <pre class="language-r">    warning("Advise to use sim &gt;= 50000 to achieve convergence")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">57</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">191</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (postp &gt;= tU) {</pre>
+                      <pre class="language-r">  decision &lt;- vector(length = sim)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">58</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">192</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xU &lt;- x</pre>
+                      <pre class="language-r">  all_sizes &lt;- vector(length = sim)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # done: leave innermost for loop</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">60</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        break</pre>
+                      <pre class="language-r">  nnE &lt;- sort(nnE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">195</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  nnF &lt;- sort(nnF)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">196</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  nn &lt;- sort(unique(c(nnF, nnE)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # calculate posterior probabilities at boundaries</pre>
+                      <pre class="language-r">  nL &lt;- length(nn)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">64</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    postL &lt;- postprob(xL, n, p1, parE = c(a, b))</pre>
+                      <pre class="language-r">  Nstart &lt;- nn[1]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">65</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    postU &lt;- postprob(xU, n, p0, parE = c(a, b))</pre>
+                      <pre class="language-r">  Nmax &lt;- nn[nL]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # calculate lower CI at boundaries</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">67</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">201</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    UciL &lt;- ifelse(!is.na(xL), stats::binom.test(xL, n, alt = "less")$conf.int[2], NA)</pre>
+                      <pre class="language-r">  # simulate a clinical trial sim times</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">68</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    LciU &lt;- ifelse(!is.na(xU), stats::binom.test(xU, n, alt = "greater")$conf.int[1], NA)</pre>
+                      <pre class="language-r">  for (k in seq_len(sim)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">69</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">203</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    z[k, ] &lt;- c(xL, xL / n, postL, UciL, xU, xU / n, postU, LciU)</pre>
+                      <pre class="language-r">    if (length(nn) != 1 &amp;&amp; wiggle) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      # randomly generate look locations</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">71</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(round(data.frame(nvec, z), 4))</pre>
+                      <pre class="language-r">      dist &lt;- h_get_distance(nn = nn)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">206</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      nnr &lt;- h_get_looks(dist = dist, nnE = nnE, nnF = nnF) # we generate sim number of looks</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/plotOc.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">207</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Display the operating characteristics using an oc object</pre>
+                      <pre class="language-r">      nnrE &lt;- nnr$nnrE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">208</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      nnrF &lt;- nnr$nnrF</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Reads results from \code{\link{ocPredprob}}, \code{\link{ocPostprob}}</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">210</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' etc. and displays a bar plot of the operating characteristics</pre>
+                      <pre class="language-r">      dist &lt;- NULL</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">211</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      nnrE &lt;- nnE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">212</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param z returned oc value</pre>
+                      <pre class="language-r">      nnrF &lt;- nnF</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return nothing, only plots as side effect</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">214</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    nnr &lt;- unique(c(nnrE, nnrF))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">215</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom graphics barplot title</pre>
+                      <pre class="language-r">    tmp &lt;- h_get_decisionDist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">216</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      nnr = nnr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">217</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/plotOc.R</pre>
+                      <pre class="language-r">      nnrE = nnrE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">218</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      nnrF = nnrF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords graphics</pre>
+                      <pre class="language-r">      truep = truep,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">220</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">plotOc &lt;- function(z) {</pre>
+                      <pre class="language-r">      parE = c(1, 1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">221</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## plot function for oc.predprob or oc.postprob, or the dist versions of them</pre>
+                      <pre class="language-r">      tL = tL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">16</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  graphics::barplot(table(z$Decision, z$SampleSize) / z$params$sim, beside = TRUE)</pre>
+                      <pre class="language-r">      tU = tU,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      deltaE = deltaE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## get the parameter</pre>
+                      <pre class="language-r">      deltaF = deltaF,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">19</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">225</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  parDat &lt;- lapply(z$params, deparse)</pre>
+                      <pre class="language-r">      relativeDelta = relativeDelta</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">227</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## get parameters, which are saved in parDat</pre>
+                      <pre class="language-r">    decision[k] &lt;- tmp$decision</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">22</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">228</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  allParNames &lt;- c(</pre>
+                      <pre class="language-r">    all_sizes[k] &lt;- tmp$all_sizes</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">23</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">229</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "p", "p0", "p1",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">24</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">230</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "delta", "deltaE", "deltaF", "relativeDelta",</pre>
+                      <pre class="language-r">  oc &lt;- h_get_oc(all_sizes = all_sizes, Nmax = Nmax, decision = decision)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">25</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">231</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "phiL", "phiU", "tL", "tU", "tT", "parE", "parS"</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    oc = oc,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">27</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">  parInds &lt;- which(names(parDat) %in% allParNames)</pre>
+                      <pre class="language-r">    Decision = decision,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    SampleSize = all_sizes,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">29</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">235</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  graphics::title(paste(names(parDat[parInds]), parDat[parInds],</pre>
+                      <pre class="language-r">    union_nn = nnr,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">30</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">236</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sep = "=", collapse = ", "</pre>
+                      <pre class="language-r">    input_nnE = nnE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">237</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r">    input_nnF = nnF,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">32</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">238</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  graphics::title(xlab = paste(dimnames(z$oc)[[2]], signif(z$oc, 3),</pre>
+                      <pre class="language-r">    wiggled_nnE = nnrE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">33</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">239</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sep = " = ", collapse = ", "</pre>
+                      <pre class="language-r">    wiggled_nnF = nnrF,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">240</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r">    wiggle_dist = dist,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">241</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    params = as.list(match.call(expand.dots = FALSE))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">36</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">242</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(invisible())</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -29772,14 +29876,14 @@ <h2>phase1b coverage - 64.86%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/plotBeta.R" class="hidden">
+            <div id="R/postprobDist.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">#' Plot the Beta distribution</pre>
+                      <pre class="language-r">#' The Posterior Beta Mixture Integrand when `delta` is relative</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -29793,7 +29897,7 @@ <h2>phase1b coverage - 64.86%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function will plot the PDF of a beta distribution</pre>
+                      <pre class="language-r">#' The helper function to generate Integrand function when `relativeDelta = TRUE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -29807,1650 +29911,1588 @@ <h2>phase1b coverage - 64.86%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed alpha : number</pre>
+                      <pre class="language-r">#' @typed delta : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  first parameter of the Beta distribution</pre>
+                      <pre class="language-r">#'  margin by which the response rate in the treatment group should</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @typed beta : number</pre>
+                      <pre class="language-r">#'  be better than in the standard of care or control or `S` group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  second parameter of the Beta distribution</pre>
+                      <pre class="language-r">#'  Note that this can also be negative, e.g. when non-inferiority is being assessed.</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">#' @typed p_s : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A beta distribution density plot</pre>
+                      <pre class="language-r">#'  probability of success or response rate of standard of care or control or `S` group.</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">#' @typed activeBetamixPost : list</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom graphics axis</pre>
+                      <pre class="language-r">#'  a list of posterior parameters of a beta-mixture-binomial distribution with generic names</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">#'  `par` and `weights`. See [h_getBetamixPost()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/plotBeta.R</pre>
+                      <pre class="language-r">#' @typed controlBetamixPost : list</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'  a list of posterior parameters of a beta-mixture-binomial distribution with generic names</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords graphics</pre>
+                      <pre class="language-r">#'  `par` and `weights`. See [h_getBetamixPost()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">plotBeta &lt;- function(alpha, beta) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">18</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_support &lt;- seq(from = 0, to = 1, length = 1000)</pre>
+                      <pre class="language-r">#' @return Function that is an argument for [stats::integrate()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">19</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data &lt;- data.frame(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">20</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grid = x_support,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">21</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xticks = seq(from = 0, to = 1, by = 0.25),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">22</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    density = dbeta(x_support, alpha, beta)</pre>
+                      <pre class="language-r">h_integrand_relDelta &lt;- function(p_s, delta, activeBetamixPost, controlBetamixPost) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">23</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">211862<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  cdf &lt;- postprob(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">24</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">211862<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ggplot2::ggplot(data) +</pre>
+                      <pre class="language-r">    x = 0, # Needed for Vectorize()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">25</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">211862<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::geom_line(ggplot2::aes(x = grid, y = density)) +</pre>
+                      <pre class="language-r">    p = (1 - p_s) * delta + p_s,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">26</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">211862<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::ggtitle(paste("Beta density with alpha =", alpha, "and beta =", beta, "parameters.")) +</pre>
+                      <pre class="language-r">    betamixPost = activeBetamixPost</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">27</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::xlab("response rate") +</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">28</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">211862<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::ylab(quote(f(x))) +</pre>
+                      <pre class="language-r">  pdf &lt;- with(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">29</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">211862<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::theme(axis.ticks.x = ggplot2::element_line(linewidth = 0.5)) +</pre>
+                      <pre class="language-r">    controlBetamixPost,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">30</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">211862<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::scale_x_continuous(labels = scales::percent_format())</pre>
+                      <pre class="language-r">    dbetaMix(x = p_s, par = par, weights = weights)</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">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">32</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">211862<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  cdf * pdf</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Plot Diff Between two Beta distributions</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function will plot the PDF of a difference between two Beta distributions</pre>
+                      <pre class="language-r">#' The Posterior Beta Mixture Integrand when Delta is absolute</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">#' The helper function to generate Integrand function when `relativeDelta = FALSE`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param parY non-negative parameters of the treatment Beta distribution.</pre>
+                      <pre class="language-r">#' a default setting.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param parX non-negative parameters of the historical control Beta distribution</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param cut_B a meaningful improvement threshold</pre>
+                      <pre class="language-r">#' @inheritParams h_integrand_relDelta</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param cut_W a poor improvement throshold</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param shade paint the two areas under the curve, default value=1 as "yes". other numbers stands for "no";</pre>
+                      <pre class="language-r">#' @return Function that is an argument for [stats::integrate()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param note show values of the colored area, default value=1 as "yes". other numbers stands for "no"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param \dots additional arguments to \code{plot}</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return nothing, only produces the plot as side effect</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">h_integrand &lt;- function(p_s, delta, activeBetamixPost, controlBetamixPost) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">46</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">154350<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @example examples/myPlotDiff.R</pre>
+                      <pre class="language-r">  cdf &lt;- postprob(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">47</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">154350<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    x = 0, # Needed for Vectorize()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">48</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">154350<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom graphics par axis polygon mtext</pre>
+                      <pre class="language-r">    p = p_s + delta,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">49</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">154350<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom stats integrate</pre>
+                      <pre class="language-r">    betamixPost = activeBetamixPost</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">51</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">154350<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  pdf &lt;- with(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">52</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">154350<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords graphics</pre>
+                      <pre class="language-r">    controlBetamixPost,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">53</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">154350<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">myPlotDiff &lt;- function(parY, # parameters of phase Ib trial;</pre>
+                      <pre class="language-r">    dbetaMix(x = p_s, par = par, weights = weights)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       parX, # parameters of HC;</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">55</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">154350<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       cut_B = 0.20, # a meaningful improvement threshold;</pre>
+                      <pre class="language-r">  cdf * pdf</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       cut_W = 0.1, # a poor improvement threshold;</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       shade = 1, # paint the two areas under the curve, default: yes. other numbers stands for "no";</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       note = 1, # show values of the colored area, default: yes. other numbers stands for "no";</pre>
+                      <pre class="language-r">#' Generating bounds for the Integration of Beta Mixture Posterior</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="missed">
+                  <tr class="never">
                     <td class="num">60</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (note == 1) {</pre>
+                      <pre class="language-r">#' Using the quantile of the Beta Mixture Distribution from parameters given by standard of care `S` or</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">61</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::par(mar = c(5, 15, 1, 15) + .1)</pre>
+                      <pre class="language-r">#' experimental group `E` to determine bounds as inputs to [stats::integrate()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">63</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::par(mar = c(5, 5, 1, 5) + .1)</pre>
+                      <pre class="language-r">#' @inheritParams h_integrand_relDelta</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="missed">
+                  <tr class="never">
                     <td class="num">65</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grid &lt;- seq(from = -0.5, to = 0.75, length = 1000)</pre>
+                      <pre class="language-r">#' @return Integrand function</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">66</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xticks &lt;- seq(from = -1, to = 1, by = 0.25)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">h_get_bounds &lt;- function(controlBetamixPost) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">70</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  graphics::plot(</pre>
+                      <pre class="language-r">  epsilon &lt;- .Machine$double.xmin</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">71</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = grid,</pre>
+                      <pre class="language-r">  with(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y = dbetadiff(grid, parY = parY, parX = parX),</pre>
+                      <pre class="language-r">    controlBetamixPost,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">73</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ylab = "",</pre>
+                      <pre class="language-r">    qbetaMix(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xaxt = "n",</pre>
+                      <pre class="language-r">      p = c(epsilon, 1 - epsilon),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">75</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    yaxt = "n",</pre>
+                      <pre class="language-r">      par = par,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    type = "l",</pre>
+                      <pre class="language-r">      weights = weights</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">77</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xaxs = "i",</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">78</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    yaxs = "i",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ...</pre>
+                      <pre class="language-r">}</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"></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">#' Compute the Posterior Probability with Beta Prior on standard of care `S`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">82</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  graphics::axis(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">83</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    side = 1, at = xticks,</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</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">    labels =</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">85</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste(ifelse(xticks &gt;= 0, "+", ""),</pre>
+                      <pre class="language-r">#' Using the approach by Thall and Simon (Biometrics, 1994), this evaluates the</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">86</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xticks * 100, "%",</pre>
+                      <pre class="language-r">#' posterior probability of achieving superior response rate in the treatment group `E`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">87</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sep = ""</pre>
+                      <pre class="language-r">#' compared to standard of care `S`. See note below for two formulations of the difference in response rates.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @inheritParams h_integrand_relDelta</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## now color the go / stop prob areas</pre>
+                      <pre class="language-r">#' @typed x : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'  number of success counts in the `E` group.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">93</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (shade == 1) {</pre>
+                      <pre class="language-r">#' @typed n : number</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## first stop:</pre>
+                      <pre class="language-r">#'  number of patients in the `E` group.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">95</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stopGrid &lt;- grid[grid &lt;= cut_W]</pre>
+                      <pre class="language-r">#' @typed xS : number</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">96</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nStop &lt;- length(stopGrid)</pre>
+                      <pre class="language-r">#'  number of success counts in the `S` group.</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">#' @typed nS : number</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">98</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::polygon(</pre>
+                      <pre class="language-r">#'  number of patients in the `S` group.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">99</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x =</pre>
+                      <pre class="language-r">#' @typed relativeDelta : flag</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">100</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(</pre>
+                      <pre class="language-r">#'  If `TRUE`, then a `relativeDelta` is used. Represents that a minimum</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">101</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          stopGrid,</pre>
+                      <pre class="language-r">#'  response rate in magnitude of `delta` of the `S` non-responding patients</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">102</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rev(stopGrid)</pre>
+                      <pre class="language-r">#'  is included as the margin between treatment and control group. See note.</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">#' @typed parE : "`numeric` or `matrix`"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">104</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y =</pre>
+                      <pre class="language-r">#'  parameters for beta distribution. If it is a matrix, it needs to have 2 columns,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">105</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(</pre>
+                      <pre class="language-r">#'  and each row corresponds to each component of a beta-mixture distribution</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">106</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rep(0, nStop),</pre>
+                      <pre class="language-r">#'  for the `E` group. See details.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">107</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dbetadiff(rev(stopGrid), parY = parY, parX = parX)</pre>
+                      <pre class="language-r">#' @typed weights : numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">#'  the non-negative mixture weights of the beta mixture prior for group `E`. See details.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">109</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      col = "red"</pre>
+                      <pre class="language-r">#' @typed parS : "`numeric` or `matrix`"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'  parameters for beta distribution. If it is a matrix, it needs to have 2 columns,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'  and each row corresponds to each component of a beta-mixture distribution</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">112</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    A_value &lt;- stats::integrate(</pre>
+                      <pre class="language-r">#'  for the `S` group. See details.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">113</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      f = dbetadiff,</pre>
+                      <pre class="language-r">#' @typed weightsS : numeric</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">114</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parY = parY,</pre>
+                      <pre class="language-r">#'  the non-negative mixture weights of the beta mixture prior for group `S`. See details.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">115</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parX = parX,</pre>
+                      <pre class="language-r">#' @return The posterior probability</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">116</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lower = -1,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">117</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      upper = cut_W</pre>
+                      <pre class="language-r">#' @note</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">119</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (note == 1) {</pre>
+                      <pre class="language-r">#' ## Delta :</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">120</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      graphics::mtext(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">121</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        paste("Prob(diff&lt; ", round(cut_W * 100), "%)=",</pre>
+                      <pre class="language-r">#' The desired improvement is denoted as `delta`. There are two options in using `delta`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">122</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sprintf("%1.2f%%", 100 * as.numeric(A_value$value)),</pre>
+                      <pre class="language-r">#' The absolute case when `relativeDelta = FALSE` and relative as when `relativeDelta = TRUE`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">123</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sep = ""</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">#' 1. The absolute case is when we define an absolute delta, greater than `P_S`,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">125</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        side = 2, line = 1, las = 1, cex = 1</pre>
+                      <pre class="language-r">#' the response rate of the standard of care or control or `S` group such that</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">#' the posterior is `Pr(P_E &gt; P_S + delta | data)`.</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">#' 2. In the relative case, we suppose that the treatment group's</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ## then go:</pre>
+                      <pre class="language-r">#' response rate is assumed to be greater than `P_S + (1-P_S) * delta` such that</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">130</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    goGrid &lt;- grid[grid &gt;= cut_B]</pre>
+                      <pre class="language-r">#' the posterior is `Pr(P_E &gt; P_S + (1 - P_S) * delta | data)`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">131</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nGo &lt;- length(goGrid)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">133</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::polygon(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">134</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x =</pre>
+                      <pre class="language-r">#' The beta mixture prior for the `E` arm requires argument `parE` and `weights`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">135</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(</pre>
+                      <pre class="language-r">#' The beta mixture prior for the `S` arm requires argument `parS` and `weightsS`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">136</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          goGrid,</pre>
+                      <pre class="language-r">#' See [postprob()] for details.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">137</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rev(goGrid)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">#' If a beta-mixture is used, by default, the weights are uniform across the components.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">139</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y =</pre>
+                      <pre class="language-r">#' Weights can exceed 1, to which the algorithm will normalize the weights such that all weights sum to 1.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">140</td>
-                    <td class="coverage">!</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="missed">
+                  <tr class="never">
                     <td class="num">141</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rep(0, nGo),</pre>
+                      <pre class="language-r">#' @example examples/postprobDist.R</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">142</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dbetadiff(rev(goGrid), parY = parY, parX = parX)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">postprobDist &lt;- function(x,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">144</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      col = "green"</pre>
+                      <pre class="language-r">                         n,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                         xS = 0,</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">                         nS = 0,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">147</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    B_value &lt;- stats::integrate(</pre>
+                      <pre class="language-r">                         delta,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">148</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      f = dbetadiff,</pre>
+                      <pre class="language-r">                         relativeDelta = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">149</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parY = parY,</pre>
+                      <pre class="language-r">                         parE = c(1, 1),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">150</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parX = parX,</pre>
+                      <pre class="language-r">                         weights,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">151</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lower = cut_B,</pre>
+                      <pre class="language-r">                         parS = c(1, 1),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">152</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      upper = 1</pre>
+                      <pre class="language-r">                         weightsS) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">153</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">144666<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  if (is.vector(parE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">154</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    assert_true(identical(length(parE), 2L))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">155</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">2303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (note == 1) {</pre>
+                      <pre class="language-r">    parE &lt;- t(parE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">156</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      graphics::mtext(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">157</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">144666<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        paste(</pre>
+                      <pre class="language-r">  if (is.vector(parS)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">158</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">2303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sprintf("%1.2f%%", 100 * as.numeric(B_value$value)),</pre>
+                      <pre class="language-r">    assert_true(identical(length(parS), 2L))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">159</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">2303<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "=Prob(diff&gt; ",</pre>
+                      <pre class="language-r">    parS &lt;- t(parS)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">160</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          round(cut_B * 100), "%)",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">161</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">144666<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sep = ""</pre>
+                      <pre class="language-r">  if (missing(weights)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">162</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2196<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">    weights &lt;- rep(1, nrow(parE))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">163</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        side = 4,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">164</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">144666<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        line = 1,</pre>
+                      <pre class="language-r">  if (missing(weightsS)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">165</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">2196<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        las = 1,</pre>
+                      <pre class="language-r">    weightsS &lt;- rep(1, nrow(parS))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">166</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        cex = 1</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">167</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">144666<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  assert_number(n, lower = min(x), finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">168</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">144665<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  assert_numeric(x, lower = 0, upper = n, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">169</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">144665<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  assert_number(nS, lower = 0, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">170</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  assert_number(xS, lower = 0, upper = nS, finite = TRUE)</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/runShinyPhase1b.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">171</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' Launch the ShinyPhase1b app</pre>
+                      <pre class="language-r">  assert_number(delta, upper = 1, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##'</pre>
+                      <pre class="language-r">  assert_flag(relativeDelta)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' Launch the ShinyPhase1b app in the default web browser.</pre>
+                      <pre class="language-r">  assert_numeric(weights, lower = 0, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##'</pre>
+                      <pre class="language-r">  assert_numeric(weightsS, lower = 0, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' @export</pre>
+                      <pre class="language-r">  assert_numeric(parE, lower = 0, finite = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">144664<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_numeric(parS, lower = 0, finite = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">144664<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  activeBetamixPost &lt;- lapply(x, function(x) h_getBetamixPost(x = x, n = n, par = parE, weights = weights))</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">runShinyPhase1b &lt;- function() {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">8</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  appDir &lt;- system.file("shinyapp", "ShinyPhase1b", package = "phase1b")</pre>
+                      <pre class="language-r">  controlBetamixPost &lt;- h_getBetamixPost(x = xS, n = nS, par = parS, weights = weightsS)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">9</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (appDir == "") {</pre>
+                      <pre class="language-r">  if (relativeDelta) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">10</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">182</td>
+                    <td class="coverage">58258<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("Could not find phase1b app directory. Try re-installing `phase1b`.", call. = FALSE)</pre>
+                      <pre class="language-r">    epsilon &lt;- .Machine$double.xmin</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">58258<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    integrand &lt;- h_integrand_relDelta</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">13</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">86406<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shiny::runApp(appDir, display.mode = "normal")</pre>
+                      <pre class="language-r">    epsilon &lt;- .Machine$double.xmin</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">86406<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    integrand &lt;- h_integrand</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  bounds &lt;- h_get_bounds(controlBetamixPost = controlBetamixPost)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  integral_results &lt;- lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">191</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># reference https://www.r-bloggers.com/supplementing-your-r-package-with-a-shiny-app-2/;</pre>
+                      <pre class="language-r">    seq_along(x),</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/sumTable.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">192</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' Return summary statistics under one response scenario</pre>
+                      <pre class="language-r">    function(i, this_posterior = activeBetamixPost, input_x = x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">193</td>
+                    <td class="coverage">144770<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##'</pre>
+                      <pre class="language-r">      intRes &lt;- integrate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">144770<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        f = integrand,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">195</td>
+                    <td class="coverage">144770<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        lower = max(bounds[1], ifelse(relativeDelta, 0, 0 - delta)),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">196</td>
+                    <td class="coverage">144770<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        upper = min(ifelse(relativeDelta, 1, 1 - delta), bounds[2]),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">144770<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' This function will calculate the summary statistics for a specific response</pre>
+                      <pre class="language-r">        delta = delta,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">144770<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' outcome scenario.</pre>
+                      <pre class="language-r">        activeBetamixPost = this_posterior[[i]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">144770<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##'</pre>
+                      <pre class="language-r">        controlBetamixPost = controlBetamixPost</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' @param thisResp number of responses</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">201</td>
+                    <td class="coverage">144770<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' @param TotalSample sample size</pre>
+                      <pre class="language-r">      if (intRes$message == "OK") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">144770<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' @param cut_B a meaningful improvement threshold: at least cut_B (e.g. 15%) improvement</pre>
+                      <pre class="language-r">        intRes$value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' @param cut_W a poor improvement threshold: at most cut_W (e.g. 5%) improvement</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">204</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' @param parX non-negative parameters of the beta distribution of the control (posterior)</pre>
+                      <pre class="language-r">        warning("Integration failed for posterior based on x =", input_x[i], "\n", intRes$message)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' @param YPri non-negative parameters of the beta prior of the treatment, default Beta(0.5,0.5)</pre>
+                      <pre class="language-r">        NA_real_</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' @param Round Rounding of the output statistics</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' @return A vector with the results.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">210</td>
+                    <td class="coverage">144664<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' @example examples/sumTable.R</pre>
+                      <pre class="language-r">  unlist(integral_results)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">##' @export</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/runShinyPhase1b.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">sumTable &lt;- function(thisResp, # number of responses;</pre>
+                      <pre class="language-r">##' Launch the ShinyPhase1b app</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     TotalSample, # Sample size;</pre>
+                      <pre class="language-r">##'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     cut_B, # meaningful improvement: at least cut_B (say 15\%) improvement;</pre>
+                      <pre class="language-r">##' Launch the ShinyPhase1b app in the default web browser.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     cut_W, # poor improvement: at most cut_W (say 5\%) improvement;</pre>
+                      <pre class="language-r">##'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     parX, # Two parameters of the beta distribution of the control (posterior);</pre>
+                      <pre class="language-r">##' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     YPri = c(0.5, 0.5), # Prior of phase Ib trial, default Beta(0.5,0.5)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     Round = 2) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">25</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  tmp &lt;- sumBetadiff(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">26</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    parX = parX,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">27</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    parY =</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">28</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      c(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">29</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        thisResp + YPri[1],</pre>
+                      <pre class="language-r">runShinyPhase1b &lt;- function() {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">30</td>
+                    <td class="num">8</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        TotalSample - thisResp + YPri[2]</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">  appDir &lt;- system.file("shinyapp", "ShinyPhase1b", package = "phase1b")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">32</td>
+                    <td class="num">9</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cutB = cut_B,</pre>
+                      <pre class="language-r">  if (appDir == "") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">33</td>
+                    <td class="num">10</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cutW = cut_W</pre>
+                      <pre class="language-r">    stop("Could not find phase1b app directory. Try re-installing `phase1b`.", call. = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">36</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  summaries &lt;- round(c(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">37</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    thisResp, thisResp / TotalSample * 100,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">38</td>
+                    <td class="num">13</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tmp$mode * 100, tmp$ci * 100, tmp$go * 100, tmp$nogo * 100</pre>
+                      <pre class="language-r">  shiny::runApp(appDir, display.mode = "normal")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">39</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">  ), Round)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">41</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  summaries &lt;- as.data.frame(summaries)</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">43</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  rownames(summaries) &lt;- c(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">44</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    "# resp", "obs ORR [%]", "mode [%]",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">45</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    "CI lower [%]", "CI upper [%]", "prob.go [%]", "prob.nogo [%]"</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">48</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  return(summaries)</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"># reference https://www.r-bloggers.com/supplementing-your-r-package-with-a-shiny-app-2/;</pre>
                     </td>
                   </tr>
                 </tbody>