<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:10pt"><div><span>Obrigada Rodrigo,</span></div><div><br><span></span></div><div><span>Certo eu entendi a sua sugestão e achei interessante, mas eu preciso de algo que eu pudesse rodar o código todo uma única vez, eu até pensei em colocar tudo em um "for", mas eu não consigo fazer com que ele entenda os nomes das coordenadas. <br></span></div><div><br><span></span></div><div><span>[]</span></div><div><br><span></span></div><div><span>Célia</span></div><br><div><br></div> <div style="font-family: arial, helvetica, sans-serif; font-size: 10pt;"> <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> Rodrigo Coster <rcoster@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, 5 de Janeiro de 2012 15:23<br> <b><span style="font-weight: bold;">Assunto:</span></b> Re: [R-br] Ajuda para nomear variáveis para uma função repetida<br> </font> <br><div id="yiv1267455591">Maria,<div><br></div><div>tu pode colocar isso dentro de uma função e repetir a função 3 vezes. Substitui o comando que tu nos passou por esse, a principio ele deveria funcionar. Depois disso é só dividir as matrizes outX, outY e outZ nas 3 variaveis que tu quer, ou trabalhar nelas mesmo.</div>
<div><br></div><div><div>func <- function(X) {</div><div> ic_inf_X [j] = ic_inf_X [j] = ic_inf_X [j] = rep(0,n)</div><div> for (j in 1:n) {</div><div> X_e = rep(X[j], length(m))+ (runif(m, -U,U))</div><div> funX = function(X_e){mean(X_e)}</div>
<div> X_boot = one.boot(X_e,funX,R)</div><div> X_boot_ic= <a rel="nofollow" target="_blank" href="http://boot.ci">boot.ci</a>(X_boot,conf = c(0.95),type = c("norm"))</div><div> ic_inf_X [j]= X_boot_ic$normal[2]</div><div> ic_sup_X [j] = X_boot_ic$normal[3]</div>
<div> X_b[j]= X_boot$t0</div><div> }</div><div> return(cbind(ic_inf=ic_inf,ic_sup=ic_sup,b=b))</div><div>}</div><div>outX = func(X)</div><div>outY = func(Y)</div><div>outZ = func(Z)</div><div><br></div><div><br></div><div>
<br></div><div><br></div>[]'s</div><div><br></div><div><br><div class="yiv1267455591gmail_quote">2012/1/5 Maria Papa <span dir="ltr"><<a rel="nofollow" ymailto="mailto:mceliamat@yahoo.com.br" target="_blank" href="mailto:mceliamat@yahoo.com.br">mceliamat@yahoo.com.br</a>></span><br><blockquote class="yiv1267455591gmail_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:arial, helvetica, sans-serif;font-size:10pt;"><div><span>Olá pessoal, boa tarde,</span></div><div><br><span></span></div><div><span>Gostaria da ajuda de vcs para nomear variáveis. Eu tenho este "for" que é aplicado para as três coordenadas de um ponto (XYZ). O procedimento é idêntico para os três, por isso, eu gostaria de saber se tem alguma forma de usar este mesmo conjunto mundando apenas o nome das coordenadas, no exemplo abaixo, eu faço com X e tenho os resutlados para X, depois e preciso para Y e Z. Eu fiz algumas tentativas com "for," mas não deu certo.<br>
</span></div><div><span><br></span></div><div><span>for (j in 1:n) {<br>X_e = rep(X[j], length(m))+ (runif(m, -U,U))<br>funX = function(X_e){mean(X_e)}<br>X_boot = one.boot(X_e,funX,R)<br>X_boot_ic= <a rel="nofollow" target="_blank" href="http://boot.ci">boot.ci</a>(X_boot,conf = c(0.95),type = c("norm"))<br>
ic_inf_X [j]= X_boot_ic$normal[2]<br>ic_sup_X [j] =
X_boot_ic$normal[3]<br>X_b[j]= X_boot$t0</span></div><div><span>}</span></div><div><br></div><div><br></div><div>os resultados que eu preciso no final e portanto devem ser trocados o nome das coordenadas são os intervalos de confiança <span>ic_inf_X, </span><span>ic_sup_X e X_b</span></div>
<div><br><span></span></div><div><span></span><br><span></span></div><div><span>Desde já agradeço a todos. <br></span></div><div><br><span></span></div><div><span>Célia</span></div><div> </div><div align="left"><b><font face="Arial" color="#7f007f"></font></b> <br>
</div></div></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><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>