fix bug in topTableBC for manual bias argument

koenvandenberge · koenvandenberge · commit 4a36b40c39ff · 2025-11-25T14:34:32.000+01:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: voomCLR
 Title: Compositional analysis of cell count data.
-Version: 0.99.39
+Version: 0.99.40
 Authors@R: 
     person("Koen", "Van den Berge", , "koen.vdberge@gmail.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0002-1833-8478"))
diff --git a/R/topTableBC.R b/R/topTableBC.R
@@ -117,7 +117,7 @@
   }
   
   # Bias calculation
-  if(!is.null(bias)){
+  if(is.null(bias)){
     bias <- apply(fit$coefficients, 2, function(x) {
       .getMode(x, n = n)
     })

Original file line number	Diff line number	Diff line change
`@@ -117,7 +117,7 @@`
`117`	`117`	`}`
`118`	`118`
`119`	`119`	`# Bias calculation`
`120`		`- if(!is.null(bias)){`
	`120`	`+ if(is.null(bias)){`
`121`	`121`	`bias <- apply(fit$coefficients, 2, function(x) {`
`122`	`122`	`.getMode(x, n = n)`
`123`	`123`	`})`