From f6542b7278c74e7ec42d2a4e642de22dd4a9ca51 Mon Sep 17 00:00:00 2001
From: Sebastian Henz <sebastian.henz@ufz.de>
Date: Tue, 21 Apr 2020 19:39:11 +0200
Subject: [PATCH] Fix check error
---
R/ecxsys.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/ecxsys.R b/R/ecxsys.R
index 9c446ac..3ac31f3 100644
--- a/R/ecxsys.R
+++ b/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
--
GitLab