diff --git a/R/metric_pulses_above_threshold.R b/R/metric_pulses_above_threshold.R index b2142d5..c196e47 100644 --- a/R/metric_pulses_above_threshold.R +++ b/R/metric_pulses_above_threshold.R @@ -21,11 +21,11 @@ #' @param min.length The minimum length of a pulse. Can be either a #' \link[lubridate]{duration} or a string. If it is a string, it needs to be a valid #' \link[lubridate]{duration} string, e.g., `"1 day"` or `"10 sec"`. Defaults to -#' `"8 mins"` as in Wilson et al. (2018). +#' `"2 mins"` as in Wilson et al. (2018). #' @param max.interrupt Maximum length of each episode of interruptions. Can be either a #' \link[lubridate]{duration} or a string. If it is a string, it needs to be a valid #' \link[lubridate]{duration} string, e.g., `"1 day"` or `"10 sec"`. Defaults to -#' `"2 mins"` as in Wilson et al. (2018). +#' `"8 mins"` as in Wilson et al. (2018). #' @param prop.interrupt Numeric value between `0` and `1` specifying the #' maximum proportion of the total number of interruptions. Defaults to `0.25` #' as in Wilson et al. (2018). @@ -85,8 +85,8 @@ pulses_above_threshold <- function(Light.vector, Time.vector, comparison = c("above", "below"), threshold, - min.length = "8 mins", - max.interrupt = "2 mins", + min.length = "2 mins", + max.interrupt = "8 mins", prop.interrupt = 0.25, epoch = "dominant.epoch", return.indices = FALSE, diff --git a/man/pulses_above_threshold.Rd b/man/pulses_above_threshold.Rd index 04afe3f..0e6d39b 100644 --- a/man/pulses_above_threshold.Rd +++ b/man/pulses_above_threshold.Rd @@ -9,8 +9,8 @@ pulses_above_threshold( Time.vector, comparison = c("above", "below"), threshold, - min.length = "8 mins", - max.interrupt = "2 mins", + min.length = "2 mins", + max.interrupt = "8 mins", prop.interrupt = 0.25, epoch = "dominant.epoch", return.indices = FALSE, @@ -37,12 +37,12 @@ calculated.} \item{min.length}{The minimum length of a pulse. Can be either a \link[lubridate]{duration} or a string. If it is a string, it needs to be a valid \link[lubridate]{duration} string, e.g., \code{"1 day"} or \code{"10 sec"}. Defaults to -\code{"8 mins"} as in Wilson et al. (2018).} +\code{"2 mins"} as in Wilson et al. (2018).} \item{max.interrupt}{Maximum length of each episode of interruptions. Can be either a \link[lubridate]{duration} or a string. If it is a string, it needs to be a valid \link[lubridate]{duration} string, e.g., \code{"1 day"} or \code{"10 sec"}. Defaults to -\code{"2 mins"} as in Wilson et al. (2018).} +\code{"8 mins"} as in Wilson et al. (2018).} \item{prop.interrupt}{Numeric value between \code{0} and \code{1} specifying the maximum proportion of the total number of interruptions. Defaults to \code{0.25}