<div dir="ltr"><div><div>Se você fizer um modelo com a função lm por exemplo, da para extrair a maioria desses indices com summary ou anova, apesar que confesso que não sei o que são algumas dessas letras que você colocou. Segue um exemplo.<br></div><br>set.seed(123)<br>x <- runif(30, 2, 5)<br>y <- rnorm(30, x, 0.3)<br>modelo <- lm(y ~ x)<br><br>summary(modelo)<br>anova(modelo)<br><br>###RSME<br>sqrt(sum(resid(modelo)^2)/30)<br><br>###RSME<br>sqrt(mean((y-fitted(modelo))^2))<br><br><br></div>Espero ter ajudado.<br></div><div class="gmail_extra"><br><div class="gmail_quote">Em 9 de novembro de 2015 08:53, Yury Duarte <span dir="ltr"><<a href="mailto:yurynepomuceno@gmail.com" target="_blank">yurynepomuceno@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><span style="font-size:12.8px">Bom dia!</span><div style="font-size:12.8px">Meu nome é Yury Duarte e sou pós graduando em Engenharia de Biossistemas.</div><div style="font-size:12.8px">Estou com uma necessidade de aplicar alguns índices estatísticos a uma serie de dados, entretanto, não consegui encontrar uma função no R que as faça.</div><div style="font-size:12.8px">Os índices são:</div><div style="font-size:12.8px"><ul><li style="margin-left:15px">R²</li><li style="margin-left:15px">r</li><li style="margin-left:15px">c</li><li style="margin-left:15px">D</li><li style="margin-left:15px">RMSE</li><li style="margin-left:15px">Erro médio</li><li style="margin-left:15px">Erro médio absoluto</li></ul><div>Dessa forma, gostaria de saber se já existem comandos para calcular esses índices ou se terei que desenvolver o código para cada um deles.</div></div><div style="font-size:12.8px">Desde já, agradeço pela colaboração!</div><div style="font-size:12.8px"><br></div><div style="font-size:12.8px">Att</div><span class="HOEnZb"><font color="#888888"><div style="font-size:12.8px"><br></div><div><div><div dir="ltr"><div>Yury Duarte<br></div>Engenheiro Agrônomo - ESALQ/USP<br></div></div></div>
</font></span></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto: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" rel="noreferrer" 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" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><br>-- <br><div class="gmail_signature"><div dir="ltr"><div>Grato<br>Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://recologia.com.br/" target="_blank">http://recologia.com.br/</a><a href="http://augustoribas.heliohost.org" target="_blank"></a></div><div>Github: <a href="https://github.com/Squiercg" target="_blank">https://github.com/Squiercg</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div></div></div>
</div>