<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;">A função rsm do pacote rsm pode ajudar. Dá uma olhada no pequeno exemplo abaixo. Espero que ajude.<div><br></div><div><p class="MsoNormal"><span lang="EN-US" style="font-size:11.0pt;mso-ansi-language:
EN-US">install.packages("rsm", dep=TRUE)<br style="mso-special-character:
line-break">
<!--[if !supportLineBreakNewLine]--><br style="mso-special-character:line-break">
<!--[endif]--><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:11.0pt;mso-ansi-language:
EN-US">require(rsm)<br style="mso-special-character:line-break">
<!--[if !supportLineBreakNewLine]--><br style="mso-special-character:line-break">
<!--[endif]--><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="mso-ansi-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="mso-ansi-language:EN-US">x=c(0.5,0.5,0.5,1,1,1,1.5,1.5,1.5,2,2,2)<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="mso-ansi-language:EN-US">y=c(9.4,12.7,11,7.9,8.9,10.4,6.7,6.1,8.5,5.8,4.6,5.6)<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="mso-ansi-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="mso-ansi-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="mso-ansi-language:EN-US">m=rsm(y~FO(x))<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="mso-ansi-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="mso-ansi-language:EN-US">summary(m)<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="mso-ansi-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="mso-ansi-language:EN-US">m1=lm(y~x)<o:p></o:p></span></p>
<p class="MsoNormal">m2=lm(y~as.factor(x))</p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">anova(m1,m2)</p><div><br>--- Em <b>dom, 3/7/11, Thiago De paula protásio <i><depaulaprotasio@yahoo.com.br></i></b> escreveu:<br><blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><br>De: Thiago De paula protásio <depaulaprotasio@yahoo.com.br><br>Assunto: [R-br] Teste de Falta de Ajuste! Modelos lineares!<br>Para: "r-br" <r-br@listas.c3sl.ufpr.br><br>Data: Domingo, 3 de Julho de 2011, 14:48<br><br><div id="yiv131318682"><table cellspacing="0" cellpadding="0" border="0"><tbody><tr><td valign="top" style="font:inherit;">Membros da R-br;<div><br></div><div>Novamente recorro a ajuda e conhecimento de vcs.</div><div><br></div><div>Gostaria de saber se existe alguma função implementada no R para o teste de falta de ajuste de modelos lineares. </div><div><br></div><div>Procurei nas "Rídiculas" e na lista e não encontrei mensagens a esse
respeito.</div><div><br></div><div>Muito obrigado!<br><br>Thiago de Paula Protásio<br>
Acadêmico de Engenharia Florestal<br>
Universidade Federal de Lavras<br>
Laboratório de Energia da Biomassa Florestal<br>
Laboratório de Biomateriais<br>
(035) 9183-2246</div></td></tr></tbody></table></div><br>-----Anexo incorporado-----<br><br><div class="plainMail">_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="/mc/compose?to=R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</div></blockquote></div></div></td></tr></table>