diff --git a/R/BASiCS-estimate.R b/R/BASiCS-estimate.R index f3148eda55932c2113611772f2a272329bfc5449..229cddfd4785daef7ac1421a736e4bf7550f9749 100644 --- a/R/BASiCS-estimate.R +++ b/R/BASiCS-estimate.R @@ -35,13 +35,13 @@ #' \dontrun{ #' # Load example data #' library(scater) -#' data("sc_example_counts") +#' set.seed(1) +#' sce <- mockSCE() #' -#' spike.info <- data.frame(Name = rownames(sc_example_counts)[1:10], +#' spike.info <- data.frame(Name = rownames(sce)[1:10], #' Input = rnorm(10, 500, 200), #' stringsAsFactors = FALSE) -#' params <- BASiCSEstimate(sc_example_counts[1:100, 1:30], -#' spike.info) +#' params <- BASiCSEstimate(sce[1:100, 1:30], spike.info) #' params #' } #' @export @@ -63,7 +63,8 @@ BASiCSEstimate.SingleCellExperiment <- function(counts, spike.info = NULL, verbose = TRUE, progress = TRUE, ...) { counts <- BiocGenerics::counts(counts) - BASiCSEstimate(counts, params) + BASiCSEstimate(counts, spike.info, batch, n, thin, burn, regression, + params, verbose, progress, ...) } #' @rdname BASiCSEstimate