Fixes in getMM

juanbot · Jul 4, 2020 · 4ce9d4f · 4ce9d4f
1 parent 1ceb353
commit 4ce9d4f
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 3 deletions.
diff --git a/R/main.R b/R/main.R
@@ -1775,7 +1775,7 @@ corDistance = function(a,b,signed=TRUE,cor.type="pearson"){
 #' @param keep.grey Use grey genes too
 #' @param alt.gene.index You can pass genes in a different order, use this index order for that
 #'
-#' @returnk Depending on the value of table.format, a data.frame with genes and MM values or a list
+#' @return A data.frame with genes and MM values or a list
 #' with genes as keys and the MMs as values
 #' @export
 #'
@@ -2707,7 +2707,7 @@ bottomUpNetwork = function(tissue="SNIG",
     adjacencies <<- apply(tom.matrix,2,sum)
     names(adjacencies) <<- colnames(tom.matrix)
     mms <<- getMM(net=net,genes=NULL,expr.data.file=expr.data,tissue=tissue,
-                  which.one=which.one,in.cluster=F)
+                  which.one=which.one)
   }else{
     adjacencies = apply(tom.matrix,2,sum)
     names(adjacencies) = colnames(tom.matrix)

diff --git a/R/netdb.R b/R/netdb.R
@@ -386,7 +386,7 @@ getModuleMostRelevantGenes = function(tissue="SNIG",
                                       cutoff=-1,
                                       expr.data.file=NULL){
 
-  mm = getMM(which.one=which.one,tissue=tissue,table.format = T,
+  mm = getMM(which.one=which.one,tissue=tissue,
              genes=NULL,
              expr.data.file=expr.data.file)
 

diff --git a/man/getMM.Rd b/man/getMM.Rd