Já tentou usando as funções get() e assign()? Nunca usei elas, mas acredito que resolvam o teu problema. Reformulei o que te mandei, unica coisa extra que tu tem que fazer é na variável 'variaveis' botar em formato de string o nome das variáveis da coordenadas.<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><b>variaveis = c('X','Y','Z')</b></div><div>for (i in variaveis) {</div><div> temp <- func(get(i))</div>
<div> assign(paste('ic_inf_',i,sep=''),temp[,1])</div><div> assign(paste('ic_sup_',i,sep=''),temp[,2])</div><div> assign(paste(i,'_b',sep=''),temp[,3])</div><div>}</div><div>
<br></div><div><br></div><div><br></div><div><br></div>[]'s</div><div><br></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>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"> <hr size="1"> <b><span style="font-weight:bold">De:</span></b> Rodrigo Coster <<a href="mailto:rcoster@gmail.com" target="_blank">rcoster@gmail.com</a>><br> <b><span style="font-weight:bold">Para:</span></b> <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>
<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><div><div class="h5"> <br><div>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" href="http://boot.ci" target="_blank">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>2012/1/5 Maria Papa <span dir="ltr"><<a rel="nofollow" href="mailto:mceliamat@yahoo.com.br" target="_blank">mceliamat@yahoo.com.br</a>></span><br>
<blockquote 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" 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 face="Arial" color="#7f007f"></font></b> <br>
</div></div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a rel="nofollow" href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" 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 rel="nofollow" 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>
</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><br> </div></div></div> </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>