<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman, new york, times, serif;font-size:10pt"><DIV>Samuel,</DIV>
<DIV>acho que você está querendo o ajuste por minimos quadrados em dois estagios.</DIV>
<DIV>Pela sua área e pelo modelo de exemplo acho que você está interessado em ajustar o modelo de Clutter.</DIV>
<DIV>Existe o pacote sem e systemfit para MQ2S. Inclusive um dos autores de systemfit é da nossa área de Ciência Florestal.</DIV>
<DIV>Confesso que nunca utilizei esses pacotes, eu ajusto via lm mesmo.</DIV>
<DIV>Observe a função:<BR></DIV>
<DIV style="FONT-FAMILY: times new roman, new york, times, serif; FONT-SIZE: 10pt">clutter <- function(data){<BR> est1 <- lm(lnB2 ~ offset(x1) + x2 + x3 -1, data = data)</DIV>
<DIV style="FONT-FAMILY: times new roman, new york, times, serif; FONT-SIZE: 10pt"> data$lnB2fit <- fitted(est1)<BR> est2 <- lm(lnVtCC2 ~ invI2 + valorS + lnB2fit, data = data)</DIV>
<DIV style="FONT-FAMILY: times new roman, new york, times, serif; FONT-SIZE: 10pt"> coefs <- list( a0=coef(est1)[[1]],a1=coef(est1)[[2]],b1=coef(est2)[[1]],<BR> b2=coef(est2)[[2]], b3=coef(est2)[[3]], b4=coef(est2)[[4]] )<BR> unlist(coefs)<BR>}<BR></DIV>
<DIV style="FONT-FAMILY: times new roman, new york, times, serif; FONT-SIZE: 10pt">Ajusta o modelo de Clutter em uma das parametrizações mais utilizadas.</DIV>
<DIV style="FONT-FAMILY: times new roman, new york, times, serif; FONT-SIZE: 10pt"> </DIV>
<DIV style="FONT-FAMILY: times new roman, new york, times, serif; FONT-SIZE: 10pt">Gustavo Marcatti</DIV>
<DIV style="FONT-FAMILY: times new roman, new york, times, serif; FONT-SIZE: 10pt"> </DIV>
<DIV style="FONT-FAMILY: times new roman, new york, times, serif; FONT-SIZE: 10pt">Eng. Florestal </DIV>
<DIV style="FONT-FAMILY: times new roman, new york, times, serif; FONT-SIZE: 10pt">UFV</DIV>
<DIV style="FONT-FAMILY: times new roman, new york, times, serif; FONT-SIZE: 12pt"><FONT size=2 face=Tahoma>
<HR SIZE=1>
<B><SPAN style="FONT-WEIGHT: bold">De:</SPAN></B> Samuel Carvalho <samukajm@yahoo.com.br><BR><B><SPAN style="FONT-WEIGHT: bold">Para:</SPAN></B> r-br <r-br@listas.c3sl.ufpr.br><BR><B><SPAN style="FONT-WEIGHT: bold">Enviadas:</SPAN></B> Quarta-feira, 6 de Abril de 2011 13:11:43<BR><B><SPAN style="FONT-WEIGHT: bold">Assunto:</SPAN></B> [R-br] ajuste simultaneo<BR></FONT><BR>
<META content=off http-equiv=x-dns-prefetch-control>
<DIV style="FONT-FAMILY: times new roman, new york, times, serif; FONT-SIZE: 12pt">
<DIV></DIV>
<DIV>Pessoal</DIV>
<DIV>Alguem saberia me dizer como se faz um ajuste simultaneo no R?</DIV>
<DIV>Algo tipo</DIV>
<DIV>###</DIV>
<DIV>mod1 <- <STRONG><FONT style="BACKGROUND-COLOR: #ff4040">Y</FONT></STRONG> ~ X1 + X2 + X3</DIV>
<DIV>mod2 <- W ~ Z1 + Z2 + <STRONG><FONT style="BACKGROUND-COLOR: #ff4040">Y</FONT></STRONG><BR>###</DIV>
<DIV>Valeu</DIV>
<DIV>Samuel </DIV>
<DIV style="FONT-FAMILY: courier, monaco, monospace, sans-serif"><FONT size=3><STRONG>====================================</STRONG></FONT></DIV>
<DIV style="FONT-FAMILY: courier, monaco, monospace, sans-serif"><FONT size=3><STRONG>Samuel P. C. Carvalho<BR></STRONG><FONT color=#000000 size=2>Mestre em Ciências Florestais [UFLA]</FONT></FONT></DIV>
<DIV style="FONT-FAMILY: courier, monaco, monospace, sans-serif"><FONT color=#000000 size=2>Doutorando em Recursos Florestais [ESALQ/USP]</FONT></DIV>
<DIV style="FONT-FAMILY: courier, monaco, monospace, sans-serif"><FONT size=2>=============================================</FONT></DIV>
<DIV></DIV></DIV>
<META content=on http-equiv=x-dns-prefetch-control></DIV></div><br>
</body></html>