R/count_down.R

In ChillModels: Processing Chill and Heat Models for Temperate Fruit Trees

#' @title Count Down
#' @name count_down
#' @description Function to quantify temperature hours below x.
#' @param tl upper limit
#' @param x Vector containing values (data).
#' @param total TRUE Shows the total value of hours.
#' @details Function to quantify temperature hours below x.
#' @return The function returns the total value of hours.
#' @examples 
#' 
#' x <- rnorm(1000, 15, 5)
#' 
#' count_down(tl = 7.2, x = x, total = TRUE)
#' 
#' @importFrom utils tail
#' @export

count_down <- function(tl, x, total=TRUE){
  y <- rep(0, length(x))
  y[which(x<=tl)] <- 1
  if (total==TRUE)
    return(tail(cumsum(y),n=1))
  else return(y)
}