<font face="trebuchet ms,sans-serif">Samuel,<br><br>Eu não entendi. Coloque um exemplo do resultado que você espera, descreva verbalmente o procedimento.<br>Fiz um tiro no escuro mas aqui eu esperava que os data.frames fossem de mesma dimensão, mas não, então não sei<br>
<br><span style="font-family: courier new,monospace;">dados <- data.frame(parcela = rep(1:5, each=3), repeticao = rep(1:3, 5))</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">dados2 <- data.frame(parcela = rep(1:7, each=3), repeticao = rep(1:3, 7))</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">dados</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">dados2</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">dados2$mesma <- sapply(1:nrow(dados2),</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> function(i){</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> ifelse(dados$parcela[i]==dados2$parcela[i], 1, 0)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> })</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">cbind(dados$parcela, dados2$parcela, dados2$mesma)</span><br style="font-family: courier new,monospace;"><br>À disposição.<br>Walmes.<br clear="all"></font><span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">Walmes Marques Zeviani</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">fone: (+55) 41 3361 3573</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">VoIP: (3361 3600) 1053 1173</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a></span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">twitter: @walmeszeviani</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">linux user number: 531218</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br>
<br><br><div class="gmail_quote">Em 7 de abril de 2011 22:06, Rodrigo Coster <span dir="ltr"><<a href="mailto:rcoster@gmail.com">rcoster@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
Alem da diferença de tamanhos (warning 1), tu não pode usar == para vetores num if, e sim só para valores (warning 2). <div><div><br></div><div><br><div class="gmail_quote"><div class="im">2011/4/7 Samuel Carvalho <span dir="ltr"><<a href="mailto:samukajm@yahoo.com.br" target="_blank">samukajm@yahoo.com.br</a>></span><br>
</div><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;"><div><div></div><div class="h5"><div><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">
Caros(as)<br>Help-me com o este script. A idéia é trabalhar com 2 data.frames e atribuir codigos para variaveis semelhantes em ambos.<br>
### Segue o código<br>dados <- data.frame(parcela = rep(1:5, each=3), repeticao = rep(1:3, 5))<br>dados2 <- data.frame(parcela = rep(1:7, each=3), repeticao = rep(1:3, 7))<br>dados<br>dados2<br>dados2$mesma <- 0<br>
if(dados2$parcela == dados$parcela)<br>{<br> dados2$mesma <- 1<br>}<br>### <span style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Arial; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; font-size: medium;"><span style="font-family: 'Lucida Console'; font-size: 12px; line-height: 16px; white-space: pre-wrap;"><pre style="font-family: 'Lucida Console'; font-size: 12px; outline-style: none; border-style: none; white-space: pre-wrap; margin: 0px; line-height: 16px;">
<span>Warning messages:<br></span><span>1: In dados2$parcela == dados$parcela :<br> longer object length is not a multiple of shorter object length<br></span><span>2: In if (dados2$parcela == dados$parcela) { :<br> a condi��o tem comprimento > 1 e somente o primeiro elemento ser� usado</span></pre>
</span></span>### <br>### A questão é que este loop completa todos valores de "dados2$mesma com o número 1 e<br>
### a idéia é preencher apenas as parcelas em comum...<br>
<br>Entendi que não é possível trabalhar com objetos com dimensões diferentes<br>[]'s<br>Samuel <br><div style="font-family: courier,monaco,monospace,sans-serif;"><font size="3"><b>====================================</b></font></div>
<div style="font-family: courier,monaco,monospace,sans-serif;"><font size="3"><b>Samuel P. C. Carvalho<br></b><font size="2" color="#000000">Mestre em Ciências Florestais [UFLA]</font></font></div><div style="font-family: courier,monaco,monospace,sans-serif;">
<font size="2" color="#000000">Doutorando em Recursos Florestais [ESALQ/USP]</font></div><div style="font-family: courier,monaco,monospace,sans-serif;"><font size="2">=============================================</font></div>
<div><br></div>
</div></div><br></div></div><div class="im">_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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>
<br></div></blockquote></div><br></div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="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>
<br></blockquote></div><br>