R/diazero.R

In covid19br/now_fcts: Auxiliary functions for analyzing COVID-19 data from different sources

#' Corta uma série temporal no dia zero.
#'
#' @param zoo.obj objeto da classe zoo, com a série temporal
#' @param limite valor limite para iniciar a série. Todas as datas anteriores à
#' primeira ocorrência desse valor serão retiradas da série
#'
#' @details Esta função corta um objeto da classe zoo, tirando todos
#'     os valores anteriores ao primeiro valor igual a um certo limite
#'     (n.casos).
#' @export
diazero <- function(zoo.obj, limite){
    dia.zero <- min(which(zoo.obj >= limite, arr.ind = TRUE))
    zoo.obj[dia.zero:length(zoo.obj)]
}