Amending calculateSMI

sidmall · sidmall · commit c89a19c89118 · 2024-06-22T11:29:45.000+01:00
diff --git a/R/calculateSMI.R b/R/calculateSMI.R
@@ -73,7 +73,9 @@ calculateSMI <- function(data, datatype = c("bulk", "sc"), species = c("human",
 
     }
 
-  } else if(datatype == "bulk") {
+  }
+
+  if(datatype == "bulk") {
 
     ## check if the data is in matrix format ----
     if(!is.matrix(data)) {

Original file line number	Diff line number	Diff line change
`@@ -73,7 +73,9 @@ calculateSMI <- function(data, datatype = c("bulk", "sc"), species = c("human",`
`73`	`73`
`74`	`74`	`}`
`75`	`75`
`76`		`- } else if(datatype == "bulk") {`
	`76`	`+ }`
	`77`	`+`
	`78`	`+ if(datatype == "bulk") {`
`77`	`79`
`78`	`80`	`## check if the data is in matrix format ----`
`79`	`81`	`if(!is.matrix(data)) {`