diff --git a/src/_g_mcsMAT2.cpp b/src/_g_mcsMAT2.cpp index da3d282..b7c175d 100755 --- a/src/_g_mcsMAT2.cpp +++ b/src/_g_mcsMAT2.cpp @@ -250,13 +250,13 @@ SEXP mcsMAT0_ ( SEXP XX_, SEXP mcs0idx_){ case INTSXP : case REALSXP : { NumericMatrix X(as(XX_)); - if (zz_.isNULL()) mcs0idx = seq(0, X.ncol()-1); + if (zz_.isNULL()) mcs0idx = Rcpp::seq(0, X.ncol()-1); else mcs0idx = mcs0idx_; return do_mcs_dense ( X, mcs0idx ); } case S4SXP : { MSpMat X(as(XX_)); - if (zz_.isNULL()) mcs0idx = seq(0, X.cols()-1); + if (zz_.isNULL()) mcs0idx = Rcpp::seq(0, X.cols()-1); else mcs0idx = mcs0idx_; return do_mcs_sparse( X, mcs0idx ); }