<font><font face="arial,helvetica,sans-serif">Javier,<br><br>O simplemente<br><br></font></font><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> datos$nueva_edad <- with(datos, ave(Edad, Animal, FUN = min))<br>datos<br><br><div>Saludos,<br>Jorge.-<br></div><br><div class="gmail_extra"><br><div class="gmail_quote">

2012/4/25 Marcuzzi, Javier Rubén <span dir="ltr"><<a href="mailto:javier.ruben.marcuzzi@gmail.com" target="_blank"></a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">
<div dir="ltr">
<div style="font-size:12pt;font-family:'Calibri'">
<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-size:small;font-style:normal;text-decoration:none;font-family:'Calibri';display:inline;font-weight:normal">
<div style="FONT:10pt tahoma">
<div> </div>
<div style="BACKGROUND:#f5f5f5">
<div><b>From:</b>  </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" target="_blank">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-size:small;font-style:normal;text-decoration:none;font-family:'Calibri';display:inline;font-weight:normal">
<div dir="ltr">
<div style="font-size:12pt;font-family:'Calibri'">
<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" alt="image" src="cid:457F17DA1F3D4563B3EAC560A7BFEA55@JavierMarcuzzi" border="0" height="343" width="638"></div>



<div>Por lo que veo, al utilizar min(x) elimino valores, cosa que no evito con 
mis if. ¿Como podría hacer?</div><span><font color="#888888">
<div> </div>
<div>Javier</div></font></span></div></div></div></div></div></div>
<br>_______________________________________________<br>
R-help-es mailing list<br>
<a href="mailto:R-help-es@r-project.org" target="_blank">R-help-es@r-project.org</a><br>
<a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>
<br></blockquote></div><br></div>