... | ... |
@@ -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) { |