Merge pull request #183 from RGLab/getLogFC-bugfix

amcdavid · web-flow · commit 1c60223ed85b · 2023-09-27T12:16:33.000-07:00
Repackaging #182
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: MAST
 Type: Package
 Title: Model-based Analysis of Single Cell Transcriptomics
-Version: 1.25.2
+Version: 1.27.1
 Date: 2023-04-20
 Authors@R: c(person("Andrew", "McDavid", email = "Andrew_McDavid@urmc.rochester.edu", role = c("aut", "cre")),
             person("Greg", "Finak", email="gfinak@fredhutch.org", role='aut'),
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))

Original file line number	Diff line number	Diff line change
`@@ -70,6 +70,7 @@ logFC <- function(zlmfit, contrast0, contrast1){`
`70`	`70`	`} else if(inherits(contrast0, 'Hypothesis')){`
`71`	`71`	`gh <- generateHypothesis(contrast0, coname)`
`72`	`72`	`contrast0 <- gh@contrastMatrix`
	`73`	`+ contrast0 <- t(contrast0)`
`73`	`74`	`}`
`74`	`75`	`if(missing(contrast1)){`
`75`	`76`	`contrast1 <- cbind(0, diag(1, nrow=length(coname)-1))`