Merge pull request #364 from haziqj/pml-fix

Remove pipes and \(x)
yrosseel · Jun 20, 2024 · fbc64df · fbc64df
2 parents 252ee3e + 0ca17c4
commit fbc64df
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/R/lav_model_h1_information.R b/R/lav_model_h1_information.R
@@ -758,9 +758,7 @@ lav_model_h1_information_firstorder <- function(lavobject = NULL,
           zb[[b]] <- apply(SC_b * WT_b, 2, sum)
         }
         zbar <- apply(do.call(cbind, zb), 1, mean)
-        B1c <-
-          lapply(zb, \(z) tcrossprod(z - zbar)) |>
-          Reduce(f = `+`)
+        B1c <- Reduce(f = `+`, lapply(zb, function(z) tcrossprod(z - zbar)))
         B1[[g]] <- nclust / (nclust - 1) * B1c
 
       } else {