diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/set_nd.R (renamed from R/process_residues.R) | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/R/process_residues.R b/R/set_nd.R index 35d3a4e..5d98940 100644 --- a/R/process_residues.R +++ b/R/set_nd.R @@ -16,6 +16,8 @@ #' @param lod Limit of detection (numeric) #' @param loq Limit of quantification(numeric). Must be specified if the FOCUS rule to #' stop after the first non-detection is to be applied +#' @param time_zero Is the first value in the series a time zero value? +#' @param time_zero_nd_value Which value should we use for non-detects at time zero? #' @param stop_after_first_nondetect Should we really stop after the first non-detection? #' @references FOCUS (2014) p. 75, 76, 131, 132 #' @export @@ -100,8 +102,8 @@ set_nd <- function(r, lod, loq = NA, #' @describeIn set_nd Set non-detects in residues series according to FOCUS rules #' @export -set_nd_focus <- function(res, lod, loq = NA, time_zero = TRUE) { - result <- set_nd(res, lod, loq = loq, time_zero = time_zero, +set_nd_focus <- function(r, lod, loq = NA, time_zero = TRUE) { + result <- set_nd(r, lod, loq = loq, time_zero = time_zero, time_zero_nd_value = 0, stop_after_first_nondetect = TRUE) return(result) } |