[R-es] conocer los mínimos

[Marcuzzi, Javier Rubén]

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>