Fix typo: missing "lower"

jasp-stats · Dec 19, 2023 · da96ce2 · da96ce2
1 parent e25d4cb
commit da96ce2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/commonFunctionsAcceptSampling.R b/R/commonFunctionsAcceptSampling.R
@@ -32,7 +32,7 @@ checkPdErrors <- function(jaspContainer, pd_lower, pd_upper, pd_step) {
     return ()
   }
   if (pd_step > (pd_upper - pd_lower)) {
-    jaspContainer$setError(gettext("Step size for proportion non-conforming items needs to be smaller than the difference between the upper and limits."))
+    jaspContainer$setError(gettext("Step size for proportion non-conforming items needs to be smaller than the difference between the upper and lower limits."))
     return ()
   }
   is.zero <- function(x, tol = .Machine$double.eps^0.5) {
@@ -759,4 +759,4 @@ getStageProbability <- function(pd, n, c, r, dist, N=10000) {
   acc <- matrix(unlist(stage_probs[1,]), byrow=FALSE, nrow=length(n))
   rej <- matrix(unlist(stage_probs[2,]), byrow=FALSE, nrow=length(n))
   return (list(acc,rej))
-}
+}