Update R/estimate_grouplevel.R

DominiqueMakowski · github-actions[bot] · web-flow · commit f52b8db04391 · 2025-10-04T08:59:44.000+01:00
Co-authored-by: github-actions[bot] &lt;41898282+github-actions[bot]@users.noreply.github.com&gt;
diff --git a/R/estimate_grouplevel.R b/R/estimate_grouplevel.R
@@ -103,8 +103,8 @@ estimate_grouplevel.default <- function(model,
 
     # Remove columns with only NaNs (as these are probably those of fixed effects)
     random[vapply(random, function(x) all(is.na(x)), TRUE)] <- NULL
-
-  } else if(type == "marginal") {  # EXPERIMENTAL
+  } else if (type == "marginal") {
+    # EXPERIMENTAL
     random <- .grouplevel_marginal(model)
   }
 

Original file line number	Diff line number	Diff line change
`@@ -103,8 +103,8 @@ estimate_grouplevel.default <- function(model,`
`103`	`103`
`104`	`104`	`# Remove columns with only NaNs (as these are probably those of fixed effects)`
`105`	`105`	`random[vapply(random, function(x) all(is.na(x)), TRUE)] <- NULL`
`106`		`-`
`107`		`- } else if(type == "marginal") { # EXPERIMENTAL`
	`106`	`+ } else if (type == "marginal") {`
	`107`	`+ # EXPERIMENTAL`
`108`	`108`	`random <- .grouplevel_marginal(model)`
`109`	`109`	`}`
`110`	`110`