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

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

Author: chaussep
Date: 2017-01-20 19:36:12 +0100 (Fri, 20 Jan 2017)
New Revision: 98

Modified:
   pkg/gmm/R/FinRes.R
Log:
Fixed bad label when wmatrix=ident

Modified: pkg/gmm/R/FinRes.R
===================================================================
--- pkg/gmm/R/FinRes.R	2017-01-20 18:27:11 UTC (rev 97)
+++ pkg/gmm/R/FinRes.R	2017-01-20 18:36:12 UTC (rev 98)
@@ -106,7 +106,10 @@
         z$infVcov <- P$vcov
         z$infWmatrix <- P$wmatrix
         z$allArg <- P$allArg
-        z$met <- P$type
+        if (P$wmatrix=="ident")
+            z$met <- "One step GMM with W = identity"
+        else
+            z$met <- P$type
         z$kernel <- P$kernel
         z$coefficients <- c(z$coefficients)
         class(z) <- "gmm"