Fix tables

jan-imbi · Aug 14, 2023 · 99bc3b0 · 99bc3b0
1 parent b17b3ea
commit 99bc3b0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/table_format_functions.R b/R/table_format_functions.R
@@ -74,7 +74,7 @@ make_table <- function(D_list){
         `$b_{1, TC, e}$` = D$b[[1]][["TC"]][["efficacy"]],
         `$b_{2, TP, e}$` = NA_real_,
         `$b_{2, TC, e}$` = NA_real_,
-        `$n_{\\max}$`                =   sum(unlist(D$n)),
+        `$n_{\\max}$`                =   sum(round(unlist(D$n))),
         `$N_{H_0}$`                  =   D$ASN[["H0"]],
         `$N_{H_1}$`                  =   D$ASN[["H1"]],
         `$N_{H_0}^{P}$`              =   D$ASNP[["H0"]],
@@ -104,7 +104,7 @@ make_table <- function(D_list){
         `$b_{1, TC, e}$` = D$b[[1]][["TC"]][["efficacy"]],
         `$b_{2, TP, e}$` = D$b[[2]][["TP"]][["efficacy"]],
         `$b_{2, TC, e}$` = D$b[[2]][["TC"]][["efficacy"]],
-        `$n_{\\max}$`                =  sum(unlist(D$n)),
+        `$n_{\\max}$`                =  sum(round(unlist(D$cumn[[2]]))),
         `$N_{H_0}$`                  =  D$ASN[["H0"]],
         `$N_{H_1}$`                  =  D$ASN[["H1"]],
         `$N_{H_0}^{P}$`              =  D$ASNP[["H0"]],