Browse code

Correct typo

Yuan authored on 13/01/2022 20:54:23
Showing 2 changed files

... ...
@@ -458,7 +458,7 @@ setMethod(
458 458
 
459 459
     zBat <- NULL
460 460
     countsBat <- counts[, batch == bat]
461
-    bgBat <- countsBackground[, bactchBackgound == bat]
461
+    bgBat <- countsBackground[, batchBackgound == bat]
462 462
 
463 463
     ## Convert to sparse matrix
464 464
     if (!inherits(countsBat, "dgCMatrix")) {
... ...
@@ -6,6 +6,11 @@
6 6
 
7 7
 using namespace Rcpp;
8 8
 
9
+#ifdef RCPP_USE_GLOBAL_ROSTREAM
10
+Rcpp::Rostream<true>&  Rcpp::Rcout = Rcpp::Rcpp_cout_get();
11
+Rcpp::Rostream<false>& Rcpp::Rcerr = Rcpp::Rcpp_cerr_get();
12
+#endif
13
+
9 14
 // decontXEM
10 15
 Rcpp::List decontXEM(const Eigen::MappedSparseMatrix<double>& counts, const NumericVector& counts_colsums, const NumericVector& theta, const bool& estimate_eta, const NumericMatrix& eta, const NumericMatrix& phi, const IntegerVector& z, const bool& estimate_delta, const NumericVector& delta, const double& pseudocount);
11 16
 RcppExport SEXP _celda_decontXEM(SEXP countsSEXP, SEXP counts_colsumsSEXP, SEXP thetaSEXP, SEXP estimate_etaSEXP, SEXP etaSEXP, SEXP phiSEXP, SEXP zSEXP, SEXP estimate_deltaSEXP, SEXP deltaSEXP, SEXP pseudocountSEXP) {