Change in digits for table

flr · Jan 16, 2024 · 41719ce · 41719ce
1 parent ca2a8fd
commit 41719ce
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/tables.R b/R/tables.R
@@ -42,7 +42,7 @@ summTable <- function(data,  statistics=unique(data[['statistic']]),
     keyby=list(statistic, name, mp)]
 
   qdata[, fig:=paste0(
-    format(round(`50%`, 2), digits=1, scientific=FALSE, trim=TRUE), " (",
+    format(round(`50%`, 2), digits=2, scientific=FALSE, trim=TRUE), " (",
     format(round(`10%`, 2), digits=1, trim=TRUE, scientific=FALSE), "-",
     format(round(`90%`, 2), digits=1, trim=TRUE, scientific=FALSE), ")")]
 
@@ -55,7 +55,9 @@ summTable <- function(data,  statistics=unique(data[['statistic']]),
   mtab <- dcast(mdata, mp ~ name, value.var = "fig")
 
   # ASSEMBLE table
-  tab <- cbind(qtab[,1], qtab[,4], mtab[,2], mtab[,3], qtab[,6], mtab[,5])
+  # tab <- cbind(qtab[,1], qtab[,4], mtab[,2], mtab[,3], qtab[,6], mtab[,5])
+
+  tab <- qtab
 
   # RANK by row
   qrank <- dcast(qdata, mp ~ name, value.var = "50%")