#' 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)]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.