Caros Fábio e Benilton,<br><br>Fico muito grato pela ajuda de vocês, vou estudar bem os códigos que vocês me propuseram e com certeza irei aprender muito. A ajuda de vocês não só está servindo nesse caso, mas também como um todo em matéria de programação.<br>
<br>Podem ficar tranquilo, que o que uso para rodar o R é o emacs 23 com o ESS no debian Squezee!<br><br>Muito obrigado mesmo...<br><br>abraços,<br>Fernando H<br><br><div class="gmail_quote">2011/3/22 Benilton Carvalho <span dir="ltr"><<a href="mailto:beniltoncarvalho@gmail.com">beniltoncarvalho@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Se estiver sob Windows, e' suficiente instalar o RTools... e<br>
substituir R CMD por Rcmd (acho que e' isso, nao tenho como testar)...<br>
<br>
<a href="http://www.murdoch-sutherland.com/Rtools/" target="_blank">http://www.murdoch-sutherland.com/Rtools/</a><br>
<br>
b<br>
<br>
2011/3/22 Fabio Mathias Corrêa <<a href="mailto:fabio.ufla@yahoo.com.br">fabio.ufla@yahoo.com.br</a>>:<br>
<div><div></div><div class="h5">> Carto Fernando,<br>
><br>
> O seu problema não estava no for, mas sim nos if's e else's que vc tem na<br>
> função segregação! O for foi substituído por um apply!<br>
><br>
> Creio que seu problema foi resolvido! O que levava quase 5 seg. por iteração<br>
> agora faz em 0.032 seg aproximadamente!<br>
><br>
> Em anexo estão os arquivos que utilizei como teste.<br>
><br>
> Espero que vc utilize o linux, pois se vc dá dinheiro do Bill Gates, não<br>
> conseguirá rodar o programa! Ele não ajuda quem dá dinheiro a ele!!!<br>
><br>
> No diretório onde se encontra o arquivo segregacao.c e exemplo.R vc deve dar<br>
> a seguinte linha de comando:<br>
><br>
> R CMD SHLIB segregacao.c<br>
><br>
> R CMD BATCH exemplo.R # Para rodar em Batch<br>
><br>
> Ou rode no seu editor R favorito!<br>
><br>
> Dá para otimizar mais, o seu código, porém exige muuuiiittooo mais tempo!<br>
><br>
> Valeu!!!<br>
><br>
><br>
>             Fábio Mathias Corrêa<br>
>         Departamento de Estatística<br>
>    Universidade Estadual de Santa Cruz<br>
><br>
><br>
><br>
> Tel.: 73-3680-5076<br>
> Cel.: 73-9991-8155<br>
><br>
><br>
><br>
</div></div><div><div></div><div class="h5">> _______________________________________________<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>
><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>
</div></div></blockquote></div><br>