<div><font face="trebuchet ms,sans-serif">O revisor está correto pois a definição de R² que ele possivelmente está usando é de R² corrido para a média ou R² com relação o modelo nulo. Veja no exemplo abaixo como calcular o mencionado R². R² só faz sentido, ou melhor, só é o ajustado para a média, se o teu modelo puder se reduzir ao modelo de intercepto através de uma restrição paramétrica. É por esse motivo que para alguns modelos não lineares o valor calculado de R² é tão otimista, porque assim como o teu modelo sem intercepto, alguns modelos não lineares também não possuem intercepto. Em todas as situações, para evitar problemas, considere o R² ajustado/relativo ao modelo nulo.</font></div>
<div><font face="trebuchet ms,sans-serif"><br></font></div><div><div><font face="courier new, monospace">x <- runif(30)</font></div><div><font face="courier new, monospace">y <- rnorm(30,3*x, sd=0.1)</font></div><div>
<font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">plot(y~x)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace"><a href="http://mod.com.int">mod.com.int</a> <- lm(y~x)</font></div>
<div><font face="courier new, monospace"><a href="http://mod.sem.int">mod.sem.int</a> <- lm(y~0+x)</font></div><div><font face="courier new, monospace">summary(<a href="http://mod.com.int">mod.com.int</a>)</font></div>
<div><font face="courier new, monospace">summary(<a href="http://mod.sem.int">mod.sem.int</a>)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">mod.null <- lm(y~1)</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace"># R² ajustados para a média</font></div><div><font face="courier new, monospace">1-deviance(<a href="http://mod.com.int">mod.com.int</a>)/deviance(mod.null)</font></div>
<div><font face="courier new, monospace">1-deviance(<a href="http://mod.sem.int">mod.sem.int</a>)/deviance(mod.null)</font></div><div style="font-family:'trebuchet ms',sans-serif"><br></div><div style="font-family:'trebuchet ms',sans-serif">
À disposição.</div></div><font face="trebuchet ms,sans-serif"><div><font face="trebuchet ms,sans-serif">Walmes.</font></div><br clear="all"></font><span style="font-family:trebuchet ms,sans-serif">==========================================================================</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Walmes Marques Zeviani</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">fone: (+55) 41 3361 3573</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">VoIP: (3361 3600) 1053 1173</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a><br>
skype: walmeszeviani<br style="font-family:trebuchet ms,sans-serif"></span><span style="font-family:trebuchet ms,sans-serif">twitter: @walmeszeviani</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">linux user number: 531218</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">==========================================================================</span><br>