<div dir="ltr"><div><div><div><div><div><div><div><div><div>Uma pequena amostra dos dados ajudaria.<br></div>Mas com certeza dá pra vetorizar isso, e talvez até usar o pacote data.table.<br><br></div>Eu entendi que c é 60.000 e h 200?<br>
<br></div>Talvez resolva o loop externo:<br><br><span style="font-family:"Arial","sans-serif";font-size:12pt" lang="EN-US"><font color="#000000">bancof[,1] %in% obsf[1,1] & bancof[,2] %in% obsf[1,2]<br>
<br></font></span></div><span style="font-family:"Arial","sans-serif";font-size:12pt" lang="EN-US"><font color="#000000">Isso deve retornar um vetor de True e False. Apenas some os T (ou os F) e você tem a sua resposta.<br>
</font></span></div><span style="font-family:"Arial","sans-serif";font-size:12pt" lang="EN-US"><font color="#000000">Aí você pode passar um loop para cada um.<br><br></font></span></div><span style="font-family:"Arial","sans-serif";font-size:12pt" lang="EN-US"><font color="#000000">Outra opção, se o "%in%" não funcionar, é usar o match. Por exemplo:<br>
</font></span><br><span style="font-family:"Arial","sans-serif";font-size:12pt" lang="EN-US"><font color="#000000"><a href="http://is.na">is.na</a>(match(bancof[,1] %in% obsf[1,1])) & <a href="http://is.na">is.na</a>(match(bancof[,2] %in% obsf[1,2]))<br>
<br></font></span></div><span style="font-family:"Arial","sans-serif";font-size:12pt" lang="EN-US"><font color="#000000">O match retorna NA quando não há match. Assim, com os <a href="http://is.na">is.na</a>, vocÊ tem um vetor que é T onde não há match. Combinando os dois testes, vocÊ tem um vetor onde é T se não houver os dois matchs. Depois, basta dá um sum no vetor para ter a qtde que não há match.<br>
<br></font></span></div><div><span style="font-family:"Arial","sans-serif";font-size:12pt" lang="EN-US"><font color="#000000">Como o h é de 200, um loop em h deve ser rápido. Mas creio que dá pra evitar um loop completamente, talvez pensando em termos de algebra linear e multiplicações de vetores, construindo alguma indicadora. MAs sem um exemplo reproduzível fica difícil ajudar.<br>
</font></span></div><span style="font-family:"Arial","sans-serif";font-size:12pt" lang="EN-US"><font color="#000000">abçs<br></font></span></div><span style="font-family:"Arial","sans-serif";font-size:12pt" lang="EN-US"><font color="#000000">M<br>
</font></span><div><div><div><div><div><div><div><br><div><br></div></div></div></div></div></div></div></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/4/19 Helena Turon <span dir="ltr"><<a href="mailto:helena.turon@gmail.com" target="_blank">helena.turon@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><font color="#000000" face="Times New Roman" size="3">
</font><div style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000">Prezados,</font></span></div><div style="margin:0cm 0cm 0pt;line-height:normal">
<span style="font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000"></font></span> </div><div style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000">Para
contar os horários ou dias sem observações na estação meteorológica, dados
faltantes. </font></span></div><div style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000">Fiz um “for” no R:</font></span></div>
<font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000"> </font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000">c=comprimento
do vetor teórico (sequencia de datas e horários que deveriam existir
observações).</font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000">h=
comprimento dos dados das estações (pode haver horários ou dias seguidos sem
observações).</font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000"> </font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt" lang="EN-US"><font color="#000000">igual=0</font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt" lang="EN-US"><font color="#000000"> </font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt" lang="EN-US"><font color="#000000">for (m in 1:c){</font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt" lang="EN-US"><font color="#000000">for (jj in 1:h){</font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt" lang="EN-US"><font color="#000000">if ((bancof[m,1] == obsf[jj,1]) & (bancof[m,2] == obsf[jj,2]) )</font></span></p>
<font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000">{igual =
igual+1}</font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000">}</font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000">}</font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000"> </font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000">faltantes
= c-igual</font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000"> </font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000"> </font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000">coluna 1
é data dd/mm/aaaa e </font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000">coluna 2 horário
(0, 12, 18)</font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 10pt"><span style="line-height:115%;font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000"> </font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000">Mas ele está
demorado: uns 20 minutos por estação (pois elas têm umas 60.000 observações). Eu
tenho umas 200 estações. </font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 0pt;line-height:normal"><span style="font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000">Serão quatro
dias, só para os dados do Brasil, têm ainda outros países da América do Sul.</font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><p style="margin:0cm 0cm 10pt"><span style="line-height:115%;font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000"> </font></span></p><font color="#000000" face="Times New Roman" size="3">
</font><div style="margin:0cm 0cm 10pt"><span style="line-height:115%;font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000">Será que existe alguma função no R que faça isto mais depressa?</font></span></div>
<div style="margin:0cm 0cm 10pt"><span style="line-height:115%;font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000"></font></span> </div><div style="margin:0cm 0cm 10pt"><span style="line-height:115%;font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000">Obrigada,</font></span></div>
<span class="HOEnZb"><font color="#888888">
<div style="margin:0cm 0cm 10pt"><span style="line-height:115%;font-family:"Arial","sans-serif";font-size:12pt"><font color="#000000"></font></span> </div><div style="margin:0cm 0cm 10pt"><span style="line-height:115%;font-family:"Arial","sans-serif";font-size:12pt">-- <br>
Helena Turon Balbino<br>Meteorologista<br>Instituto Nacional de Meteorologia - INMET</span></div><div style="margin:0cm 0cm 10pt"><span style="line-height:115%;font-family:"Arial","sans-serif";font-size:12pt">7º DISTRITO DE METEOROLOGIA (SP e MS)<br>
Tel: <a href="tel:%2811%29%205051-5700" value="+551150515700" target="_blank">(11) 5051-5700</a> <br>******************************************************** </span></div><font color="#000000" face="Times New Roman" size="3">
</font></font></span></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>
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></blockquote></div><br><br clear="all"><br>-- <br>Manoel Galdino<br>
<a href="https://sites.google.com/site/galdinomcz/" target="_blank">https://sites.google.com/site/galdinomcz/</a><br>
</div>