<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:10pt"><div><span>Olá Rodrigo,</span></div><div><br></div><div>Legal, deu certo, vou fazer mais alguns testes, mas resolveu.</div><div><br></div><div>Muito obrigada<br><span></span></div><div> <br>[]'s <br><br>Cèlia<br></div><div align="left"><b><font size="2" color="#7f007f" face="Arial"></font></b> </div><div align="center"> <font style="color:rgb(0, 0, 0);font-family:tahoma, new york, times, serif;" color="#7f007f"><font size="2"><b><i>Maria Célia de Oliveira Papa</i></b></font><font size="2"><b><i> </i></b></font></font><br><font style="color:rgb(0, 0, 0);font-family:tahoma, new york, times, serif;" size="2" color="#7f007f"><span>D</span>outoranda em Engenharia de Produção</font><br style="color:rgb(0, 0, 0);font-family:tahoma, new york, times, serif;"><font style="color:rgb(0, 0, 0);font-family:tahoma, new york,
times, serif;" color="#0000bf"><a rel="nofollow" target="_blank" href="http://www.unimep.br/feau/scpm"><font size="2">http://www.unimep.br</font></a><br></font><font style="color:rgb(0, 0, 0);font-family:tahoma, new york, times, serif;" color="#bf00bf"><font size="2">Tel. +55 19 31241826</font></font><br style="color:rgb(0, 0, 0);font-family:tahoma, new york, times, serif;"><div align="center"><font style="color:rgb(0, 0, 0);font-family:tahoma, new york, times, serif;" color="#bf00bf"><font size="2">Universidade Metodista de Piracicaba</font></font><br></div></div><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 size="2" face="Arial"> <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 16:44<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="yiv2122993273">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 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><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="yiv2122993273gmail_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="yiv2122993273gmail_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 rel="nofollow" ymailto="mailto:rcoster@gmail.com" target="_blank" href="mailto:rcoster@gmail.com">rcoster@gmail.com</a>><br> <b><span style="font-weight:bold;">Para:</span></b> <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> <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="yiv2122993273h5"> <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" 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>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 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 color="#7f007f" face="Arial"></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 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><br> </div></div></div> </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>