<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: 12pt">
<DIV>Encontré mi error, ahora funciona perfecto, </DIV>
<DIV> </DIV>
<DIV>Animal <- c('A','A','A','B','B','C','D','D')</DIV>
<DIV>Edad <- c(2,3,4,3,4,2,4,5)</DIV>
<DIV>datos <- data.frame(Animal, Edad)</DIV>
<DIV>m_m <- with(datos, tapply(Edad, Animal, function(x){</DIV>
<DIV> minimo <- min(x)</DIV>
<DIV> valor <- length(x)</DIV>
<DIV> rep(minimo, valor)</DIV>
<DIV>}))</DIV>
<DIV>datos$repetido <- do.call(c, m_m)</DIV>
<DIV>datos</DIV>
<DIV
style="FONT-STYLE: normal; DISPLAY: inline; FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none">
<DIV style="FONT: 10pt tahoma">
<DIV> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A
title=javier.ruben.marcuzzi@gmail.com
href="mailto:javier.ruben.marcuzzi@gmail.com">Marcuzzi, Javier Rubén</A> </DIV>
<DIV><B>Sent:</B> Wednesday, April 25, 2012 6:37 PM</DIV>
<DIV><B>To:</B> <A title=R-help-es@r-project.org
href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</A> </DIV>
<DIV><B>Subject:</B> conocer los mínimos</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style="FONT-STYLE: normal; DISPLAY: inline; FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none">
<DIV dir=ltr>
<DIV style="FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: 12pt">
<DIV>Esperando que llegue el correo, les pregunto</DIV>
<DIV> </DIV>
<DIV>Deseo tener una columna en un data.frame donde obtengo una edad de inicio
que queda constante, según el siguiente ejemplo:</DIV>
<DIV> </DIV>
<DIV>Animal <- c('A','A','A','B','B','C','D','D')</DIV>
<DIV>Edad <- c(2,3,4,3,4,2,4,5)</DIV>
<DIV>datos <- data.frame(Animal, Edad)</DIV>
<DIV>datos</DIV>
<DIV># el número menor en Edad es el que interesa (edad de inicio)</DIV>
<DIV>Edad_Inicio_quiero <- c(2,2,2,3,3,2,4,4)</DIV>
<DIV>datos_final_deberia <- data.frame(datos, Edad_Inicio_quiero)</DIV>
<DIV>datos_final_deberia</DIV>
<DIV> </DIV>
<DIV>Se me ocurre plantear la siguiente forma para resolverlo, pero tengo
problemas, según la siguiente captura de pantalla.</DIV>
<DIV> </DIV>
<DIV><IMG
style="BACKGROUND-IMAGE: none; BORDER-BOTTOM: 0px; BORDER-LEFT: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; DISPLAY: inline; BORDER-TOP: 0px; BORDER-RIGHT: 0px; PADDING-TOP: 0px"
title=image border=0 alt=image
src="cid:457F17DA1F3D4563B3EAC560A7BFEA55@JavierMarcuzzi" width=638
height=343></DIV>
<DIV>Por lo que veo, al utilizar min(x) elimino valores, cosa que no evito con
mis if. ¿Como podría hacer?</DIV>
<DIV> </DIV>
<DIV>Javier</DIV></DIV></DIV></DIV></DIV></DIV></BODY></HTML>