R/extraer.datos.curva.map.R

Defines functions extraer.datos.curva.map

Documented in extraer.datos.curva.map

#' Extract map curve
#'
#' @keywords internal
extraer.datos.curva.map<-function(i.epi,i.val){
  # i.epi<-optimo
  # i.val<-duracion.media
  resultado<-as.data.frame(i.epi[[1]]$map.curve[i.epi[[1]]$map.curve[,1]==i.val])
  m<-ncol(resultado)
  n<-length(names(i.epi))
  if (n>1) for (i in 2:n){
    resultado<-cbind(resultado,i.epi[[i]]$map.curve[i.epi[[i]]$map.curve[,1]==i.val])
  }
  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.