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