<font face="arial, helvetica, sans-serif">Para declarar a variável. Se vc tentar rodar o primeiro c(err, sqrt((410.35/(n[i]+0.5))+(410.35/(n[j]+0.5)))) sem declarar err como NULL (ou como qualquer outra coisa) vai aparecer "<span style="line-height:17px;white-space:pre-wrap">Erro: objeto 'err' não encontrado".</span></font><div>

<span style="line-height:17px;white-space:pre-wrap"><font face="arial, helvetica, sans-serif"><br></font></span></div><div><span style="line-height:17px;white-space:pre-wrap"><font face="arial, helvetica, sans-serif">Abraços,</font></span></div>

<div><span style="line-height:17px;white-space:pre-wrap"><font face="arial, helvetica, sans-serif">Lucas</font><font face="'Lucida Console'"><br>
</font></span><br><div class="gmail_quote">2011/12/1 Mauro Sznelwar <span dir="ltr"><<a href="mailto:sznelwar@uol.com.br" target="_blank">sznelwar@uol.com.br</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<u></u>





<div bgcolor="#ffffff">
<div><font face="Arial" color="#0000ff">Estava olhando esta discussão, queria saber 
por que precisa colocar este NULL no err<-NULL?</font></div><div><div>
<blockquote style="PADDING-RIGHT:0px;PADDING-LEFT:5px;MARGIN-LEFT:5px;BORDER-LEFT:#000000 2px solid;MARGIN-RIGHT:0px">
  <div><br></div>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" target="_blank">gilbert_queiroz@yahoo.com.br</a>></span><br>
  <blockquote class="gmail_quote" style="PADDING-LEFT:1ex;MARGIN:0px 0px 0px 0.8ex;BORDER-LEFT:#ccc 1px solid">
    <div>
    <div style="FONT-SIZE:12pt;COLOR:#000;FONT-FAMILY:times new roman,new york,times,serif;BACKGROUND-COLOR:#fff">
    <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></blockquote></div></div></blockquote></div></div></div>
<br>_______________________________________________<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>