From d25372b4f26919fb297f86a6a93631d11ce6dc70 Mon Sep 17 00:00:00 2001
From: seonghobae <8172694+seonghobae@users.noreply.github.com>
Date: Sun, 23 Aug 2026 03:52:08 +0000
Subject: [PATCH] Refactor: Replace sapply with vapply for performance in
 lavaan log-likelihood calculation

---
 R/llcont.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/llcont.R b/R/llcont.R
index d8e496a..b74269b 100644
--- a/R/llcont.R
+++ b/R/llcont.R
@@ -407,7 +407,7 @@ llcont.lavaan <- function(x, ...){
   if(tolower(lavInspect(x, "options")$missing) == "ml.x") stop("cannot handle lavaan models with missing='ml.x'. consider using missing='ml'.", call. = FALSE)
   mispatts <- lavInspect(x, "patterns")
   if(any(class(mispatts) == "list")){
-    npatts <- max(sapply(mispatts, nrow))
+    npatts <- max(vapply(mispatts, nrow, numeric(1)))
   } else {
     npatts <- nrow(mispatts)
   }