[Rcpp-commits] r829 - pkg/RcppArmadillo/src

[noreply at r-forge.r-project.org]

Author: romain
Date: 2010-03-03 11:38:51 +0100 (Wed, 03 Mar 2010)
New Revision: 829

Modified:
   pkg/RcppArmadillo/src/RcppArmadillo.cpp
Log:
(more) inlined comments

Modified: pkg/RcppArmadillo/src/RcppArmadillo.cpp
===================================================================
--- pkg/RcppArmadillo/src/RcppArmadillo.cpp	2010-03-03 10:37:15 UTC (rev 828)
+++ pkg/RcppArmadillo/src/RcppArmadillo.cpp	2010-03-03 10:38:51 UTC (rev 829)
@@ -219,7 +219,16 @@
     		Rcpp::Named( "coef" ) = coef,
     		Rcpp::Named( "stderr") = sqrt( sig2 * diagvec( arma::inv(arma::trans(X)*X)) )
     	);
-    
+    	
+    	or even the sugary: 
+    	
+    	using namespace Rcpp;
+    	Pairlist res(
+    		_["coef"] = coef,
+    		_["stderr"] = sqrt( sig2 * diagvec( arma::inv(arma::trans(X)*X)) )
+    	);
+    	
+    	
     */
     arma::mat covmat = sig2 * arma::inv(arma::trans(X)*X);
     arma::colvec stderrest = sqrt(covmat.diag());