[Gmm-commits] r169 - in pkg/momentfit: R vignettes

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

Author: chaussep
Date: 2020-05-08 15:57:42 +0200 (Fri, 08 May 2020)
New Revision: 169

Modified:
   pkg/momentfit/R/sysMomentModel-methods.R
   pkg/momentfit/vignettes/gmmS4.pdf
Log:
fixed a bug with systems of nonlinear equations

Modified: pkg/momentfit/R/sysMomentModel-methods.R
===================================================================
--- pkg/momentfit/R/sysMomentModel-methods.R	2020-04-14 03:41:34 UTC (rev 168)
+++ pkg/momentfit/R/sysMomentModel-methods.R	2020-05-08 13:57:42 UTC (rev 169)
@@ -114,7 +114,7 @@
               if (length(x at q) > 1)
                   return(x)
               instF <- model.frame(x at instT[[1]], x at data)
-              varN <- c(all.vars(x at fLHS[[1]]), all.vars(x at fRHS))
+              varN <- c(all.vars(x at fLHS[[1]]), all.vars(x at fRHS[[1]]))
               varN <- varN[!(varN%in%names(x at theta0[[1]]))]
               modelF <- x at data[,varN, drop=FALSE]
               new("nonlinearModel", instF=instF, modelF=modelF, q=x at q[[1]],
@@ -122,7 +122,7 @@
                   k=x at k[[1]], parNames=x at parNames[[1]], momNames=x at momNames[[1]],
                   vcov=x at vcov, n=spec$n,vcovOptions=x at vcovOptions,
                   centeredVcov=x at centeredVcov, varNames=x at varNames[[1]],
-                  isEndo=x at isEndo[[1]], survOptions=x at survOptions, smooth=)
+                  isEndo=x at isEndo[[1]], survOptions=x at survOptions, smooth=FALSE)
           })
 
 

Modified: pkg/momentfit/vignettes/gmmS4.pdf
===================================================================
(Binary files differ)