<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;"><font class="Apple-style-span" face="arial" size="2">Ok Fábio!</font><div style="font-family: arial; font-size: 10pt; "><br></div><div style="font-family: arial; font-size: 10pt; ">Certamente, estou lendo na medida do possível!</div><div style="font-family: arial; font-size: 10pt; "><br></div><div style="font-family: arial; font-size: 10pt; ">Infelizmente,trabalho com estatística aplicada e nos artigos que tenho consultado eles utilizam CV e outros parâmetros mencionados. Por isso é importante consultar estatísticos e especialistas....</div><div style="font-family: arial; font-size: 10pt; "><br></div><div style="font-family: arial; font-size: 10pt; ">Quanto ao R² ajustado ontem mesmo o Walmes sugeriu a sua utilização..</div><div style="font-family: arial; font-size: 10pt; ">Eu tenho calculado o R² com base na soma de quadrado total corrigida e tenho
 algumas dúvidas da sua validade na comparação de diferentes modelos.....</div><div style="font-family: arial; font-size: 10pt; "><br></div><div style="font-family: arial; font-size: 10pt; ">Tenho utilizados os comandos....</div><div style="font-family: arial; font-size: 10pt; "><br></div><div><div><font class="Apple-style-span" face="arial" size="2">   t50=read.csv2("D:/UEQ/t50.csv",dec=",",h=T)</font></div><div><font class="Apple-style-span" face="arial" size="2">>   t1=t50[(1:48),]            </font></div><div><font class="Apple-style-span" face="arial" size="2">> B <- 1.5   </font></div><div><font class="Apple-style-span" face="arial" size="2">> C <- 0.03 </font></div><div><font class="Apple-style-span" face="arial" size="2">> n1 <- nls(UEQ~B*exp(C*UR), data=t1,</font></div><div><font class="Apple-style-span" face="arial" size="2">+          
 start=list(B=B, C=C))</font></div><div><font class="Apple-style-span" face="arial" size="2">> summary(n1)</font></div><div><font class="Apple-style-span" face="arial" size="2"><br></font></div><div><font class="Apple-style-span" face="arial" size="2">Formula: UEQ ~ B * exp(C * UR)</font></div><div><font class="Apple-style-span" face="arial" size="2"><br></font></div><div><font class="Apple-style-span" face="arial" size="2">Parameters:</font></div><div><font class="Apple-style-span" face="arial" size="2">   Estimate Std. Error t value Pr(>|t|)    </font></div><div><font class="Apple-style-span" face="arial" size="2">B 1.6159757  0.0594401   27.19   <2e-16 ***</font></div><div><font class="Apple-style-span" face="arial" size="2">C 0.0267234  0.0004624   57.79   <2e-16 ***</font></div><div><font class="Apple-style-span" face="arial" size="2">---</font></div><div><font class="Apple-style-span"
 face="arial" size="2">Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 </font></div><div><font class="Apple-style-span" face="arial" size="2"><br></font></div><div><font class="Apple-style-span" face="arial" size="2">Residual standard error: 0.483 on 46 degrees of freedom</font></div><div><font class="Apple-style-span" face="arial" size="2"><br></font></div><div><font class="Apple-style-span" face="arial" size="2">Number of iterations to convergence: 4 </font></div><div><font class="Apple-style-span" face="arial" size="2">Achieved convergence tolerance: 1.641e-07 </font></div><div><font class="Apple-style-span" face="arial" size="2"><br></font></div><div><font class="Apple-style-span" face="arial" size="2">> SQE <- summary(n1)$sigma^2*summary(n1)$df[2]</font></div><div><font class="Apple-style-span" face="arial" size="2">> SQE</font></div><div><font class="Apple-style-span" face="arial"
 size="2">[1] 10.73154</font></div><div><font class="Apple-style-span" face="arial" size="2">> SQT <- var(t1$UR)*(length(t1$UR)-1)# soma de quadrado total corrigida</font></div><div><font class="Apple-style-span" face="arial" size="2">> SQT</font></div><div><font class="Apple-style-span" face="arial" size="2">[1] 14000</font></div><div><font class="Apple-style-span" face="arial" size="2">> R2 <- 1 - SQE/SQT</font></div><div><font class="Apple-style-span" face="arial" size="2">> R2</font></div><div><font class="Apple-style-span" face="arial" size="2">[1] 0.9992335</font></div><div><font class="Apple-style-span" face="arial" size="2"><br></font></div></div><div><font class="Apple-style-span" face="arial" size="2"><br></font></div><div><font class="Apple-style-span" face="arial" size="2">Att.,</font></div><div><font class="Apple-style-span" face="arial" size="2"><br></font></div><div style="font-family: arial; font-size: 10pt;
 "><br></div><div style="font-family: arial; font-size: 10pt; "><br></div><div style="font-family: arial; font-size: 10pt; "><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></table>