diff --git a/DESCRIPTION b/DESCRIPTION
index 8d6ed5f3936c6bef47b00f601fae2b6db5231f65..a57545e5fce95b0cf04eae188341fa5d6785ad7a 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -54,7 +54,8 @@ Suggests:
     scran,
     mfa,
     phenopath,
-    zinbwave
+    zinbwave,
+    BASiCS
 biocViews: SingleCell, RNASeq, Transcriptomics, GeneExpression, Sequencing,
     Software
 URL: https://github.com/Oshlack/splatter
diff --git a/R/BASiCS-estimate.R b/R/BASiCS-estimate.R
index 71932dee5011cf9b8968a2af54a3a34540a3b2dd..e29e6a0e662edc136bc53f1a3bbd78e8704fa469 100644
--- a/R/BASiCS-estimate.R
+++ b/R/BASiCS-estimate.R
@@ -30,13 +30,15 @@
 #' @return BASiCSParams object containing the estimated parameters.
 #'
 #' @examples
+#' \dontrun{
 #' data("sc_example_counts")
-#' spike.info <- data.frame(Name = rownames(counts)[1:10],
+#' spike.info <- data.frame(Name = rownames(sc_example_counts)[1:10],
 #'                          Input = rnorm(10, 500, 200),
 #'                          stringsAsFactors = FALSE)
 #' params <- BASiCSEstimate(sc_example_counts[1:50, 1:20],
 #'                          spike.info)
 #' params
+#' }
 #' @export
 BASiCSEstimate <- function(counts, spike.info = NULL, batch = NULL,
                            n = 20000, thin = 10, burn = 5000,
@@ -51,7 +53,7 @@ BASiCSEstimate.SCESet <- function(counts, spike.info = NULL, batch = NULL,
                                   n = 20000, thin = 10, burn = 5000,
                                   params = newBASiCSParams(), verbose = TRUE,
                                   progress = TRUE, ...) {
-    counts <- scater::counts(counts)
+    counts <- BiocGenerics::counts(counts)
     BASiCSEstimate(counts, params)
 }
 
diff --git a/man/BASiCSEstimate.Rd b/man/BASiCSEstimate.Rd
index 9309d89440d817428aba07bbfb144b790e0a8358..0fabfebad0e5f63082e073c8eb9913d0bb97bae3 100644
--- a/man/BASiCSEstimate.Rd
+++ b/man/BASiCSEstimate.Rd
@@ -60,11 +60,13 @@ information is provided there must be at least two batches. See
 \code{\link[BASiCS]{BASiCS_MCMC}} for details.
 }
 \examples{
+\dontrun{
 data("sc_example_counts")
-spike.info <- data.frame(Name = rownames(counts)[1:10],
+spike.info <- data.frame(Name = rownames(sc_example_counts)[1:10],
                          Input = rnorm(10, 500, 200),
                          stringsAsFactors = FALSE)
 params <- BASiCSEstimate(sc_example_counts[1:50, 1:20],
                          spike.info)
 params
 }
+}