Update file dolo_interp_long.R

This commit is contained in:
Max Lübke 2023-11-21 16:25:50 +01:00
parent d0e3a5fbe0
commit 2204f0f793

View File

@ -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(