Buenos días, estimados compañeros

Alguien podria ayudarme a utilizar topmodel, para modelar hidrologicamente
a una cuenca hidrográfica, gracias.

Saludos


El 11 de abril de 2014, 5:00, <r-help-es-request@r-project.org> escribió:

> Envíe los mensajes para la lista R-help-es a
>         r-help-es@r-project.org
>
> Para subscribirse o anular su subscripción a través de la WEB
>         https://stat.ethz.ch/mailman/listinfo/r-help-es
>
> O por correo electrónico, enviando un mensaje con el texto "help" en
> el asunto (subject) o en el cuerpo a:
>         r-help-es-request@r-project.org
>
> Puede contactar con el responsable de la lista escribiendo a:
>         r-help-es-owner@r-project.org
>
> Si responde a algún contenido de este mensaje, por favor, edite la
> linea del asunto (subject) para que el texto sea mas especifico que:
> "Re: Contents of R-help-es digest...". Además, por favor, incluya en
> la respuesta sólo aquellas partes del mensaje a las que está
> respondiendo.
>
>
> Asuntos del día:
>
>    1. Re: Unión de subconjuntos procedentes de bucles
>       (Marcuzzi, Javier Rubén)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Thu, 10 Apr 2014 16:55:31 -0300
> From: "Marcuzzi, Javier Rubén"  <javier.ruben.marcuzzi@gmail.com>
> To: r-help-es@r-project.org
> Subject: Re: [R-es] Unión de subconjuntos procedentes de bucles
> Message-ID: <5346F733.2070408@gmail.com>
> Content-Type: text/plain
>
> Daniel y Francisco
>
> as.Date(), a mi supo darme errores, teoricamente R se ejecuta, pero como
> por suerte yo tenía acceso a los datos originales (y los animales en los
> campos), por una extraña causa algunas fechas no correspondían a la
> realidad, no pregunten donde estaba el error porque nunca lo encontre.
> Posiblemente a la fecha de hoy con las actualizaciónes de R ese
> inconveniente no esta, pero ..., habría que probarlo.
>
> as.Date está en varias librería, sería buena opción, pero a mi me trajo
> problemas y demoras en la entrega de mi análisis a la consultora que me
> contrato para ese caso.
>
> Sobre la cantidad de columnas, y el rbind, para evitar ese tipo de
> errores a mi me resulta más sencillo sql, pero solo por mi forma de
> pensar, como también me gusta más "No usar 365.25" en los cálculos de
> fechas,  me gusta más las posibilidades como
> http://dev.mysql.com/doc/refman/5.5/en/date-and-time-functions.html, que
> se puede usar con Rmysql o desde mysql y exportar los datos a R, pero
> claro que esta es solo una forma de trabajar (sqldf, otras opciónes ,
> etc.).
>
> Javier Marcuzzi
>
> El 10/04/2014 04:17 p.m., daniel escribió:
> > Francisco,
> >
> > Me parece que el problema es que data1.new y data2.new tienen diferente
> > cantidad de columnas, Prueba data2.new[, -lacolumnaqueestademás] .
> >
> > Respecto de 2 incluye la fecha como un character, digamos  y luego lo
> > conviertes a fecha as.Date("Origen")
> >
> > Espero te sirva,
> >
> > Daniel Merino
> >
> >
> > El 10 de abril de 2014, 14:14, Francisco Javier
> > <iterador10@hotmail.com>escribió:
> >
> >> Buenas tardes a todos los participantes del foro.
> >> Me dirijo a vosotros porque estoy atascado con una duda de programación
> >> respecto al data frame:
> >>
> >>
> >>> dd  # Data frame de 5 variables, leído de un archivo txt
> >>    id sexo      nacim     origen      final
> >> 1  1    0 02/09/1955 01/04/1985 01/02/2014
> >> 2  2    1 29/10/1951 15/08/1996 01/05/2009
> >> 3  3    0 30/10/1942 02/08/2000 01/02/2014
> >> 4  4    1 22/05/1932 25/02/1993 01/03/2011
> >> 5  5    0 29/12/1942 22/06/2007 01/07/2012
> >> 6  6    1 18/11/1935 07/08/2010 01/01/2014
> >>
> >> A este data frame (cuya variable sexo ya está factorizada y cuyas otras
> >> variables ya están en formato de fecha) le quiero aplicar el siguiente
> >> código :
> >>
> >> conv <- function(data, edad_u=65)
> >>    { # INICIO DE LA FUNCIÓN
> >>
> >>    # Elimino individuos que tienen una edad_final < edat_u años
> >>    # ==========================================================
> >>    data$edad_final <- unclass(round(difftime(data$final, data$nacim,
> >> units="auto")/365.25,1))
> >>    data <- data[data$edad_final> edad_u,]
> >>    data$edad_final <- NULL # Elimino provisionalmente la variable
> edad_final
> >>
> >>    # Con los datos que quedan, distingo 2 situaciones:
> >>    # 1) La fecha de "origen" es anterior ó igual a: 01-01-2006
> >>    # 2) La fecha de "origen" es posterior a: 01-01-2006
> >>    # ==========================================================
> >>    for (i in 1:length(data$origen)) {
> >>      # Fecha de origen anterior o igual al 01-01-2006:
> >>      # -----------------------------------------------
> >>      if ((data$origen[i]) <= as.Date("2006-01-01")) {
> >>      # Creo para este subconjunto la variable temporal "edad_2006"
> >>      data$edad_2006 <- unclass(round(difftime('2006-01-01', data$nacim,
> >> units="auto")/365.25,1))
> >>      menor_t_2006 <- data[data$edad_2006 <= edad_u,]
> >>      menor_t_2006$edad_ent <- edad_u
> >>      mayor_t_2006 <- data[data$edad_2006 > edad_u,]
> >>      mayor_t_2006$edad_ent <- unclass(round(difftime('2006-01-01',
> >>                              mayor_t_2006$nacim,
> units="auto")/365.25,1))
> >>      data1.new <- rbind(menor_t_2006, mayor_t_2006)
> >>      data1.new <- data1.new[,-which(names(data1.new) %in%
> c('edad_2006'))]
> >>      }
> >>      # Fecha de origen posterior al 01-01-2006:
> >>      # ----------------------------------------
> >>      else if(data$origen[i] > as.Date('2006-01-01')) {
> >>      # Creo para este otro subconjunto la variable temporal
> "edad_origen"
> >>      data$edad_origen <- unclass(round(difftime(data$origen,
> >>                               data$nacim, units="auto")/365.25,1))
> >>      menor_t_origen <- data[data$edad_origen <= edad_u,]
> >>      menor_t_origen$edad_ent <- edad_u
> >>      mayor_t_origen <- data[data$edad_origen > edad_u,]
> >>      mayor_t_origen$edad_ent <-
> >> unclass(round(difftime(mayor_t_origen$origen,
> >>                         mayor_t_origen$nacim, units="auto")/365.25,1))
> >>      data2.new <- rbind(menor_t_origen, mayor_t_origen)
> >>      data2.new <- data2.new[,-which(names(data2.new) %in%
> c('edad_origen'))]
> >>      }
> >>    }
> >>    # Resultado: Unifico los dos subconjuntos
> >>    # ---------------------------------------
> >>    resultado <- rbind(data1.new, data2.new)
> >>    resultado$edad_final <- unclass(round(difftime(resultado$final,
> >>                          resultado$nacim, units="auto")/365.25,1))
> >>    return(resultado)
> >>   }  # FINAL DE LA FUNCIÓN
> >>
> >> Mis dudas son dos:
> >>
> >> 1)  La función aplicada sobre el data frame dd no funciona, y me sale el
> >> siguiente aviso:
> >>     Error en rbind(deparse.level, ...) :
> >>        numbers of columns of arguments do not match
> >>
> >> 2) ¿Cómo puedo incluir también como argumento de la función la fecha que
> >> desee? (Es decir,
> >>        en el caso anteruior era la fecha 01-01-2006, pero podría ser
> otra)
> >>
> >> GRACIAS A TODOS POR VUESTRA AYUDA (si alguien considera algún punto
> >> claramente mejorable de la programación, le ruego que me lo diga).
> ¡Muchas
> >> gracias!
> >>
> >>
> >>
> >>
> >>          [[alternative HTML version deleted]]
> >>
> >>
> >> _______________________________________________
> >> R-help-es mailing list
> >> R-help-es@r-project.org
> >> https://stat.ethz.ch/mailman/listinfo/r-help-es
> >>
> >>
> >
> >
> >
> > _______________________________________________
> > R-help-es mailing list
> > R-help-es@r-project.org
> > https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
>         [[alternative HTML version deleted]]
>
>
>
> ------------------------------
>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
> Fin de Resumen de R-help-es, Vol 62, Envío 11
> *********************************************
>

	[[alternative HTML version deleted]]

