<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="gmail_extra"><br><div class="gmail_quote">Em 4 de março de 2015 13:20, Fernando Antonio de souza <span dir="ltr"><<a href="mailto:nandodesouza@gmail.com" target="_blank">nandodesouza@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_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="gmail_extra"><br><div class="gmail_quote">Em 4 de março de 2015 13:09, Michelle Bau Graczyk <span dir="ltr"><<a href="mailto:mbgraczyk@gmail.com" target="_blank">mbgraczyk@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5"><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 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>
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></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></div>