<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:14pt"><div style="RIGHT: auto"><SPAN style="RIGHT: auto">Com esta abordagem não ficaram as duas linhas a mais.</SPAN></div>
<div style="BACKGROUND-COLOR: transparent; FONT-STYLE: normal; FONT-FAMILY: arial, helvetica, sans-serif; COLOR: rgb(0,0,0); FONT-SIZE: 19px; RIGHT: auto"><SPAN style="RIGHT: auto">Não consegui ver o pq...</SPAN></div>
<div style="BACKGROUND-COLOR: transparent; FONT-STYLE: normal; FONT-FAMILY: arial, helvetica, sans-serif; COLOR: rgb(0,0,0); FONT-SIZE: 19px; RIGHT: auto"><SPAN style="RIGHT: auto">Obrigada, Daniel e Rodrigo<VAR id=yui-ie-cursor></VAR></SPAN></div>
<div><BR></div>
<DIV style="FONT-FAMILY: arial, helvetica, sans-serif; FONT-SIZE: 14pt">
<DIV style="FONT-FAMILY: times new roman, new york, times, serif; FONT-SIZE: 12pt">
<DIV dir=ltr><FONT size=2 face=Arial>
<DIV style="BORDER-BOTTOM: #ccc 1px solid; BORDER-LEFT: #ccc 1px solid; PADDING-BOTTOM: 0px; LINE-HEIGHT: 0; MARGIN: 5px 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; HEIGHT: 0px; FONT-SIZE: 0px; BORDER-TOP: #ccc 1px solid; BORDER-RIGHT: #ccc 1px solid; PADDING-TOP: 0px" class=hr contentEditable=false readonly="true"></DIV><B><SPAN style="FONT-WEIGHT: bold">De:</SPAN></B> Daniel C Bezerra <danielcbezerra@gmail.com><BR><B><SPAN style="FONT-WEIGHT: bold">Para:</SPAN></B> r-br@listas.c3sl.ufpr.br <BR><B><SPAN style="FONT-WEIGHT: bold">Enviadas:</SPAN></B> Sábado, 1 de Dezembro de 2012 15:30<BR><B><SPAN style="FONT-WEIGHT: bold">Assunto:</SPAN></B> Re: [R-br] Como criar data.frame com linhas contendo NA's<BR></FONT></DIV><BR>
<DIV id=yiv1078301165>Eu faria assim:<BR>dia<-c(1,2,4,1,4)<BR>local<-c(1,1,1,2,2)<BR>dado1<-c(0.10,0.15,0.20,0.27,0.15)<BR>dado2<-c(15,16,20,23,25)<BR>dados<-data.frame(dia,local,dado1,dado2)<BR>dia.2<-rep(1:4,2)<BR>local.2<-rep(c(1,2),each=4)<BR><BR>data.frame(dia.2,local.2,apply(dados[,3:4],2,function(x) ifelse((dia.2%in%dia)&(local.2%in%local),x,NA)))<BR><BR> dia.2 local.2 dado1 dado2<BR>1 1 1 0.10 15<BR>2 2 1 0.15 16<BR>3 3 1 NA NA<BR>4 4 1 0.27 23<BR>5 1 2 0.15 25<BR>6
2 2 0.10 15<BR>7 3 2 NA NA<BR>8 4 2 0.20 20<BR><BR>Abs,<BR><BR>Daniel<BR><BR>
<DIV class=yiv1078301165gmail_quote>2012/12/1 Rodrigo Coster <SPAN dir=ltr><<A href="mailto:rcoster@gmail.com" rel=nofollow target=_blank ymailto="mailto:rcoster@gmail.com">rcoster@gmail.com</A>></SPAN><BR>
<BLOCKQUOTE style="BORDER-LEFT: #ccc 1px solid; MARGIN: 0px 0px 0px 0.8ex; PADDING-LEFT: 1ex" class=yiv1078301165gmail_quote>
<DIV>Usando merge() e expand.grid() da pra fazer, mas se o número de combinações semana-locais for muito grande talvez haja uma solução mais viável</DIV>
<DIV><BR></DIV>
<DIV>
<DIV>dados <- matrix(scan(),ncol=4,byrow=T)</DIV>
<DIV class=yiv1078301165im>
<DIV>1 1 0.10 15</DIV>
<DIV>2 1 0.15 16</DIV>
<DIV>4 1 0.20 20</DIV>
<DIV>1 2 0.27 23</DIV>
<DIV>4 2 0.15 25</DIV>
<DIV><BR></DIV></DIV>
<DIV>dados <- data.frame(dados)</DIV>
<DIV>names(dados) <- c('dia','local','dado1','dado2')</DIV>
<DIV><BR></DIV>
<DIV># Supondo 4 dias e 2 locais:</DIV>
<DIV>tudo <- expand.grid(dia=1:4,local=1:2)</DIV>
<DIV><BR></DIV>
<DIV>merge(dados,tudo,all.x=T,all.y=T)</DIV></DIV>
<DIV><BR></DIV>
<DIV><BR></DIV>
<DIV>[]'s</DIV>
<DIV><BR></DIV>
<DIV class=yiv1078301165gmail_extra><BR><BR>
<DIV class=yiv1078301165gmail_quote>
<DIV>
<DIV class=yiv1078301165h5>2012/12/1 Taynãna César Simões <SPAN dir=ltr><<A href="mailto:tay_estatistica@yahoo.com.br" rel=nofollow target=_blank ymailto="mailto:tay_estatistica@yahoo.com.br">tay_estatistica@yahoo.com.br</A>></SPAN><BR></DIV></DIV>
<BLOCKQUOTE style="BORDER-LEFT: #ccc 1px solid; MARGIN: 0px 0px 0px 0.8ex; PADDING-LEFT: 1ex" class=yiv1078301165gmail_quote>
<DIV>
<DIV class=yiv1078301165h5>
<DIV>
<DIV style="FONT-FAMILY: arial, helvetica, sans-serif; FONT-SIZE: 14pt">
<DIV>Pessoal,</DIV>
<DIV> </DIV>
<DIV>Tentei fazer 'for' dentro de 'for', mas está ficando complicado.</DIV>
<DIV>Suponham que tenho um data.frame com dados espaco-tempo irregulares:</DIV>
<DIV>foram coletados. </DIV>
<DIV> </DIV>
<DIV>dia local dado1 dado2</DIV>
<DIV>1 1 0.10 15</DIV>
<DIV>2 1 0.15 16</DIV>
<DIV>4 1 0.20 20</DIV>
<DIV>1 2 0.27 23</DIV>
<DIV>4 2 0.15 25</DIV>
<DIV> </DIV>
<DIV>Preciso criar um data.frame full<VAR></VAR>, completando os dados com NA´s, tipo:</DIV>
<DIV> </DIV>
<DIV>dia local dado1 dado2</DIV>
<DIV>1 1 0.10 15</DIV>
<DIV>2 1 0.15 16</DIV>
<DIV>3 1 NA NA</DIV>
<DIV>4 1 0.20 20</DIV>
<DIV>1 2 0.27 23</DIV>
<DIV>2 2 NA NA</DIV>
<DIV>3 2 NA NA</DIV>
<DIV>4 2 0.15 25</DIV>
<DIV> </DIV>
<DIV>Tenho dezenhas de semanas e centenas de locais observados, além de várias </DIV>
<DIV>covariáveis. </DIV>
<DIV> </DIV>
<DIV>Alguma sugestão?</DIV>
<DIV>Obrigada.</DIV>
<DIV> </DIV>
<DIV>Att, Taynãna</DIV>
<DIV>Fiocruz/RJ</DIV></DIV></DIV><BR></DIV></DIV>_______________________________________________<BR>R-br mailing list<BR><A href="mailto:R-br@listas.c3sl.ufpr.br" rel=nofollow target=_blank ymailto="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</A><BR><A href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel=nofollow target=_blank>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A><BR>Leia o guia de postagem (<A href="http://www.leg.ufpr.br/r-br-guia" rel=nofollow target=_blank>http://www.leg.ufpr.br/r-br-guia</A>) e forneça código mínimo reproduzível.<BR></BLOCKQUOTE></DIV><BR></DIV><BR>_______________________________________________<BR>R-br mailing list<BR><A href="mailto:R-br@listas.c3sl.ufpr.br" rel=nofollow target=_blank ymailto="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</A><BR><A href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel=nofollow
target=_blank>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A><BR>Leia o guia de postagem (<A href="http://www.leg.ufpr.br/r-br-guia" rel=nofollow target=_blank>http://www.leg.ufpr.br/r-br-guia</A>) e forneça código mínimo reproduzível.<BR></BLOCKQUOTE></DIV><BR></DIV><BR>_______________________________________________<BR>R-br mailing list<BR><A href="mailto:R-br@listas.c3sl.ufpr.br" ymailto="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</A><BR><A href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target=_blank>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A><BR>Leia o guia de postagem (<A href="http://www.leg.ufpr.br/r-br-guia" target=_blank>http://www.leg.ufpr.br/r-br-guia</A>) e forneça código mínimo reproduzível.<BR><BR></DIV></DIV></div></body></html>