Commit 42edcbaf authored by Asquith, William H.'s avatar Asquith, William H.

sanity.delta.between.models to check.delta.between.models

parent 14ed7cdf
......@@ -110,10 +110,10 @@ function(site, tmp_df, lev, verbose=FALSE, silent=FALSE, actuallywrite=TRUE,
zz$REG_SVM_LEV <- as.vector(zz$REG_SVM_LEV)
zz$REG_SVM_RESdivRSE <- as.vector(zz$REG_SVM_RESdivRSE)
sane <- abs(zz$SITE_GAM_LEV - zz$SITE_SVM_LEV) < sanity.delta.between.models*pseudo.feet.to.meters
sane <- abs(zz$SITE_GAM_LEV - zz$SITE_SVM_LEV) < check.delta.between.models*pseudo.feet.to.meters
zz$SITE_GAM_LEV[! is.na(sane) & ! sane] <- NA
zz$SITE_SVM_LEV[! is.na(sane) & ! sane] <- NA
sane <- abs(zz$REG_GAM_LEV - zz$REG_SVM_LEV ) < sanity.delta.between.models*pseudo.feet.to.meters
sane <- abs(zz$REG_GAM_LEV - zz$REG_SVM_LEV ) < check.delta.between.models*pseudo.feet.to.meters
zz$REG_GAM_LEV[ ! is.na(sane) & ! sane] <- NA
zz$REG_SVM_LEV[ ! is.na(sane) & ! sane] <- NA
......@@ -335,10 +335,10 @@ function(site, tmp_df, lev, verbose=FALSE, silent=FALSE, actuallywrite=TRUE,
zz$REG_GAM_SIGMAFIT <- as.vector(zz$REG_GAM_SIGMAFIT)
zz$REG_SVM_LEV <- as.vector(zz$REG_SVM_LEV)
sane <- abs(zz$SITE_GAM_LEV - zz$SITE_SVM_LEV) < sanity.delta.between.models*pseudo.feet.to.meters
sane <- abs(zz$SITE_GAM_LEV - zz$SITE_SVM_LEV) < check.delta.between.models*pseudo.feet.to.meters
zz$SITE_GAM_LEV[! is.na(sane) & ! sane] <- NA
zz$SITE_SVM_LEV[! is.na(sane) & ! sane] <- NA
sane <- abs(zz$REG_GAM_LEV - zz$REG_SVM_LEV ) < sanity.delta.between.models*pseudo.feet.to.meters
sane <- abs(zz$REG_GAM_LEV - zz$REG_SVM_LEV ) < check.delta.between.models*pseudo.feet.to.meters
zz$REG_GAM_LEV[ ! is.na(sane) & ! sane] <- NA
zz$REG_SVM_LEV[ ! is.na(sane) & ! sane] <- NA
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment