Você pode tentar tbm:<div><br></div><div><div>m <- outer(n, n, function(x, y)sqrt((410.35 / (x + 0.5)) + (410.35 / (y + 0.5))))</div><div>m[lower.tri(m)]</div><br><div class="gmail_quote">2011/11/30 Gilbert Queiroz <span dir="ltr"><<a href="mailto:gilbert_queiroz@yahoo.com.br">gilbert_queiroz@yahoo.com.br</a>></span><br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div><div style="color:#000;background-color:#fff;font-family:times new roman,new york,times,serif;font-size:12pt"><div>

Pessoal, tenho a seguinte parte de um script que estou desenvolvendo:</div><div><br></div><div>n<-c(87, 108, 80, 25)<br>err.m<-matrix(NA, choose(nx,2),1)<br>err.m<br>nx<br>for(i in 1:nx)<br>  {  <br>     for(j in 2:nx)<br>

       {<br>       if(i<j){<br>       err<-sqrt((410.35/(n[i]+0.5))+(410.35/(n[j]+0.5)))<br>       print(err)<br>              }<br>       }<br>  }</div><div><br>Informações úteis:<br></div><div>nx = 4 (já foi definido em outra parte do script)<br>

</div><div>err.m é uma matriz-coluna (6 x 1)<br></div><div><br></div><div>O quero fazer é colocar
 os resultados de err dentro da matriz err.m</div><div><br></div><div>Como faço
 isso???</div><div><br>O comando print me mostra que err está calculando o que quero. Mas me interessa colocar os resultados em err.m<br></div><div><br>Abs.</div></div></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"><div><br></div>-- <br>

Henrique Dallazuanna<br>Curitiba-Paraná-Brasil<br>25° 25' 40" S 49° 16' 22" O<br>
</div>