<div dir="ltr"><div style="font-size:12.8000001907349px">Boa tarde pessoal,</div><div style="font-size:12.8000001907349px"><br></div><div style="font-size:12.8000001907349px">estou trabalhando com a função disponível no link <<a href="http://morotalab.org/Mrode2005/relmat/quass.txt" target="_blank">http://morotalab.org/Mrode2005/relmat/quass.txt</a>></div><div style="font-size:12.8000001907349px">e gostaria de aumentar a velocidade de execução da funcão.</div><div style="font-size:12.8000001907349px">Qualquer opinião é bem vinda.</div><div style="font-size:12.8000001907349px"><br></div><div style="font-size:12.8000001907349px">Segue abaixo um CMR:</div><div style="font-size:12.8000001907349px"><br></div><div style="font-size:12.8000001907349px">sire <- rep(1:50,each=50)</div><div style="font-size:12.8000001907349px">dam <- rep(1:50,50)</div><div style="font-size:12.8000001907349px"><br></div><div style="font-size:12.8000001907349px">s <- c(rep(0,50),sire)</div><div style="font-size:12.8000001907349px">d = c(rep(0,50),dam) </div><div style="font-size:12.8000001907349px"><br></div><div style="font-size:12.8000001907349px">system.time(quass(p,m)) </div><div><br></div><div>Desde já obrigado</div>-- <br><div class="gmail_signature"><div dir="ltr"><div><div style="text-align:center"><font><b>José Henrique Soler Guilhen</b></font><br><font>Mestrando em Genética e Melhoramento</font><br></div><div style="text-align:center"><font style="font-size:10pt" face="Verdana"><font style="font-size:10pt">Universidade Federal do Espírito Santo - CCAUFES</font></font><br></div><font style="font-size:10pt" face="Verdana"><br></font></div></div></div>
</div>