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

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

Author: chaussep
Date: 2022-07-04 21:29:50 +0200 (Mon, 04 Jul 2022)
New Revision: 194

Modified:
   pkg/causalOTLSE/R/otlse.R
Log:
fixed a bug

Modified: pkg/causalOTLSE/R/otlse.R
===================================================================
--- pkg/causalOTLSE/R/otlse.R	2022-06-29 18:52:57 UTC (rev 193)
+++ pkg/causalOTLSE/R/otlse.R	2022-07-04 19:29:50 UTC (rev 194)
@@ -151,8 +151,8 @@
         if (p1[i] == 1)
             return(NA)        
         sapply(1:(p1[i] - 1),  function(j){
-            t <- c(paste("Xf1", cn0[[i]][j], sep=""),
-                   paste("Xf1", cn0[[i]][j+1], sep=""))
+            t <- c(paste("Xf1", cn1[[i]][j], sep=""),
+                   paste("Xf1", cn1[[i]][j+1], sep=""))
             .lintest(fit, t[1], t[2], v)            
         })})
     names(pval1) <- NULL