fix

Author: strengejacke

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: modelbased
 Title: Estimation of Model-Based Predictions, Contrasts and Means
-Version: 0.13.1.7
+Version: 0.13.1.8
 Authors@R:
     c(person(given = "Dominique",
              family = "Makowski",

R/collapse_by_group.R

@@ -77,7 +77,7 @@ collapse_by_group <- function(grid, model, collapse_by = NULL, residuals = FALSE
 
   if (nrow(rawdata) == nrow(model_data)) {
     rawdata$random <- factor(model_data[[collapse_by]])
-  } else if (collapse_by %in% colnames(rowdata)) {
+  } else if (collapse_by %in% colnames(rawdata)) {
     rawdata$random <- factor(rawdata[[collapse_by]])
   } else {
     insight::format_error(paste0("Could not find `", collapse_by, "` column."))