R/extraer.datos.epi.R

Defines functions extraer.datos.epi

Documented in extraer.datos.epi

#' Extract epidemic hightest rates
#'
#' @keywords internal
extraer.datos.epi <- function(i.epi) {
  resultado <- as.data.frame(i.epi[[1]]$epi)
  m <- ncol(resultado)
  n <- length(names(i.epi))
  if (n > 1) {
    for (i in 2:n) {
      resultado <- cbind(resultado, i.epi[[i]]$epi)
    }
  }
  names(resultado) <- rep(names(i.epi), each = m)
  return(resultado)
}
lozalojo/mem documentation built on April 1, 2021, 1:37 a.m.