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 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="gmail_quote">2012/1/5 Maria Papa <span dir="ltr"><<a href="mailto:mceliamat@yahoo.com.br">mceliamat@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: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 href="http://boot.ci" target="_blank">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 color="#7f007f" face="Arial"></font></b> <br>
</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>