R help es - Apr 2012 - conocer los mínimos

Encontré mi error, ahora funciona perfecto, 

Animal <-
c('A','A','A','B','B','C','D','D')
Edad <- c(2,3,4,3,4,2,4,5)
datos <- data.frame(Animal, Edad)
m_m <- with(datos, tapply(Edad, Animal, function(x){
  minimo <- min(x)
  valor <- length(x)
  rep(minimo, valor)
}))
datos$repetido <- do.call(c, m_m)
datos

From: Marcuzzi, Javier Rubén 
Sent: Wednesday, April 25, 2012 6:37 PM
To: R-help-es en r-project.org 
Subject: conocer los mínimos

Esperando que llegue el correo, les pregunto

Deseo tener una columna en un data.frame donde obtengo una edad de inicio que
queda constante, según el siguiente ejemplo:

Animal <-
c('A','A','A','B','B','C','D','D')
Edad <- c(2,3,4,3,4,2,4,5)
datos <- data.frame(Animal, Edad)
datos
# el número menor en Edad es el que interesa (edad de inicio)
Edad_Inicio_quiero <- c(2,2,2,3,3,2,4,4)
datos_final_deberia <- data.frame(datos, Edad_Inicio_quiero)
datos_final_deberia

Se me ocurre plantear la siguiente forma para resolverlo, pero tengo problemas,
según la siguiente captura de pantalla.


Por lo que veo, al utilizar min(x) elimino valores, cosa que no evito con mis
if. ¿Como podría hacer?

Javier
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20120426/a456c95b/attachment-0001.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: no disponible
Type: image/png
Size: 92806 bytes
Desc: no disponible
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20120426/a456c95b/attachment-0001.png>

Javier,

O simplemente

Animal <-
c('A','A','A','B','B','C','D','D')
Edad <- c(2,3,4,3,4,2,4,5)
datos <- data.frame(Animal, Edad)
 datos$nueva_edad <- with(datos, ave(Edad, Animal, FUN = min))
datos

Saludos,
Jorge.-


2012/4/25 Marcuzzi, Javier Rubén < <javier.ruben.marcuzzi en
gmail.com>>
>   Encontré mi error, ahora funciona perfecto,
>
> Animal <-
c('A','A','A','B','B','C','D','D')
> Edad <- c(2,3,4,3,4,2,4,5)
> datos <- data.frame(Animal, Edad)
> m_m <- with(datos, tapply(Edad, Animal, function(x){
>   minimo <- min(x)
>   valor <- length(x)
>   rep(minimo, valor)
> }))
> datos$repetido <- do.call(c, m_m)
> datos
>
>  *From:*
> *Sent:* Wednesday, April 25, 2012 6:37 PM
> *To:* R-help-es en r-project.org
> *Subject:* conocer los mínimos
>
>   Esperando que llegue el correo, les pregunto
>
> Deseo tener una columna en un data.frame donde obtengo una edad de inicio
> que queda constante, según el siguiente ejemplo:
>
> Animal <-
c('A','A','A','B','B','C','D','D')
> Edad <- c(2,3,4,3,4,2,4,5)
> datos <- data.frame(Animal, Edad)
> datos
> # el número menor en Edad es el que interesa (edad de inicio)
> Edad_Inicio_quiero <- c(2,2,2,3,3,2,4,4)
> datos_final_deberia <- data.frame(datos, Edad_Inicio_quiero)
> datos_final_deberia
>
> Se me ocurre plantear la siguiente forma para resolverlo, pero tengo
> problemas, según la siguiente captura de pantalla.
>
> [image: image]
> Por lo que veo, al utilizar min(x) elimino valores, cosa que no evito con
> mis if. ¿Como podría hacer?
>
> Javier
>
> _______________________________________________
> R-help-es mailing list
> R-help-es en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20120425/c1dd886d/attachment-0001.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: no disponible
Type: image/png
Size: 92806 bytes
Desc: no disponible
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20120425/c1dd886d/attachment-0001.png>