Include subgroups sizes smaller than 1 in error message

jasp-stats · Nov 16, 2023 · 514d53e · 514d53e
1 parent dc8534d
commit 514d53e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/variablesChartsSubgroups.R b/R/variablesChartsSubgroups.R
@@ -148,7 +148,7 @@ variablesChartsSubgroups <- function(jaspResults, dataset, options) {
   }
 
   # Check if all subgroups are of size 1 and return error if yes
-  if (all(apply(dataset[measurements], 1, function(x) sum(!is.na(x))) == 1)) {
+  if (all(apply(dataset[measurements], 1, function(x) sum(!is.na(x))) <= 1)) {
     plot <- createJaspPlot(title = gettext("Control charts"), width = 700, height = 400)
     plot$setError(gettext("All subgroups are of size 1. Variables charts for subgroups cannot be calculated. Use variables charts for individuals."))
     jaspResults[["plot"]] <- plot