Fix check error

R/ecxsys.R

@@ -162,7 +162,7 @@ ecxsys <- function(concentration,
     if (any(is.na(c(all_observations, concentration)))) {
         stop("Values containing NA are not supported.")
     }
-    if (any(all_observations > survival_max || all_observations < 0)) {
+    if (any(all_observations > survival_max | all_observations < 0)) {
         stop("Observed survival must be between 0 and survival_max.")
     }
     conc_shift <- 2  # Powers of ten to shift the control downwards from the