<html><body><div style="color:#000; background-color:#fff; font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:13px"><div id="yui_3_16_0_1_1425555114621_5250" dir="ltr"><span id="yui_3_16_0_1_1425555114621_5334">Talvez o que você queira seja algo como:</span></div><div id="yui_3_16_0_1_1425555114621_5250" dir="ltr"><span><br></span></div><div id="yui_3_16_0_1_1425555114621_5250" dir="ltr"><span id="yui_3_16_0_1_1425555114621_5335">library(reshape2)</span></div><div id="yui_3_16_0_1_1425555114621_5250" dir="ltr">AA.data2 <- dcast(AA.data, data ~ hora, value.var = 'volume')<br></div><div id="yui_3_16_0_1_1425555114621_5250" dir="ltr"><br></div><div id="yui_3_16_0_1_1425555114621_5250" dir="ltr">(obs.: Código não testado)</div><div id="yui_3_16_0_1_1425555114621_5250" dir="ltr"><br></div><div id="yui_3_16_0_1_1425555114621_5250" dir="ltr">Att.,</div><div id="yui_3_16_0_1_1425555114621_5250" dir="ltr">Rubem</div><br>  <div style="font-family: Courier New, courier, monaco, monospace, sans-serif; font-size: 13px;" id="yui_3_16_0_1_1425555114621_5237"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;" id="yui_3_16_0_1_1425555114621_5236"> <div dir="ltr" id="yui_3_16_0_1_1425555114621_5235"> <hr size="1" id="yui_3_16_0_1_1425555114621_5249">  <font size="2" face="Arial" id="yui_3_16_0_1_1425555114621_5238"> <b><span style="font-weight:bold;">De:</span></b> Michelle Bau Graczyk <mbgraczyk@gmail.com><br> <b><span style="font-weight: bold;">Para:</span></b> r-br@listas.c3sl.ufpr.br <br> <b id="yui_3_16_0_1_1425555114621_5521"><span style="font-weight: bold;" id="yui_3_16_0_1_1425555114621_5520">Enviadas:</span></b> Quarta-feira, 4 de Março de 2015 14:00<br> <b><span style="font-weight: bold;">Assunto:</span></b> Re: [R-br] [R] Uso da função if<br> </font> </div> <div class="y_msg_container" id="yui_3_16_0_1_1425555114621_5239"><br><div id="yiv4558813674"><div dir="ltr" id="yui_3_16_0_1_1425555114621_5241"><div id="yui_3_16_0_1_1425555114621_5240"><span style="font-size:13px;">Oi Fernando e Rafael</span><div style="font-size:13px;" id="yui_3_16_0_1_1425555114621_5242">, eu acho que, pelo que eu vi, se eu só mandat o dput nao vai ficar tão claro. Por isso vou mandar os dados aqui em baixo, espero que você não ache ruim. Porque assim acho que fica mais claro.</div><div style="font-size:13px;" id="yui_3_16_0_1_1425555114621_5243">Eu preciso separar por horário os valores de volume. Assim eu quero gerar uma matriz as quais as colunas vao de 09:31 até 16:03 com as linhas sendo preenchidas pelos volumes do certo dia. O horário eu deixei em numero que vai de 1 ate a 396 ao invés de 09:31 até 16:03 porque achei mais fácil, ainda tenho dificuldades com character.</div><div style="font-size:13px;" id="yui_3_16_0_1_1425555114621_5244"><br></div><div style="font-size:13px;" id="yui_3_16_0_1_1425555114621_5245">Bom, seguem os dados!</div><div style="font-size:13px;" id="yui_3_16_0_1_1425555114621_5246"><br></div><div style="font-size:13px;" id="yui_3_16_0_1_1425555114621_5247">Muito obrigada!</div></div><div id="yui_3_16_0_1_1425555114621_5248"><br></div><div id="yui_3_16_0_1_1425555114621_5519">01.07.2004<span class="yiv4558813674" style="white-space:pre;">       </span>09:31:00<span class="yiv4558813674" style="white-space:pre;">    </span>51.37<span class="yiv4558813674" style="white-space:pre;">       </span>27900</div><div id="yui_3_16_0_1_1425555114621_5522">01.07.2004<span class="yiv4558813674" style="white-space:pre;">       </span>09:32:00<span class="yiv4558813674" style="white-space:pre;">    </span>51.32<span class="yiv4558813674" style="white-space:pre;">       </span>100</div><div id="yui_3_16_0_1_1425555114621_5523">01.07.2004<span class="yiv4558813674" style="white-space:pre;"> </span>09:33:00<span class="yiv4558813674" style="white-space:pre;">    </span>51.45<span class="yiv4558813674" style="white-space:pre;">       </span>700</div><div id="yui_3_16_0_1_1425555114621_5524">01.07.2004<span class="yiv4558813674" style="white-space:pre;"> </span>09:34:00<span class="yiv4558813674" style="white-space:pre;">    </span>51.46<span class="yiv4558813674" style="white-space:pre;">       </span>1000</div><div>01.07.2004<span class="yiv4558813674" style="white-space:pre;">       </span>09:35:00<span class="yiv4558813674" style="white-space:pre;">    </span>51.50<span class="yiv4558813674" style="white-space:pre;">       </span>800</div><div>01.07.2004<span class="yiv4558813674" style="white-space:pre;">        </span>09:36:00<span class="yiv4558813674" style="white-space:pre;">    </span>51.54<span class="yiv4558813674" style="white-space:pre;">       </span>3000</div><div>01.07.2004<span class="yiv4558813674" style="white-space:pre;">       </span>09:37:00<span class="yiv4558813674" style="white-space:pre;">    </span>51.54<span class="yiv4558813674" style="white-space:pre;">       </span>1600</div><div>.</div><div>.</div><div>.</div><div><div>31.12.2004<span class="yiv4558813674" style="white-space:pre;">    </span>15:45:00<span class="yiv4558813674" style="white-space:pre;">    </span>56.50<span class="yiv4558813674" style="white-space:pre;">       </span>4100</div><div>31.12.2004<span class="yiv4558813674" style="white-space:pre;">       </span>15:46:00<span class="yiv4558813674" style="white-space:pre;">    </span>56.50<span class="yiv4558813674" style="white-space:pre;">       </span>7400</div><div>31.12.2004<span class="yiv4558813674" style="white-space:pre;">       </span>15:47:00<span class="yiv4558813674" style="white-space:pre;">    </span>56.40<span class="yiv4558813674" style="white-space:pre;">       </span>8400</div><div>31.12.2004<span class="yiv4558813674" style="white-space:pre;">       </span>15:48:00<span class="yiv4558813674" style="white-space:pre;">    </span>56.44<span class="yiv4558813674" style="white-space:pre;">       </span>15800</div><div>31.12.2004<span class="yiv4558813674" style="white-space:pre;">      </span>15:49:00<span class="yiv4558813674" style="white-space:pre;">    </span>56.41<span class="yiv4558813674" style="white-space:pre;">       </span>4700</div><div>31.12.2004<span class="yiv4558813674" style="white-space:pre;">       </span>15:50:00<span class="yiv4558813674" style="white-space:pre;">    </span>56.44<span class="yiv4558813674" style="white-space:pre;">       </span>6900</div><div>31.12.2004<span class="yiv4558813674" style="white-space:pre;">       </span>15:51:00<span class="yiv4558813674" style="white-space:pre;">    </span>56.42<span class="yiv4558813674" style="white-space:pre;">       </span>9800</div><div>31.12.2004<span class="yiv4558813674" style="white-space:pre;">       </span>15:52:00<span class="yiv4558813674" style="white-space:pre;">    </span>56.43<span class="yiv4558813674" style="white-space:pre;">       </span>8700</div><div>31.12.2004<span class="yiv4558813674" style="white-space:pre;">       </span>15:53:00<span class="yiv4558813674" style="white-space:pre;">    </span>56.43<span class="yiv4558813674" style="white-space:pre;">       </span>7400</div><div>31.12.2004<span class="yiv4558813674" style="white-space:pre;">       </span>15:54:00<span class="yiv4558813674" style="white-space:pre;">    </span>56.40<span class="yiv4558813674" style="white-space:pre;">       </span>12400</div><div>31.12.2004<span class="yiv4558813674" style="white-space:pre;">      </span>15:55:00<span class="yiv4558813674" style="white-space:pre;">    </span>56.44<span class="yiv4558813674" style="white-space:pre;">       </span>11600</div><div>31.12.2004<span class="yiv4558813674" style="white-space:pre;">      </span>15:56:00<span class="yiv4558813674" style="white-space:pre;">    </span>56.45<span class="yiv4558813674" style="white-space:pre;">       </span>8900</div><div>31.12.2004<span class="yiv4558813674" style="white-space:pre;">       </span>15:57:00<span class="yiv4558813674" style="white-space:pre;">    </span>56.44<span class="yiv4558813674" style="white-space:pre;">       </span>14300</div><div>31.12.2004<span class="yiv4558813674" style="white-space:pre;">      </span>15:58:00<span class="yiv4558813674" style="white-space:pre;">    </span>56.44<span class="yiv4558813674" style="white-space:pre;">       </span>16600</div><div>31.12.2004<span class="yiv4558813674" style="white-space:pre;">      </span>15:59:00<span class="yiv4558813674" style="white-space:pre;">    </span>56.43<span class="yiv4558813674" style="white-space:pre;">       </span>21100</div><div>31.12.2004<span class="yiv4558813674" style="white-space:pre;">      </span>16:00:00<span class="yiv4558813674" style="white-space:pre;">    </span>56.43<span class="yiv4558813674" style="white-space:pre;">       </span>34500</div><div>31.12.2004<span class="yiv4558813674" style="white-space:pre;">      </span>16:02:00<span class="yiv4558813674" style="white-space:pre;">    </span>56.37<span class="yiv4558813674" style="white-space:pre;">       </span>46000</div><div>31.12.2004<span class="yiv4558813674" style="white-space:pre;">      </span>16:03:00<span class="yiv4558813674" style="white-space:pre;">    </span>56.37<span class="yiv4558813674" style="white-space:pre;">       </span>111400</div></div></div><div class="yiv4558813674gmail_extra"><br><div class="yiv4558813674gmail_quote">Em 4 de março de 2015 13:52, Michelle Bau Graczyk <span dir="ltr"><<a rel="nofollow" ymailto="mailto:mbgraczyk@gmail.com" target="_blank" class="removed-link" href="">mbgraczyk@gmail.com</a>></span> escreveu:<br><blockquote class="yiv4558813674gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div dir="ltr">Oi Fernando e Rafael<div>, eu acho que, pelo que eu vi, se eu só mandat o dput nao vai ficar tão claro. Por isso vou mandar os dados em anexo, espero que você não ache ruim. Porque assim acho que fica mais claro.</div><div>Eu preciso separar por horário os valores de volume. Assim eu quero gerar uma matriz as quais as colunas vao de 09:31 até 16:03 com as linhas sendo preenchidas pelos volumes do certo dia. O horário eu deixei em numero que vai de 1 ate a 396 ao invés de 09:31 até 16:03 porque achei mais fácil, ainda tenho dificuldades com character.</div><div><br></div><div>Bom, seguem os dados em anexo.</div><div><br></div><div>Muito obrigada!</div></div><div class="yiv4558813674gmail_extra"><br><div class="yiv4558813674gmail_quote">Em 4 de março de 2015 13:34, Fernando Antonio de souza <span dir="ltr"><<a rel="nofollow" ymailto="mailto:nandodesouza@gmail.com" target="_blank" class="removed-link" href="">nandodesouza@gmail.com</a>></span> escreveu:<div><div class="yiv4558813674h5"><br><blockquote class="yiv4558813674gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div dir="ltr"><div><div><div>Michelle é que para que os usuários da lista possam lhe ajudar é necessário que você forneça um CMR(código mínimo reproduzível) isso permite que possamos acessar seus dados e refazer os seus comandos e assim lhe orientar melhor.<br><br></div>Você forneceu o código, no entanto eu não tenho como acessar seus dados, pois o endereço que vc forneceu no read.table não é o mesmo em meu computador.<br><br></div>Por isso estou lhe solicitando que faça um dput(seusbancodedados). Após dar o enter esta função retornara seu banco de dados em um formato que todos os usuários poderam ter acesso apenas por copiar e colar esta saída no R. Você copia e cole no email essa saída e assim todos poderão utilizar seus dados e lhe ajudar de maneira mais rápida<br><br></div>Você pode fornecer todo o banco de dados ou apenas parte dele (no caso de banco de dados muito grande). O importante é que os dados fornecidos possam ser reproduzidos pela pessoa que está lhe ajudando.<br></div><div class="yiv4558813674gmail_extra"><br><div class="yiv4558813674gmail_quote">Em 4 de março de 2015 13:25, Michelle Bau Graczyk <span dir="ltr"><<a rel="nofollow" ymailto="mailto:mbgraczyk@gmail.com" target="_blank" class="removed-link" href="">mbgraczyk@gmail.com</a>></span> escreveu:<div><div><br><blockquote class="yiv4558813674gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div dir="ltr">Oi Fernando, <div><br></div><div>Me desculpe mas você pode ser um pouco mais claro? Sou iniciante em R e por isso ainda tenho muita dificuldade.</div></div><div class="yiv4558813674gmail_extra"><br><div class="yiv4558813674gmail_quote">Em 4 de março de 2015 13:20, Fernando Antonio de souza <span dir="ltr"><<a rel="nofollow" ymailto="mailto:nandodesouza@gmail.com" target="_blank" class="removed-link" href="">nandodesouza@gmail.com</a>></span> escreveu:<div><div><br><blockquote class="yiv4558813674gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div dir="ltr"><div>OLÁ<br><br></div>Faça um dput(seubancodedados) copie e cole a saída para que seus comandos possa ser replicados e possa lhe ajudar. Acredito que o que você deseja fazer pode ser feito com funções do pacote plyr ou lapply, o que torna muito mais eficiente.<br></div><div class="yiv4558813674gmail_extra"><br><div class="yiv4558813674gmail_quote">Em 4 de março de 2015 13:09, Michelle Bau Graczyk <span dir="ltr"><<a rel="nofollow" ymailto="mailto:mbgraczyk@gmail.com" target="_blank" class="removed-link" href="">mbgraczyk@gmail.com</a>></span> escreveu:<br><blockquote class="yiv4558813674gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div><div><div dir="ltr">Boa tarde, <div><br></div><div>Estou com um problema de lógica para o uso do if. Meu intuito com este programa é separar por horário os valores do volume. O horário está escrito de maneira numérica e vai de 1 até 396. O valor máximo de volumes por horário é 126.</div><div>Só que quando tento fazer rodar, vem a mensagem :</div><div>Erro em if (AA.data$hora[k] == i) { : </div><div>  valor ausente onde TRUE/FALSE necessário</div><div><br></div><div>Abaixo segue o programa.</div><div><br></div><div><div>AA<-read.table("/Users/bau/Documents/Mestrado/teste/AXP_NYS_USD_1min_EST5EDT_200407s12e.dat", header=FALSE, col.names=c("data","hora","preco","volume"))</div><div>hora<-as.numeric(AA$hora)</div><div>AA.data<-data.frame(data=AA$data,hora=hora, preco=AA$preco, volume=AA$volume)</div><div>write.table(AA.data,"testeteste.txt")</div><div><br></div><div>matriz.dadosAA<-matrix(nrow=128,ncol=4)</div><div>for(i in 1:4){</div><div>  </div><div>  j<-1</div><div>  for(k in 1:48935){</div><div>    for(j in 1:126){</div><div>    if(AA.data$hora[k]==i){</div><div>      </div><div>      </div><div>      matriz.dadosAA[j,i]=AA.data$volume[k]</div><div>      j=j+1</div><div>      </div><div><br></div><div>      </div><div>      </div><div>    </div><div>    } else {</div><div>      </div><div>      matriz.dadosAA[j,i]=0</div><div>      j=j+1}</div><div><br></div><div>      k=k+1</div><div>    </div><div>    }</div><div>  }</div><div>}</div><div>    a<-matriz.dadosAA[,1]</div><div>    write.table(a,"a.txt")</div></div><div><br></div><div><br></div><div><br></div><div>Muito obrigada,</div><div><br></div><div>Michelle</div></div>
<br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a rel="nofollow" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" class="removed-link" href="">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" target="_blank" class="removed-link" href="">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="nofollow" target="_blank" class="removed-link" href="">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 rel="nofollow" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" class="removed-link" href="">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" target="_blank" class="removed-link" href="">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="nofollow" target="_blank" class="removed-link" href="">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div></div></div><br></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a rel="nofollow" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" class="removed-link" href="">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" target="_blank" class="removed-link" href="">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="nofollow" target="_blank" class="removed-link" href="">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div></div></div><br></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a rel="nofollow" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" class="removed-link" href="">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" target="_blank" class="removed-link" href="">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="nofollow" target="_blank" class="removed-link" href="">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div></div></div><br></div>
</blockquote></div><br></div></div><br>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" class="removed-link" href="">R-br@listas.c3sl.ufpr.br</a><br><a target="_blank" class="removed-link" href="">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>Leia o guia de postagem (<a target="_blank" class="removed-link" href="">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br><br></div> </div> </div>  </div></body></html>