[Rcpp-commits] r1245 - in pkg/RcppGSL: R man src

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

Author: edd
Date: 2010-05-14 16:56:49 +0200 (Fri, 14 May 2010)
New Revision: 1245

Modified:
   pkg/RcppGSL/R/fastLm.R
   pkg/RcppGSL/man/fastLm.Rd
   pkg/RcppGSL/src/fastLm.cpp
Log:
do not return the vcov from C++ to R


Modified: pkg/RcppGSL/R/fastLm.R
===================================================================
--- pkg/RcppGSL/R/fastLm.R	2010-05-14 14:55:08 UTC (rev 1244)
+++ pkg/RcppGSL/R/fastLm.R	2010-05-14 14:56:49 UTC (rev 1245)
@@ -34,7 +34,6 @@
 
     res <- fastLmCall(y, x)
     names(res$coefficients) <- colnames(x)
-    colnames(res$vcov) <- rownames(res$vcov) <- colnames(x)
 
     res$fitted.values <- as.vector(x %*% res$coefficients)
     res$residuals <- y - res$fitted.values

Modified: pkg/RcppGSL/man/fastLm.Rd
===================================================================
--- pkg/RcppGSL/man/fastLm.Rd	2010-05-14 14:55:08 UTC (rev 1244)
+++ pkg/RcppGSL/man/fastLm.Rd	2010-05-14 14:56:49 UTC (rev 1245)
@@ -62,10 +62,9 @@
 }
 
 \value{
-  \code{fastLmCall} returns a list with four components:
+  \code{fastLmCall} returns a list with three components:
   \item{coefficients}{a vector of coefficients}
   \item{stderr}{a vector of the (estimated) standard errors of the coefficient estimates}
-  \item{vcov}{the covariance matrix of the estimates}
   \item{df}{a scalar denoting the degrees of freedom in the model}
   
   \code{fastLm} returns a richer object which also includes the

Modified: pkg/RcppGSL/src/fastLm.cpp
===================================================================
--- pkg/RcppGSL/src/fastLm.cpp	2010-05-14 14:55:08 UTC (rev 1244)
+++ pkg/RcppGSL/src/fastLm.cpp	2010-05-14 14:56:49 UTC (rev 1245)
@@ -52,7 +52,6 @@
     Rcpp::List res = Rcpp::List::create( 
     	_["coefficients"] = coef, 
     	_["stderr"] = stderr,
-		_["vcov"] = cov,
 		_["df"] = n - k
     	) ;