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

[Fernando Antonio de souza]

Olá Eder, tudo bem? Desculpe a demora em lhe retornar. Quero lhe agradecer
pela atenção.
 Eu ainda não tinha resolvido esta parte, era exatamente isso que queria.
 Quando terminar o que estou fazendo compartilharei aqui na lista acredito
que poderá se útil a outros

Mais uma vez meus sinceros agradecimentos.

Em 2 de março de 2016 17:12, Éder Comunello <comunello.eder em gmail.com>
escreveu:

> 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
>
>
>
>


-- 
=======================================================================
Fernando Souza
Zootecnista, DSc. Produção Animal
e-mail:nandodesouza em gmail.com
https://producaoanimalcomr.wordpress.com/
========================================================================
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20160303/c2580140/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/20160303/c2580140/attachment.png>