<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div><span>Obrigado, Lucas,</span></div><div><span>Foi isto mesmo que fiz.</span></div><div><br><span></span></div><div><span>Abs.</span></div><div><br></div> <div style="font-family: times new roman, new york, times, serif; font-size: 12pt;"> <div style="font-family: times new roman, new york, times, serif; font-size: 12pt;"> <font face="Arial" size="2"> <hr size="1"> <b><span style="font-weight:bold;">De:</span></b> Lucas Barbosa <lucasbcr@gmail.com><br> <b><span style="font-weight: bold;">Para:</span></b> r-br@listas.c3sl.ufpr.br <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Quinta-feira, 1 de Dezembro de 2011 19:33<br> <b><span style="font-weight: bold;">Assunto:</span></b> Re: [R-br] Ajuda<br> </font> <br><div id="yiv363239204"><div>Gilbert, se vc quer mesmo usar <u>for</u> é só fazer
atribuições dentro do loop mesmo.</div><div><br></div><span style="font-size:16px;background-color:rgb(255,255,255);">n<-c(87, 108, 80, 25)</span><br style="font-size:16px;background-color:rgb(255,255,255);">
<span style="font-size:16px;background-color:rgb(255,255,255);">nx</span><div><span class="yiv363239204Apple-style-span" style="font-size:16px;background-color:rgb(255, 255, 255);">err.m<-matrix(NA, choose(nx,2),1)</span></div>
<div><span class="yiv363239204Apple-style-span" style="font-size:16px;background-color:rgb(255, 255, 255);"><font class="yiv363239204Apple-style-span" color="#cc0000">indice <- 1</font></span><div>
<span style="font-size:16px;background-color:rgb(255,255,255);">for(i in 1:nx)</span><br style="font-size:16px;background-color:rgb(255,255,255);">
<span style="font-size:16px;background-color:rgb(255,255,255);"> { </span><br style="font-size:16px;background-color:rgb(255,255,255);">
<span style="font-size:16px;background-color:rgb(255,255,255);"> for(j in 2:nx)</span><br style="font-size:16px;background-color:rgb(255,255,255);">
<span style="font-size:16px;background-color:rgb(255,255,255);"> {</span><br style="font-size:16px;background-color:rgb(255,255,255);">
<span style="font-size:16px;background-color:rgb(255,255,255);"> if(i<j){</span><br style="font-size:16px;background-color:rgb(255,255,255);">
<font class="yiv363239204Apple-style-span" color="#cc0000"><span style="font-size:16px;background-color:rgb(255,255,255);"> err.m[indice]<-sqrt((410.35/(n[i]+0.5))+</span><span style="font-size:16px;background-color:rgb(255,255,255);">(410.35/(n[j]+0.5)))</span></font></div>
<div><font class="yiv363239204Apple-style-span" color="#cc0000"><span class="yiv363239204Apple-style-span" style="font-size:16px;background-color:rgb(255, 255, 255);"> </span><span class="yiv363239204Apple-style-span" style="font-size:16px;background-color:rgb(255, 255, 255);"> </span><span style="font-size:16px;background-color:rgb(255,255,255);">indice <- indice + 1</span></font></div>
<div><span style="font-size:16px;background-color:rgb(255,255,255);"> }</span><br style="font-size:16px;background-color:rgb(255,255,255);">
<span style="font-size:16px;background-color:rgb(255,255,255);"> }</span><br style="font-size:16px;background-color:rgb(255,255,255);">
<span style="font-size:16px;background-color:rgb(255,255,255);"> }</span><br><br><div class="yiv363239204gmail_quote">Em 1 de dezembro de 2011 09:04, Lucas Petri Damiani <span dir="ltr"><<a rel="nofollow" ymailto="mailto:lucaspd16@gmail.com" target="_blank" href="mailto:lucaspd16@gmail.com">lucaspd16@gmail.com</a>></span> escreveu:<br>
<blockquote class="yiv363239204gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><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="yiv363239204gmail_quote">2011/12/1 Mauro Sznelwar <span dir="ltr"><<a rel="nofollow" ymailto="mailto:sznelwar@uol.com.br" target="_blank" href="mailto:sznelwar@uol.com.br">sznelwar@uol.com.br</a>></span><br><blockquote class="yiv363239204gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div><div>
<u></u>
<div>
<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="yiv363239204gmail_quote">2011/11/30 Gilbert Queiroz <span dir="ltr"><<a rel="nofollow" ymailto="mailto:gilbert_queiroz@yahoo.com.br" target="_blank" href="mailto:gilbert_queiroz@yahoo.com.br">gilbert_queiroz@yahoo.com.br</a>></span><br>
<blockquote class="yiv363239204gmail_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></div></div><div>_______________________________________________<br>
R-br mailing list<br>
<a rel="nofollow" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="nofollow" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></div></blockquote></div><br></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a rel="nofollow" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="nofollow" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div></div>
</div><br>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" 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><br> </div> </div> </div></body></html>