fix NA in u vector

Author: Jie Ren

R/print.regnet.R

@@ -5,7 +5,6 @@
 #' @param x a cv.regnet object.
 #' @param digits significant digits in the printout.
 #' @param ... other print arguments
-#' @usage \method{print}{cv.regnet}(x, digits = max(3, getOption("digits") - 3), \dots)
 #' @seealso \code{\link{cv.regnet}}
 #' @export
 print.cv.regnet=function(x, digits = max(3, getOption("digits") - 3),...){
@@ -29,7 +28,6 @@ print.cv.regnet=function(x, digits = max(3, getOption("digits") - 3),...){
 #' @param x a regnet object.
 #' @param digits significant digits in the printout.
 #' @param ... other print arguments
-#' @usage \method{print}{regnet}(x, digits = max(3, getOption("digits") - 3), \dots)
 #' @seealso \code{\link{regnet}}
 #' @export
 print.regnet=function(x, digits = max(3, getOption("digits") - 3),...){

man/print.cv.regnet.Rd

@@ -18,11 +18,12 @@ arma::vec QRWMR(arma::mat const &x, arma::vec const &y, arma::vec b, bool debugg
     u = t/x.col(m);
     w = arma::abs(x.col(m))/n;
 
-    u.replace(datum::nan, 0);
+    u.elem(arma::find(x.col(m) == 0)).fill(0);
 
     if (debugging) {
-      Rcpp::Rcout << "Values of u before NaN replacement for column " << m << ":\n";
-      u.print(Rcpp::Rcout);
+      // Rcpp::Rcout << "Values of u before NaN replacement for column " << m << ":\n";
+      // u.print(Rcpp::Rcout);
+      u.replace(datum::nan, 0);
     }
 
     index = arma::sort_index(u);
@@ -53,13 +54,14 @@ void QRWMR(arma::mat const &x, arma::vec const &y, arma::vec &b, arma::mat const
     t += x.col(m) * b(m);
     u = t/x.col(m);
 
+    u.elem(arma::find(x.col(m) == 0)).fill(0);
+
     if (debugging) {
-      Rcpp::Rcout << "Values of u before NaN replacement for column " << m << ":\n";
-      u.print(Rcpp::Rcout);
+      // Rcpp::Rcout << "Values of u before NaN replacement for column " << m << ":\n";
+      // u.print(Rcpp::Rcout);
+      u.replace(datum::nan, 0);
     }
 
-    u.replace(datum::nan, 0);
-
     index = arma::sort_index(u);
 
 	double SUM = 0;