transpose contrast0 if provided as class Hypothesis

RGLab · Sep 25, 2023 · 77a9bcd · 77a9bcd
1 parent c834de3
commit 77a9bcd
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/ZlmFit-logFC.R b/R/ZlmFit-logFC.R
@@ -70,6 +70,7 @@ logFC <- function(zlmfit, contrast0, contrast1){
     } else if(inherits(contrast0, 'Hypothesis')){
         gh <- generateHypothesis(contrast0, coname)
         contrast0 <- gh@contrastMatrix
+        contrast0 <- t(contrast0)
     } 
     if(missing(contrast1)){
         contrast1 <- cbind(0, diag(1, nrow=length(coname)-1))