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

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

Author: chaussep
Date: 2015-12-16 20:18:41 +0100 (Wed, 16 Dec 2015)
New Revision: 91

Modified:
   pkg/gmm/R/Methods.gel.R
Log:
Removed a meaningless error message in .invtest

Modified: pkg/gmm/R/Methods.gel.R
===================================================================
--- pkg/gmm/R/Methods.gel.R	2015-12-16 18:54:17 UTC (rev 90)
+++ pkg/gmm/R/Methods.gel.R	2015-12-16 19:18:41 UTC (rev 91)
@@ -28,8 +28,6 @@
         if (object$df > 0)
             {
                 test0 <- specTest(object)$test[wtest,]
-                if (test0[2] < (1-level))
-                    stop("The model is rejected at the point estimate")
                 test0 <- test0[1]
             } else {
                 test0 <- 0