<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: 12pt">
<DIV>Jorge</DIV>
<DIV> </DIV>
<DIV>Muchas gracias, ahora entiendo como usar ave, hoy me equivoqué tanto con
eso.</DIV>
<DIV> </DIV>
<DIV>En otro lado de mi código y funcionando tengo out <- ave(Serv$Ini_Serv,
list(Serv$RP), FUN = foo), no entendía como con algo más sencillo no podía, y
era solo with(datos, ave(Edad, Animal, FUN = min))</DIV>
<DIV> </DIV>
<DIV>Me llama la atención su eficiencia, resolver mi problema con 8 palabras, yo
use más de 20 (descontando mis errores y barbaridades de código).</DIV>
<DIV> </DIV>
<DIV>Nuevamente, gracias.</DIV>
<DIV> </DIV>
<DIV>Javier</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>
<DIV style="FONT: 10pt tahoma">
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A title=jorgeivanvelez@gmail.com
href="mailto:jorgeivanvelez@gmail.com">Jorge I Velez</A> </DIV>
<DIV><B>Sent:</B> Thursday, April 26, 2012 12:58 AM</DIV>
<DIV><B>To:</B> <A title=javier.ruben.marcuzzi@gmail.com
href="mailto:javier.ruben.marcuzzi@gmail.com">Marcuzzi, Javier Rubén</A> </DIV>
<DIV><B>Cc:</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> Re: [R-es] 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"><FONT
face=arial,helvetica,sans-serif>Javier,<BR><BR>O simplemente<BR><BR></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>
<DIV> </DIV>
<DIV class=gmail_extra>
<DIV> </DIV>
<DIV class=gmail_quote>2012/4/25 Marcuzzi, Javier Rubén <SPAN
dir=ltr><></SPAN><BR>
<BLOCKQUOTE
style="BORDER-LEFT: #ccc 1px solid; MARGIN: 0px 0px 0px 0.8ex; PADDING-LEFT: 1ex"
class=gmail_quote>
<DIV dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-FAMILY: 'Calibri'; 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'; FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none">
<DIV style="FONT: 10pt tahoma">
<DIV><FONT size=3 face=Calibri></FONT> </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-STYLE: normal; DISPLAY: inline; FONT-FAMILY: 'Calibri'; FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none">
<DIV dir=ltr>
<DIV style="FONT-FAMILY: 'Calibri'; 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:92542A9FE22C4B7BA215214FEF14BFB5@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><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>
<DIV> </DIV></DIV></DIV></DIV></DIV></BODY></HTML>