From 0ca17c4c5482b83e93c8f118951906d2705f9c7b Mon Sep 17 00:00:00 2001
From: Haziq Jamil <haziq.jamil@ubd.edu.bn>
Date: Thu, 20 Jun 2024 19:31:37 +0800
Subject: [PATCH] Remove pipes and \(x)

---
 R/lav_model_h1_information.R | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/R/lav_model_h1_information.R b/R/lav_model_h1_information.R
index e84741ee..d14207e7 100644
--- 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 {