<div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif">Fernando, boa tarde!</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Não sei se você já resolveu, mas consegui renomear as variáveis no exemplo que você tinha proposto...</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif"><span style="font-family:monospace,monospace">### <code r></span><br></div><div class="gmail_default" style="font-family:verdana,sans-serif"><span style="font-family:monospace,monospace">### dados pra testar</span></div><div class="gmail_default"><div class="gmail_default"><font face="monospace, monospace">da.ori <- structure(list(Tubo = c(1L, 1L, 1L, 1L, 1L, 1L), Amostra = c(1L, </font></div><div class="gmail_default"><font face="monospace, monospace">1L, 1L, 1L, 1L, 1L), dieta = c(1L, 1L, 1L, 1L, 1L, 1L), concentracao = c(20L, </font></div><div class="gmail_default"><font face="monospace, monospace">20L, 20L, 20L, 20L, 20L), Tempo = 1:6, PG = c(4.18, 6.16, 8.13, </font></div><div class="gmail_default"><font face="monospace, monospace">9.94, 11.74, 13.72)), .Names = c("Tubo", "Amostra", "dieta", </font></div><div class="gmail_default"><font face="monospace, monospace">"concentracao", "Tempo", "PG"), row.names = c(NA, 6L), class = "data.frame")</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">require(rpanel)</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">#-----------------------------------------------------------------------------</font></div><div class="gmail_default"><font face="monospace, monospace">myDB <- function(myPanel){ da <<- da.ori; print(head(da)); return(myPanel) }</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">ren_x <- function(myPanel){</font></div><div class="gmail_default"><font face="monospace, monospace">   var_indep <<- myPanel$var_x</font></div><div class="gmail_default"><font face="monospace, monospace">   colnames(da)[grep(var_indep, colnames(da))] <<- "x"</font></div><div class="gmail_default"><font face="monospace, monospace">   print(colnames(da)); return(myPanel)}</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">ren_y <- function(myPanel){</font></div><div class="gmail_default"><font face="monospace, monospace">   var_dep   <<- myPanel$var_y</font></div><div class="gmail_default"><font face="monospace, monospace">   colnames(da)[grep(var_dep, colnames(da))]   <<- "y"</font></div><div class="gmail_default"><font face="monospace, monospace">   print(colnames(da)); return(myPanel)}</font></div><div class="gmail_default"><font face="monospace, monospace">#-----------------------------------------------------------------------------</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">{myPanel <- rp.control(title = "Adjust", size=c(500,100))</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">rp.button(myPanel, action=myDB, title="Importar dados / Reiniciar...") # botão importar bd</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">rp.textentry(panel=myPanel, variable=var_y,</font></div><div class="gmail_default"><font face="monospace, monospace">             labels="nome da variável dependente(y):",</font></div><div class="gmail_default"><font face="monospace, monospace">             initval="",</font></div><div class="gmail_default"><font face="monospace, monospace">             action=ren_y)</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">rp.textentry(panel=myPanel, variable=var_x,</font></div><div class="gmail_default"><font face="monospace, monospace">                 labels="nome da variável independente(x):",</font></div><div class="gmail_default"><font face="monospace, monospace">                 initval="",</font></div><div class="gmail_default"><font face="monospace, monospace">                 action=ren_x)}</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace"># rp.control.dispose(myPanel)</font></div><div class="gmail_default"><font face="monospace, monospace">### </code></font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace"><img src="cid:ii_ilba1n4v0_15338f4258bc3755" width="508" height="146"><br>​<br></font></div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div></div><div class="gmail_extra"><br clear="all"><div><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><font face="arial, helvetica, sans-serif" style="font-size:small"><div style="font-family:'trebuchet ms',sans-serif;display:inline">​</div></font><font face="arial, helvetica, sans-serif" style="font-size:12.8px"><span style="font-size:small">================================================</span><br>Éder Comunello</font><div style="font-size:12.8px"><span style="font-family:arial,helvetica,sans-serif">Agronomist (UEM), MSc in Environ. Sciences (UEM)</span><font face="arial, helvetica, sans-serif"><br></font></div><div style="font-size:12.8px"><div style="font-size:small"><span style="font-family:arial,helvetica,sans-serif">DSc in Agricultural Systems Engineering (USP/Esalq)</span><br></div><div><span style="font-size:small">Brazilian Agricultural Research Corporation (</span><font face="arial, helvetica, sans-serif" style="font-size:small">Embrapa)</font></div><div><div><font face="arial, helvetica, sans-serif" style="font-size:small">Dourados, MS, Brazil </font><font face="arial, helvetica, sans-serif" size="2">|<O>|</font></div><div style="font-size:small"><span style="font-family:arial,helvetica,sans-serif">================================================</span><br></div></div></div><div style="font-size:small"><font face="arial, helvetica, sans-serif">GEO, </font>-22.2752, -54.8182, 408m<span style="font-family:arial,helvetica,sans-serif"><br></span></div><div style="font-size:12.8px"><span style="font-size:small;font-family:arial,helvetica,sans-serif">UTC-04:00 / DST: UTC-03:00</span></div><div><div><div><br></div><div><br></div></div><div style="font-size:small"><br></div></div></div></div></div></div></div></div></div></div></div></div></div>