more informative friedman error (#432)

JohnnyDoorn · web-flow · commit 63a206ee7588 · 2025-05-07T12:53:26.000+02:00
diff --git a/R/anovarepeatedmeasures.R b/R/anovarepeatedmeasures.R
@@ -1373,7 +1373,7 @@ AnovaRepeatedMeasuresInternal <- function(jaspResults, dataset = NULL, options)
     useDurbin <- any(table(groups, blocks) < 1) && length(unique(table(groups))) == 1
 
     if (any(table(groups, blocks) > 1)) {
-      friedmanTable$setError(gettextf("Not an unreplicated complete block design."))
+      friedmanTable$setError(gettextf("Not an unreplicated complete block design. The Friedman test is only available as an alternative to one-way RM ANOVA."))
       return()
     }
 

Original file line number	Diff line number	Diff line change
`@@ -1373,7 +1373,7 @@ AnovaRepeatedMeasuresInternal <- function(jaspResults, dataset = NULL, options)`
`1373`	`1373`	`useDurbin <- any(table(groups, blocks) < 1) && length(unique(table(groups))) == 1`
`1374`	`1374`
`1375`	`1375`	`if (any(table(groups, blocks) > 1)) {`
`1376`		`- friedmanTable$setError(gettextf("Not an unreplicated complete block design."))`
	`1376`	`+ friedmanTable$setError(gettextf("Not an unreplicated complete block design. The Friedman test is only available as an alternative to one-way RM ANOVA."))`
`1377`	`1377`	`return()`
`1378`	`1378`	`}`
`1379`	`1379`