[R-br] Modelo não linear

Augusto Ribas ribas.aca em gmail.com
Quarta Julho 31 01:23:26 BRT 2013


Opa, eu não entendo muito bem de regressão não linear, mas talvez a função
nls possa fazer o que você tem interesse.

Tem um livro muito bom da serie use R explicando como usar, vale a pena a
consulta caso a função nls se encaixe nas suas necessidades.
http://www.amazon.com/Nonlinear-Regression-R-Use/dp/0387096159

Fora isso tem muitos manuais pela internet também.
Mas mais ou menos é isso que você quer, ajustar esse parâmetros aos dados?

########################################################################################
#exemplo
tempo=1:12
y=c(8.81790512674818,8.83724295007473,8.84652971800299,8.85625726150244,8.86597721721444,8.86647798384983,

8.87625601672093,8.89503521901844,8.91478268591035,8.93378059512321,8.97371264813241,9.00355384268932)

plot(y~tempo)

modelo<-nls(y~A*(1-B*exp(-C*tempo)) + exp(D +
E*(tempo-tempo[1])),start=list(A=1,B=1,C=1,D=1,E=1))
summary(modelo)

curve(coef(modelo)[1]*(1-coef(modelo)[2]*exp(-coef(modelo)[3]*x)) +
exp(coef(modelo)[4] + coef(modelo)[5]*(x-1)),1,12,
      add=T,lty=2,col="red")

###########################################################################################
Mas é um bocado de parâmetros para 12 pontos.
Bem, espero ter ajudado.




Em 30 de julho de 2013 19:39, Tiago Souza Marçal <
tiagosouzamarcal em hotmail.com> escreveu:

> Boa noite pessoal,
>
> estou querendo modelar uma curva de embebição de sementes através do
> seguinte modelo não linear:
>
> y=A*(1-B*exp(-C*tempo)) + exp(D + E*(tempo-t0))
>
> t0 = 6
>
> Gostaria de saber se existe um procedimento parecido com o do pacote
> manipulate do Rstudio no R para ajustar este modelo.
>
> CMR
>
> tempo=1:12
> y=c(8.81790512674818,8.83724295007473,8.84652971800299,8.85625726150244,
>
> 8.86597721721444,8.86647798384983,8.87625601672093,8.89503521901844,8.91478268591035,8.93378059512321,8.97371264813241,9.00355384268932)
>
> Att.
>
> Tiago.
>
>
>
>
>
>
>
>
>
> #################################################################
>
> Tiago de Souza Marçal - Graduando em Agronomia pelo CCA-UFES
>
> Bolsista de Iniciação Científica da área de Genética e Melhoramento de
> Plantas
>
> #################################################################
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
> código mínimo reproduzível.
>



-- 
Grato
Augusto C. A. Ribas

Site Pessoal: http://recologia.com.br/ <http://augustoribas.heliohost.org>
Github: https://github.com/Squiercg
Lattes: http://lattes.cnpq.br/7355685961127056
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130731/91e11bbf/attachment.html>


Mais detalhes sobre a lista de discussão R-br