[R-br] transferir modelo da função nls para a função curve() automaticamente

[Éder Comunello]

Fernando, boa tarde!

Não sei se você já resolveu, mas consegui renomear as variáveis no exemplo
que você tinha proposto...

### <code r>
### dados pra testar
da.ori <- structure(list(Tubo = c(1L, 1L, 1L, 1L, 1L, 1L), Amostra = c(1L,
1L, 1L, 1L, 1L, 1L), dieta = c(1L, 1L, 1L, 1L, 1L, 1L), concentracao =
c(20L,
20L, 20L, 20L, 20L, 20L), Tempo = 1:6, PG = c(4.18, 6.16, 8.13,
9.94, 11.74, 13.72)), .Names = c("Tubo", "Amostra", "dieta",
"concentracao", "Tempo", "PG"), row.names = c(NA, 6L), class = "data.frame")

require(rpanel)

#-----------------------------------------------------------------------------
myDB <- function(myPanel){ da <<- da.ori; print(head(da)); return(myPanel) }

ren_x <- function(myPanel){
   var_indep <<- myPanel$var_x
   colnames(da)[grep(var_indep, colnames(da))] <<- "x"
   print(colnames(da)); return(myPanel)}

ren_y <- function(myPanel){
   var_dep   <<- myPanel$var_y
   colnames(da)[grep(var_dep, colnames(da))]   <<- "y"
   print(colnames(da)); return(myPanel)}
#-----------------------------------------------------------------------------

{myPanel <- rp.control(title = "Adjust", size=c(500,100))

rp.button(myPanel, action=myDB, title="Importar dados / Reiniciar...") #
botão importar bd

rp.textentry(panel=myPanel, variable=var_y,
             labels="nome da variável dependente(y):",
             initval="",
             action=ren_y)

rp.textentry(panel=myPanel, variable=var_x,
                 labels="nome da variável independente(x):",
                 initval="",
                 action=ren_x)}

# rp.control.dispose(myPanel)
### </code>


​


​
================================================
Éder Comunello
Agronomist (UEM), MSc in Environ. Sciences (UEM)
DSc in Agricultural Systems Engineering (USP/Esalq)
Brazilian Agricultural Research Corporation (Embrapa)
Dourados, MS, Brazil |<O>|
================================================
GEO, -22.2752, -54.8182, 408m
UTC-04:00 / DST: UTC-03:00
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20160302/b57fb43e/attachment.html>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: 2016-03-02_160856.png
Tipo: image/png
Tamanho: 15261 bytes
Descrição: não disponível
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20160302/b57fb43e/attachment.png>