[Gmm-commits] r185 - in pkg/momentfit: . R

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

Author: chaussep
Date: 2021-05-03 22:38:54 +0200 (Mon, 03 May 2021)
New Revision: 185

Modified:
   pkg/momentfit/DESCRIPTION
   pkg/momentfit/R/sysMomentModel-methods.R
Log:
fixed a bug with CUE

Modified: pkg/momentfit/DESCRIPTION
===================================================================
--- pkg/momentfit/DESCRIPTION	2021-03-02 21:28:59 UTC (rev 184)
+++ pkg/momentfit/DESCRIPTION	2021-05-03 20:38:54 UTC (rev 185)
@@ -1,6 +1,6 @@
 Package: momentfit
-Version: 0.2
-Date: 2020-11-03
+Version: 0.3
+Date: 2021-05-03
 Title: Methods of Moments
 Author: Pierre Chausse <pchausse at uwaterloo.ca>
 Maintainer: Pierre Chausse <pchausse at uwaterloo.ca>

Modified: pkg/momentfit/R/sysMomentModel-methods.R
===================================================================
--- pkg/momentfit/R/sysMomentModel-methods.R	2021-03-02 21:28:59 UTC (rev 184)
+++ pkg/momentfit/R/sysMomentModel-methods.R	2021-05-03 20:38:54 UTC (rev 185)
@@ -955,7 +955,7 @@
                       wObj0 <- NULL
                   obj <- function(theta, model, wObj0, spec)
                   {
-                      theta <- .tetReshape(theta, model at eqnNames,
+                      theta <- .tetReshape(theta, spec$eqnNames,
                                            spec$parNames)
                       wObj <- evalWeights(model, theta, "optimal", wObj0)
                       evalGmmObj(model, theta, wObj)
@@ -962,7 +962,7 @@
                   }
                   res <- optim(do.call("c",theta0), obj, model=model, wObj0=wObj0,
                                spec=spec, ...)
-                  theta1 <- .tetReshape(res$par, model at eqnNames,spec$parNames)
+                  theta1 <- .tetReshape(res$par, spec$eqnNames,spec$parNames)
                   convergence <- res$convergence
                   wObj <- evalWeights(model, theta1, "optimal", wObj0)
               }