[Gmm-commits] r71 - pkg/gmm/R

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

Author: chaussep
Date: 2013-04-03 13:28:22 +0200 (Wed, 03 Apr 2013)
New Revision: 71

Modified:
   pkg/gmm/R/momentEstim.R
Log:
fixed tsls error message with summary

Modified: pkg/gmm/R/momentEstim.R
===================================================================
--- pkg/gmm/R/momentEstim.R	2013-04-02 23:38:02 UTC (rev 70)
+++ pkg/gmm/R/momentEstim.R	2013-04-03 11:28:22 UTC (rev 71)
@@ -268,6 +268,7 @@
   else
     {
     res <- .tetlin(dat, w, P$gradv, g, type="2sls")
+    fsRes <- res$fsRes
     initTheta <- res$par
     ch <- 100000
     j <- 1
@@ -319,7 +320,8 @@
 
   names(z$coefficients) <- P$namesCoef
   colnames(z$gt) <- P$namesgt
-
+  if (P$vcov == "iid" & P$wmatrix != "ident")
+	z$fsRes <- fsRes
   class(z) <- paste(P$TypeGmm,".res",sep="")
   z$specMod <- P$specMod
   return(z)