Fix error in calculateSIRSpace function.

ccb-hms · Sep 20, 2024 · e24f174 · e24f174
1 parent 1e2f389
commit e24f174
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: scDiagnostics
 Title: Cell type annotation diagnostics
-Version: 1.0.0
+Version: 0.99.9
 Authors@R: c(
     person("Anthony", "Christidis", role = c("aut", "cre"), 
             email = "anthony-alexander_christidis@hms.harvard.edu", 

diff --git a/R/projectSIR.R b/R/projectSIR.R
@@ -209,7 +209,7 @@ conditionalMeans <- function(reference_data,
                         k = n_neighbor)))
             cluster_means <- do.call(
                 rbind, lapply(unique(clusters),
-                              function(cl) colMeans(assay_mat[clusters == cl, ])))
+                              function(cl) colMeans(assay_mat[clusters == cl,, drop = FALSE])))
             rownames(cluster_means) <- rep(cell_type, nrow(cluster_means))
             cond_means  <- rbind(cond_means, cluster_means)
         }