Update file dolo_interp_long.R

This commit is contained in:
Max Lübke 2023-11-21 16:25:50 +01:00
parent 87c32156b9
commit de3b2db455

View File

@ -165,8 +165,8 @@ check_sign_cal_dol_interp <- function(to_interp, data_set) {
} }
check_neg_cal_dol <- function(result) { check_neg_cal_dol <- function(result) {
neg_sign <- (result["Calcite"] <- 0) || (result["Dolomite"] < 0) neg_sign <- (result["Calcite"] < 0) || (result["Dolomite"] < 0)
return(any(neg_sign)) return(neg_sign)
} }
hooks <- list( hooks <- list(