R/extraer.datos.pre.epi.R

Defines functions extraer.datos.pre.epi

Documented in extraer.datos.pre.epi

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

Try the mem package in your browser

Any scripts or data that you put into this service are public.

mem documentation built on Nov. 17, 2017, 5:26 a.m.