Você pode tentar assim:<div><br></div><div><div>n<-c(87, 108, 80, 25)</div><div>err.m<-matrix(NA, choose(nx,2),1)</div><div>err.m</div><div>nx</div><div>err <- NULL</div><div>for(i in 1:nx)</div><div>  {  </div><div>
     for(j in 2:nx)</div><div>       {</div><div>       if(i<j){</div><div>       err<-c(err, sqrt((410.35/(n[i]+0.5))+(410.35/(n[j]+0.5))))</div><div>              }</div><div>       }</div><div>  }</div><div>err.m <- err</div>
<div><br></div><div>Mas existem outras formas para escrever o mesmo código, um pouco mais enxuto:</div><div><br></div><div><div>fun <- function(x,y){sqrt((410.35/(x+0.5))+(410.35/(y+0.5)))}</div><div>err.m2 <- sapply(n,fun,n)[lower.tri(sapply(n,fun,n))]</div>
<div>err.m2</div></div><div><br></div><div>Espero ter ajudado.</div><div>Abraços,</div><div>Lucas</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></div>