Skip to content

refactor(lavaan): make missing-pattern row counts type-stable #90

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Draft
seonghobae wants to merge 7 commits into
base: master
Choose a base branch
from
Draft

refactor(lavaan): make missing-pattern row counts type-stable #90

Changes from all commits
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
1bc09f6
⚡ Bolt: Optimize maximum matrix rows calculation with vapply
seonghobae Aug 17, 2026
93824af
chore: keep local optimization out of repository doctrine
seonghobae Sep 5, 2026
3f8faf6
merge: restack lavaan type-stable row counts onto protected master
seonghobae Sep 5, 2026
f5fd34f
⚡ Bolt: Optimize maximum matrix rows calculation with vapply
seonghobae Sep 5, 2026
bd24391
⚡ Bolt: Optimize ifelse overhead in glm likelihood contributions
seonghobae Sep 6, 2026
247dd24
⚡ Bolt: Optimize ifelse overhead in glm likelihood contributions
seonghobae Sep 6, 2026
ddaa04a
repair(lavaan): restore focused type-stable row-count tree
seonghobae Sep 6, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
3 changes: 2 additions & 1 deletion R/llcont.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -407,7 +407,8 @@ 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))
## Bolt: replaced sapply with vapply for performance
npatts <- max(vapply(mispatts, nrow, numeric(1)))
} else {
npatts <- nrow(mispatts)
}
Expand Down
Loading