minor cleaning

strengejacke · strengejacke · commit ede8c5da1771 · 2025-03-12T12:04:47.000+01:00
diff --git a/R/estimate_grouplevel.R b/R/estimate_grouplevel.R
@@ -84,6 +84,8 @@ estimate_grouplevel <- function(model, type = "random", dispersion = TRUE, test
   # fix for rstanarm, which contains a sigma columns
   if (inherits(model, "stanreg")) {
     clean_parameters <- clean_parameters[clean_parameters$Component != "sigma", ]
+    params$Group <- clean_parameters$Group
+    params$Level <- clean_parameters$Cleaned_Parameter
   }
 
   # Re-add info

Original file line number	Diff line number	Diff line change
`@@ -84,6 +84,8 @@ estimate_grouplevel <- function(model, type = "random", dispersion = TRUE, test`
`84`	`84`	`# fix for rstanarm, which contains a sigma columns`
`85`	`85`	`if (inherits(model, "stanreg")) {`
`86`	`86`	`clean_parameters <- clean_parameters[clean_parameters$Component != "sigma", ]`
	`87`	`+ params$Group <- clean_parameters$Group`
	`88`	`+ params$Level <- clean_parameters$Cleaned_Parameter`
`87`	`89`	`}`
`88`	`90`
`89`	`91`	`# Re-add info`