From 433f095f585348b1c886e87ae7a6c645e4075ced Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Max=20L=C3=BCbke?= Date: Tue, 21 Nov 2023 16:25:50 +0100 Subject: [PATCH] Update file dolo_interp_long.R --- bench/dolo/dolo_interp_long.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bench/dolo/dolo_interp_long.R b/bench/dolo/dolo_interp_long.R index 80770f07a..7acca4298 100644 --- a/bench/dolo/dolo_interp_long.R +++ b/bench/dolo/dolo_interp_long.R @@ -165,8 +165,8 @@ check_sign_cal_dol_interp <- function(to_interp, data_set) { } check_neg_cal_dol <- function(result) { - neg_sign <- (result["Calcite"] <- 0) || (result["Dolomite"] < 0) - return(any(neg_sign)) + neg_sign <- (result["Calcite"] < 0) || (result["Dolomite"] < 0) + return(neg_sign) } hooks <- list(