[Rcpp-commits] r2573 - pkg/RcppGSL/inst/examples/RcppGSLExample/src

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Sun Nov 28 23:17:25 CET 2010


Author: romain
Date: 2010-11-28 23:17:25 +0100 (Sun, 28 Nov 2010)
New Revision: 2573

Modified:
   pkg/RcppGSL/inst/examples/RcppGSLExample/src/colNorm.cpp
Log:
simplification

Modified: pkg/RcppGSL/inst/examples/RcppGSLExample/src/colNorm.cpp
===================================================================
--- pkg/RcppGSL/inst/examples/RcppGSLExample/src/colNorm.cpp	2010-11-28 22:14:31 UTC (rev 2572)
+++ pkg/RcppGSL/inst/examples/RcppGSLExample/src/colNorm.cpp	2010-11-28 22:17:25 UTC (rev 2573)
@@ -36,8 +36,7 @@
 
 		for (int j = 0; j < k; j++) {
 			RcppGSL::vector_view<double> colview = gsl_matrix_column (M, j);
-			RcppGSL::vector<double> col2( colview.vector );
-			n[j] = gsl_blas_dnrm2(col2);
+			n[j] = gsl_blas_dnrm2(colview.vector );
 		}
 		M.free() ;
 		return n;							// return vector  



More information about the Rcpp-commits mailing list