[R-br] ajuste com nls
Gilson Sanchez
gilsonsch em gmail.com
Segunda Janeiro 30 20:49:48 BRST 2012
Pessoal mais uma duvida,
eu fiz um ajuste com o nls, mas eu quero saber como utilizar a e b ou seja
se tem algum comando para que eu possa utilizar os valores que foram
estimadas pela equação
Segue o CMR que estou trabalhando
# Planta 1
planta1=foto[1:90,-3:-6]
names(planta1)
[1] "especie" "esp" "PAR" "Tleaf" "W" "Pn" "E"
[8] "C" "int_CO2"
colnames(planta1)<-c("especiea", "espa", "PARa","Tleafa", "Wa", "Pna",
"Ea",
+ "Ca", "int_CO2a")
# Obtendo PAR
planta1.luz =tapply(planta1$PARa, INDEX=planta1$PARa, FUN=mean)
planta1.luz
0 25 50 75 100 500 1000 1500 2000
0 25 50 75 100 500 1000 1500 2000
planta1.me.Pna=tapply(planta1$Pna, INDEX=planta1$PARa, FUN=mean)
planta1.me.Pna
0 25 50 75 100 500 1000 1500 2000
-0.428 0.144 0.411 1.275 2.052 4.349 5.082 4.078 3.794
planta1.ajuste=nls((planta1.me.Pna~(a+0.428)*(1-exp(-b*planta1.luz/(a+0.428)))-0.428),
+ start=list(a=200, b=0.5))
planta1.ajuste
Nonlinear regression model
model: planta1.me.Pna ~ (a + 0.428) * (1 - exp(-b * planta1.luz/(a +
0.428))) - 0.428
data: parent.frame()
a b
4.37564 0.02943
residual sum-of-squares: 1.258
Number of iterations to convergence: 5
Achieved convergence tolerance: 3.175e-06
max=c(planta1.ajuste$a) = ?????
alfa=c(plnat1.ajuste$b) = ???????
Desde já muito obrigado.
--
Bach. Agr.Gilson Sánchez Chia, MSc.
Laboratório de Fisiologia Vegetal
Embrapa Amazônia Ocidental
Fone: (92) 3303-7841
http://lattes.cnpq.br/3684553005529634
---
Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente.
Please consider the environment before printing this email.
Renew, Reduce and Recycle. The Planet Knows.***
Salva un Árbol.* *
***
*
PIENSA**** EN EL MUNDO PARA TUS HIJOS** *
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120130/df130714/attachment.html>
Mais detalhes sobre a lista de discussão R-br