increased example dbr

plger · Jan 8, 2025 · dc05398 · dc05398
1 parent 7f8cb0c
commit dc05398
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/R/enrichment.R b/R/enrichment.R
@@ -19,7 +19,7 @@
 #' @export
 #'
 #' @examples
-#' sce <- mockDoubletSCE(rep(200,5))
+#' sce <- mockDoubletSCE(rep(200,5), dbl.rate=0.2)
 #' sce <- scDblFinder(sce, clusters=TRUE, artificialDoublets=500)
 #' clusterStickiness(sce)
 clusterStickiness <- function(x, type=c("quasibinomial","nbinom","binomial","poisson"),
@@ -31,6 +31,7 @@ clusterStickiness <- function(x, type=c("quasibinomial","nbinom","binomial","poi
                         "with the cluster-based approach?")
   }
   stopifnot(all(c("combination","observed","expected") %in% colnames(x)))
+  if(sum(x$observed)<5) stop("Insufficient number of doublets")
 
   if(is.null(inclDiff)) inclDiff <- length(unique(x$combination))>15
 

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