[Gmm-commits] r192 - pkg/causalOTLSE/R

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

Author: chaussep
Date: 2022-06-29 16:14:07 +0200 (Wed, 29 Jun 2022)
New Revision: 192

Modified:
   pkg/causalOTLSE/R/otlse.R
Log:
fixed a bug when minPV is provided

Modified: pkg/causalOTLSE/R/otlse.R
===================================================================
--- pkg/causalOTLSE/R/otlse.R	2022-06-24 21:44:15 UTC (rev 191)
+++ pkg/causalOTLSE/R/otlse.R	2022-06-29 14:14:07 UTC (rev 192)
@@ -302,12 +302,9 @@
     optBasis <- switch(crit,
                        ASY = selASY(form=form, data, pFact, splineMet, HCtype, mZeroProp,
                                     ...),
-                       AIC = selIC(form, data, pFact, "AIC", splineMet, HCtype, mZeroProp,
-                                   ...),
-                       BIC = selIC(form, data, pFact, "BIC", splineMet, HCtype, mZeroProp,
-                                   ...),
-                       CV = selIC(form, data, pFact, "CV", splineMet, HCtype, mZeroProp,
-                                  ...))
+                       AIC = selIC(form, data, pFact, "AIC", splineMet, HCtype, mZeroProp),
+                       BIC = selIC(form, data, pFact, "BIC", splineMet, HCtype, mZeroProp),
+                       CV = selIC(form, data, pFact, "CV", splineMet, HCtype, mZeroProp))
     data2 <- data
     data2$Xf0 <- optBasis$Xf0
     data2$Xf1 <- optBasis$Xf1