mirror of
https://git.gfz-potsdam.de/naaice/poet.git
synced 2025-12-15 12:28:22 +01:00
Update file dolo_interp_long.R
This commit is contained in:
parent
d0e3a5fbe0
commit
2204f0f793
@ -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(
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user